通达信庄家痕迹量能副图指标源码公式

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;

通达信指标图例