用K线直接显示买卖趋势主图源码

{二九宽带}
上18H:WMA(SMA(HHV(HIGH,18),9/2,1),3),COLOR00FF00,DOTLINE;
下18L:WMA(SMA(LLV(LOW,18),9/2,1),3),COLOR009900,DOTLINE;
通道:(上18H+下18L)/2,COLOR0598FF,DOTLINE;
 DRAWBAND(上18H,RGB(60,0,60),通道,RGB(60,0,60));
 DRAWBAND(通道,RGB(0,60,0),下18L,RGB(0,60,0));
 WMA(SMA(HHV(HIGH,18),9/2,1),3),COLOR00FF00,DOTLINE;
 WMA(SMA(LLV(LOW,18),9/2,1),3),COLOR009900,DOTLINE;
 (上18H+下18L)/2,COLOR0598FF,DOTLINE;

{ACZC}
 AC:=(C+REF(C,1)-HHV(H,2)-LLV(L,2));
 MX:=MAX(AC,MAX(ABS(AC-HHV(H,2)),ABS(AC-LLV(L,2))));
 WX4:WMA(MX,4),COLORFF4567;
 ZC:=(2.5*C+H+L+O*0.5)/5;
 ZC4:WMA(ZC,4),COLOR00FF00,LINETHICK2;
 IF(ZC4>REF(ZC4,1),ZC4,DRAWNULL),COLORRED,LINETHICK3;
 {MACD}
 DIF:=EMA(CLOSE,7) - EMA(CLOSE,13);
 DEA:=EMA(DIF,3);
 DRAWTEXT(CROSS(DIF,DEA),L*0.99,'DIF'),COLOR0077FF,LINETHICK1;
 DRAWTEXT(CROSS(DEA,DIF),H*1.02,'DEA'),COLOR00FF00,LINETHICK1;
 {高抛}
SJ:=WMA((ZC-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2);
 ZJ:=WMA(0.618*REF(SJ,1)+0.382*SJ,2);
 DRAWTEXT(CROSS(ZJ,SJ) AND SJ>70,H+0.1,'←高抛'),COLOR00FFFF,LINETHICK2;
 {趋势涨K线}
AA:=(WX4-ZC4)<=0 ;
 BB:=(WX4-ZC4)>0;
 CC:=(ZC4-REF(ZC4,1))>0 AND (REF(ZC4,1)-REF(ZC4,2))>0;
 {趋势跌K线}
STICKLINE(BB ,HIGH ,LOW,0,0 ),COLORGREEN;
 STICKLINE(BB ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
 STICKLINE(BB ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
 STICKLINE(BB ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
 STICKLINE(BB ,CLOSE ,OPEN,0,0) ,COLOR00FF00;

STICKLINE(AA OR CC ,HIGH ,LOW,0,0 ),COLOR0000FF;
 STICKLINE(AA OR CC ,CLOSE,OPEN,3,0) ,COLOR0000DD;
 STICKLINE(AA OR CC ,CLOSE,OPEN,2,0) ,COLOR0000EE;
 STICKLINE(AA OR CC ,CLOSE,OPEN,1,0) ,COLOR0000FF;
 STICKLINE(AA OR CC ,CLOSE,OPEN,0,0) ,COLOR0000FF;

{原本涨跌}
STICKLINE(CLOSE>OPEN OR CLOSE=OPEN AND CLOSE>REF(CLOSE,1),H,H*1.001,2,0),COLORRED;
 STICKLINE(CLOSE<OPEN OR CLOSE=OPEN AND CLOSE<=REF(CLOSE,1),L,L*0.999,2,0),COLORCYAN;