精准吸筹副图指标 源码 通达信 贴图

{精准吸筹}
VAR1:=(CLOSE-LLV(LOW,36))/(HHV(HIGH,36)-LLV(LOW,36))*100;
VAR2:=SMA(VAR1,3,1);
VAR3:=SMA(VAR2,3,1);
VAR4:=SMA(VAR3,3,1);
X: VAR3;
Y: VAR4;
VAR5:=CROSS(VAR3,VAR4) AND VAR3<20;
DRAWTEXT(FILTER(VAR5,10)=1,40,'低吸'),COLORYELLOW;
STICKLINE(FILTER(VAR5,10)=1,0,30,5,0),COLORRED;
VAR9:=CROSS(VAR4,VAR3) AND VAR3>80;
STICKLINE(FILTER(VAR9,5)=1,80,100,5,0),COLORGREEN;
DRAWTEXT(FILTER(VAR9,5)=1,70,'风险'),COLOR00FF00;
VAR8:=CROSS(VAR2,VAR3) AND VAR3>80 AND VAR3>VAR4;
STICKLINE(VAR8,85,100,5,0),COLOR0099FF;
DRAWTEXT(FILTER(VAR8,5)=1,70,'减仓'),COLOR0099FF;
AA:=LLV(LOW,36);
BB:=HHV(HIGH,30);
DD:=(EMA(((CLOSE-AA)/(BB-AA))*(4),4))*(25);
下网:IF((COUNT((DD>REF(DD,1)),1)=1) AND (REF(DD,1)<REF(REF(DD,1),1)) AND (DD<10),50,0),COLORF00FF0;
DRAWTEXT((COUNT((DD>REF(DD,1)),1)=1) AND (REF(DD,1)<REF(REF(DD,1),1)) AND (DD<10),60,'下网'),COLORF00FF0;