日周KDJ源码副图

KZ:="周KDJ.K";
 DZ:="周KDJ.D";
 JZ:="周KDJ.J";
 KR:="KDJ.K";
 DR:="KDJ.D";
 JR:="KDJ.J";
 ZR1:="周RSI.ZRSI1";
 ZR2:="周RSI.ZRSI2";
 KK:KZ,LINETHICK3,COLORFF0000;
 DD:DZ,LINETHICK3,COLOR00FF00;
 JJ:JZ,LINETHICK3,COLOR00FFFF;
 FILLRGN(JJ,KK,JJ<=KK),COLOR680000;
 FILLRGN(JJ,KK,JJ>KK),COLOR200023;

FILLRGN(KK,DD,KK<=DD),COLOR003300;
 FILLRGN(KK,DD,KK>DD),COLOR883355;
回抽:=(CROSS("KDJ.J",-0.1)) AND KZ>DZ AND KZ>45 AND C>MA(C,60) AND MA(C,60)>=REF(MA(C,60),1);
 STICKLINE(回抽,0,20,8,0),COLOR0000FF;

MACD_S:=(((EMA(C,12)-EMA(C,26))-EMA(EMA(C,12)-EMA(C,26),9))/(EMA(C,12)+EMA(C,26)))*IF(DATATYPE>=8,2000,3000);
 MACD:="MACD.MACD";
 {MACD柱子}
STICKLINE(MACD_S>0 AND MACD_S<=REF(MACD_S,1),0,MACD_S,4.9,0),COLORBBBBBB;
 STICKLINE(MACD_S>0 AND MACD_S>REF(MACD_S,1),0,MACD_S,4.9,0),COLOR8899FF;
 STICKLINE(MACD_S<0 AND MACD_S>REF(MACD_S,1),MACD_S,0,4.9,0),COLORFFF000;
 STICKLINE(MACD_S<0 AND MACD_S<=REF(MACD_S,1),MACD_S,0,4.9,0),COLOR00ED00;

STICKLINE(1,50,50,3,0),COLORFF0000;
 STICKLINE(ZR1>=ZR2,50,50,3,0),COLOR0000FF;
 STICKLINE(1,20,20,3,0),COLORFF0000;
 STICKLINE(1,80,80,3,0),COLORFF0000;
 STICKLINE(1,100,100,3,0),COLORFF0000;

PARTLINE(0,"周MACD.MACD">0,RGB(255,0,0),"周MACD.MACD"<0,RGB(0,255,0),1,RGB(0,0,255)),LAYER0,LINETHICK2;

压力:EMA(100-ZR1,6),LINETHICK2,COLORCCC220,LAYER0;
 Y:=9;RSV:=(C-LLV(L,Y))/(HHV(H,Y)-LLV(L,Y))*100;
 K:SMA(RSV,3,1),COLOR0000FF,LAYER0;
 D:SMA(K,3,1),COLORDD00EE,LAYER0;
 J:3*K-2*D,COLORDDDDDD,LAYER0;