通达信操盘线副图源码

通达信操盘线副图源码

DIFW:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEAW:=EMA(DIFW,9);
 MACDW:=(DIF-DEA)*2,COLORSTICK;
 W1:STICKLINE(MACDW>0,MACDW,0,2,1),COLORRED;
 W2:STICKLINE(MACDW<0,MACDW,0,2,0),COLORCYAN;
 VA1:=HHVBARS(MACDW,BARSLAST(MACDW<0)+1);
 VA2:=CROSS(BACKSET(CROSS(0,MACDW) OR (ISLASTBAR AND MACDW>0),REF(VA1,1)+2),0.5);
 前高:DRAWLINE(VA2,MACDW,REF(VA2,1),REF(MACDW,1),1),COLORWHITE;
 VA3:=LLVBARS(MACDW,BARSLAST(MACDW>0)+1);
 VA4:=CROSS(BACKSET(CROSS(MACDW,0) OR (ISLASTBAR AND MACDW<0),REF(VA3,1)+2),0.5);
 前低:DRAWLINE(VA4,MACDW,REF(VA4,1),REF(MACD,1),1),COLORYELLOW;
 W3:STICKLINE(MACDW>0 AND MACDW>前高 AND 前高>0,MACDW,前高,2,0),COLORYELLOW;
 W4:STICKLINE(MACDW<0 AND MACDW<前低 AND 前低<0,MACDW,前低,2,0),COLORGREEN;
 W5:DRAWTEXT(REFX(VA2,1),0,'点'),COLORWHITE;
 W6:DRAWTEXT(REFX(VA2,1),MACDW/2,'界'),COLORWHITE;
 W7:DRAWTEXT(REFX(VA2,1),MACDW,'临'),COLORWHITE;
 W8:DRAWTEXT(REFX(VA4,1),0,'临'),COLORRED;
 W9:DRAWTEXT(REFX(VA4,1),MACDW/2,'界'),COLORRED;
 W10:DRAWTEXT(REFX(VA4,1),MACDW,'点'),COLORRED;