通达信探囊取物副图源码

探囊取物
A1:=(C-MA(C,250))/MA(C,250)*100;
N1:=BARSLAST(CROSS(C,MA(C,250)));
N2:=BARSLAST(CROSS(MA(C,250),C));
B1:=IF(N1<N2,N1+1,0);
C1:=HHV(A1,B1);
D1:=(C-REF(C,B1))/REF(C,B1)*100;
N3:=BARSLAST(CROSS(C,MA(C,20)));
N4:=BARSLAST(CROSS(MA(C,20),C));
AA:IF(N3<N4,N3+1,0);
BB:(C-REF(C,AA))/REF(C,AA)*100,COLORRED;
STICKLINE(CROSS(BB,10) AND C/REF(C,1)>1.05,BB,BB+0.5,2,1),COLORWHITE;
DRAWTEXT(CROSS(BB,10) AND C/REF(C,1)>1.05,BB*0.93,'探囊取物'),COLORRED;