通达信 RSI顶背波段副图指标 源码

N:=55;
 N1:=6;
 N2:=89;
 WL:(CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100,LINETHICK1,COLOR0000FF;
 WL3:=MA(WL,3),COLOR00FFFF;
 WLT:MA(WL,89),COLOR00FFFF,LINETHICK1;
 DRAWBAND(WL,RGB(200,50,55),WLT,RGB(0,100,50));
遵:IF(WL>=WLT,WL,DRAWNULL),COLORRED;
守:IF(WLT>=WL,WLT,DRAWNULL),COLORFF9900;
纪:IF(WL>=WLT,WLT,DRAWNULL),COLOR00FFFF;
律:IF(WLT>=WL,WL,DRAWNULL),COLOR00FF00;
 WLT1:=CROSS(WL,WLT);
 WLT11:=CROSS(WL,-10);
 WLT2:=FILTER(WLT1,8);
 SKY:10,POINTDOT,COLORFF0000,LINETHICK1;
 SEA:-10,POINTDOT,COLORFF00FF,LINETHICK1;
 DRAWICON(WLT2,WLT,23);
 DRAWICON(WLT11,SEA,15);
 T8:=FILTER(CROSS(WL,WL3) AND WL3  DRAWICON(T8,WL,26);
 WLT3:=COUNT(WL>10,5)>=3;
 WLT33:=CROSS(10,WL);
 SEL:=WLT3 AND WLT33;
 DRAWICON(SEL,10,19);
 STICKLINE(WL>10,WL,10,0.001,0),COLOR00FF00;
 STICKLINE(WL<-10,WL,-10,0.001,0),COLORFF00FF;
 DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=(DIF-DEA)*2,COLORSTICK;
 DIF底:=LLV(DIF,120);
最底价:=L=LLV(L,120);
距今:=BARSLAST(最底价);
偏离:=IF((距今=0 AND DIF>DIF底),1,0);
 DDD:=EXIST(偏离,20) AND SLOPE(DEA,2)>=0;
 HRY:=FILTER(DDD,10);
 STICKLINE(HRY,-5,-10,3,0),COLOR00FFFF;
 DRAWTEXT(HRY,-5,'M背'),COLOR00FFFF;
 {YYY:COUNT(偏离,5);}
 DIF顶:=HHV(DIF,120);
最高价:=H=HHV(H,120);
距今高:=BARSLAST(最高价);
偏离高:=IF((距今高=0 AND DIF  GGG:=EXIST(偏离高,20) AND SLOPE(DEA,2)<0;
 HRY1:=FILTER(GGG,10);
 STICKLINE(HRY1,10,5,3,0),COLORFF0000;
 DRAWTEXT(HRY1,5,'M背'),COLORFF0000;
 A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
 B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
 A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
 B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
 C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
 D2:=REF(C,C2+1)"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
 C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
 D3:=REF(C,C3+1)"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));KDJ底背:FILTER(IF(B2>0,-1,0),13),NODRAW;
 STICKLINE(KDJ底背,-10,-5,3,0),COLORFF00FF;
 DRAWTEXT(KDJ底背,-5,'K背'),COLORFF00FF;
 RSI底背:FILTER(IF(B3>0,-1,0),13),NODRAW;
 STICKLINE(RSI底背,-10,-5,3,0),COLOR0000FF;
 DRAWTEXT(RSI底背,-5,'R背'),COLOR0000FF;
 KDJ顶背:FILTER(IF(D2>0,1,0),13),NODRAW;
 STICKLINE(KDJ顶背,10,5,3,0),COLORFFFF00;
 DRAWTEXT(KDJ顶背,5,'K背'),COLORFFFF00;
 RSI顶背:FILTER(IF(D3>0,1,0),13),NODRAW;
 STICKLINE(RSI顶背,10,5,3,0),COLOR00FF00;
 DRAWTEXT(RSI顶背,5,'R背'),COLOR00FF00;
 T:=IF((BARSCOUNT(C) > 7),(100)*((MA(C,7))/(LLV(MA(C,7),7)) - 1),1);
 N3:=IF((T > 0.35),6,65);
 W:=((-((100)*(HHV(H,N3) - C))/(HHV(HIGH,N3) - LLV(L,N3))));
 RV:=(CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100;
 RG:=(CLOSE-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
 J0:=(HIGH+LOW)/2;
 QJ:=EMA(J0,3);
 J1:=IF(CLOSE>QJ,VOL,0);
 J2:=IF(CLOSE  BB:=MA(SUM(J1-J2,22),3);
 VAR4:=SMA(RV,3,1);
 VAR5:=SMA(VAR4,3,1);
 KK:=EMA(SMA(RG,3,1),2),COLORFFFFFF;
 DD:=SMA(KK,3,1),COLOR00FF