通达信新换手率指标(源码)

HSL:100*VOL/CAPITAL,VOLSTICK;
M3:=SMA(HSL,3,1);
MH1:MA(HSL,5),COLORRED;
MH2:MA(HSL,10);
MH3:MA(HSL,20);
MH4:MA(HSL,100);
警戒值:MH3/MH4,COLORRED,NODRAW;
S1:=警戒值-LLV(警戒值,30);
IF(UPNDAY(MH4,3)&&警戒值>0.7,MH4,DRAWNULL),COLORBLUE;
R1:=(OPEN+2*CLOSE)/3;
A1:=(R1*6+REF(R1,1)*5+REF(R1,2)*4+REF(R1,3)*3+REF(R1,4)*2+REF(R1,5)*1)/21,LINETHICK3,COLORGREEN;
BA1:=(A1-REF(A1,1))/REF(A1,1)*100;
AB:=HSL/REF(HSL,2)*100;
AB2:=HSL/REF(HSL,1)*100;
DRAWTEXT(AB<55&&REF(AB2,1)>50&&REF(BA1,2)>1&&REF(HSL,2)>2.5&&HSL<6,2*HSL,"A"),COLORWHITE;
ZF1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
DRAWTEXT(AB2<60&&AB2>50&&REF(BA1,1)>0.5&&HSL>1.2&&HSL<6,2*HSL,"B"),COLORWHITE;
DRAWTEXT(AB<55&&REF(AB2,1)>50&&REF(HSL,2)>2.5&&HSL<6&&AB<40&&ZF1<3&&BA1<-0.3,3*HSL,"选择突破方向"),COLORWHITE;
AX1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
AX2:=HSL/MH4;
AX2A:=HSL/REF(HSL,1);
DRAWTEXT(AX1>3&&AX1<5&&AX2A>2&&AX2>2,1.2*HSL,"庄家痕迹"),COLORMAGENTA;
AX3:=IF(AX1>3&&AX1<5&&AX2A>2&&AX2>2,2,DRAWNULL);
AX4:=COUNT(AX3>1,20);
DRAWTEXT(AX4=2&&AX1>3&&AX1<5&&AX2A>2&&AX2>2,1.5*HSL,"加自选"),COLORRED;