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

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& 6,2*HSL, A ),COLORWHITE;
ZF1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
DRAWTEXT(AB2 60& 50&&REF(BA1,1) 0.5& 1.2& 6,2*HSL, B ),COLORWHITE;
DRAWTEXT(AB 55&&REF(AB2,1) 50&&REF(HSL,2) 2.5& 6 40& 3& -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& 5&&AX2A 2& 2,1.2*HSL, 庄家痕迹 ),COLORMAGENTA;
AX3:=IF(AX1 3& 5&&AX2A 2& 2,2,DRAWNULL);
AX4:=COUNT(AX3 1,20);
DRAWTEXT(AX4=2& 3& 5&&AX2A 2& 2,1.5*HSL, 加自选 ),COLORRED;