通达信RSI顶底 源码 主图

以下是通达信RSI顶底 源码 主图

VAR1:=EMA(C,3);
 VAR2:=EMA(C,5);
 VAR3:=EMA(C,10);
 VAR4:=EMA(C,20);
 VAR5:=EMA(C,30);
 VAR6:=(VAR2+VAR3+VAR4+VAR5)/4;
 VAR7:=(VAR6-REF(VAR6,15))/REF(VAR6,15)*100;
 VAR8:=(VAR6-REF(VAR6,15))/REF(VAR6, 15)*100;
 VAR9:=EMA(VAR7,8);
 STICKLINE(VAR7<1*REF(VAR7,1),H,L,0.4,0),COLORBLUE;
 STICKLINE(VAR7<1*REF(VAR7,1),O,C,4, 1),COLORBLUE;
 STICKLINE(VAR7>1*REF(VAR7,1),H,L,0.4,0),COLORRED;
 STICKLINE(VAR7>1*REF(VAR7,1),O,C,4, 1),COLORRED;
 STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),H,L,0.4,0),COLORGREEN;
 STICKLINE(VAR7<1*REF(VAR7,1) AND VAR9>1*REF(VAR9,1),O,C,4, 1),COLORGREEN;
买进价:=((C-REF(MA(C,6),1))/6+MA(C,6))*1.004;
买进条件:=CROSS(C,买进价) AND 买进价>REF(买进价,1);
 STICKLINE(买进条件,H,L,0.4,1),COLORFF0080,LINETHICK2;
 STICKLINE(买进条件,O,C,5,0),COLORFF0080,LINETHICK2;
加码价:=((C-REF(MA(C,18),1))/18+MA(C,18))*1.004;
加码条件:=CROSS(C,加码价) AND 加码价>REF(加码价,1);
 STICKLINE(加码条件,H,L,0.4,1),COLORYELLOW,LINETHICK2;
 STICKLINE(加码条件,O,C,5,0),COLORYELLOW,LINETHICK2;
 JL01:=MA(C,3);
 LJL07:=(3*C+L+O+H)/6;
 AA:(20*LJL07+19*REF(LJL07,1)+18*REF(LJL07,2)+17*REF(LJL07,3)+16*REF(LJL07,4)+15*REF(LJL07,5)+14*REF(LJL07,6)+13*REF(LJL07,7)+12*REF(LJL07,8)+11*REF(LJL07,9)+10*REF(LJL07,10)+9*REF(LJL07,11)+8*REF(LJL07,12)+7*REF(LJL07,13)+6*REF(LJL07,14)+5*REF(LJL07,15)+4*REF(LJL07,16)+3*REF(LJL07,17)+2*REF(LJL07,18)+REF(LJL07,20))/210,COLORRED;
 BB:MA(AA,5),COLORRED,LINETHICK4,POINTDOT;
 CC:IF(JL01<=AA,BB,DRAWNULL),COLORGREEN,LINETHICK4,POINTDOT;
 MTM:=C-REF(C,1);DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
 DRAWTEXT(FILTER(买=1,5),LOW-0.03,'*预警'),COLORRED;
 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));
 DRAWICON(FILTER(B3>0,5),L*0.98,10);
 DRAWTEXT(FILTER(B3>0,5),L*0.98,'*R底'),COLORYELLOW;{RSI底}
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
 D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
 DRAWICON(FILTER(D3>0,5),H*1.03,12);
 DRAWTEXT(FILTER(D3>0,5),H*1.03,'*R顶'),COLORGREEN;{RSI顶};