把KDJ和MACD来个二合一 发生奇特功效幅图 通达信源码

源码

{---KDJ(9.3.3)----}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
 K:SMA(RSV,3,1),COLORFF9900;
 D:SMA(K,3,1),COLOR00FF00,LINETHICK2;
 J:3*K-2*D,COLOR00FFFF,LINETHICK1;
 DRAWBAND(J,RGB(60,0,60),D,RGB(60,80,60));
 3*K-2*D,COLOR00FFFF,LINETHICK1;
 SMA(K,3,1),COLOR00FF00,LINETHICK2;
 IF(D>REF(D,1),D,DRAWNULL),COLOR0000FF,LINETHICK2;
 {----MACD(26.12.9)----EMA---}
 {DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26));
 DEA:=EMA(DIFF,9);
 MACD:2*(DIFF-DEA),LINETHICK0;}
 {----MACD(26.12.9)----WMA----}
 DIFF:=WMA(CLOSE,12)-WMA(CLOSE,26);
 DEA:=WMA(DIFF,9);
 MACD:2*(DIFF-DEA),LINETHICK0;
 Q:=100;
 SZ:=MACD>REF(MACD,1);
 STICKLINE(SZ,REFDATE(HHV(J,0),DATE),REFDATE(-50,DATE),6,0),COLORDD0000; {-------波段背景------};
STICKLINE(SZ,0,MACD*1*Q,1.0.05,0),COLOR0000CC;
 STICKLINE(SZ,0,MACD*0.8*Q,1,0),COLOR0011FF;
 STICKLINE(SZ,0,MACD*0.6*Q,1.3,0),COLOR0055FF;
 STICKLINE(SZ,0,MACD*0.4*Q,1.6,0),COLOR0099FF;
 STICKLINE(SZ,0,MACD*0.2*Q,2,0),COLOR00DDFF;
 XD:=MACD  STICKLINE(XD,0,MACD*1*Q,1.0.05,0),COLORFF0000;
 STICKLINE(XD,0,MACD*0.8*Q,1,0),COLORFF3311;
 STICKLINE(XD,0,MACD*0.6*Q,1.3,0),COLORFF7733;
 STICKLINE(XD,0,MACD*0.4*Q,1.6,0),COLOR999933;
 STICKLINE(XD,0,MACD*0.2*Q,2,0),COLOR88DD00;

 SMA(K,3,1),COLOR00FF00,LINETHICK2;
 3*K-2*D,COLOR00FFFF,LINETHICK1