通达信吸筹金叉副图指标公式源码

VAR1:=REF(LOW,1);
VAR2:=SMA(ABS(LOW-VAR1),3,1)/SMA(MAX(LOW-VAR1,0),3,1)*100;
VAR3:=EMA(IF(CLOSE*1.2,VAR2*5,VAR2/10),3);
VAR4:=LLV(LOW,38);
VAR5:=HHV(VAR3,38);
VAR6:=IF(LLV(LOW,90),1,0);
VAR7:=EMA(IF(LOW<=VAR4,(VAR3+VAR5*2)/2,0),3)/618*VAR6;
VAR8:=((C-LLV(L,20))/(HHV(H,20)-LLV(L,20)))*100;
VAR9:=SMA(VAR8,13,8);
VAR11:=CEILING(SMA(VAR9,13,8));
VAR12:=100*(HHV(HIGH,60)-CLOSE)/(HHV(HIGH,60)-LLV(LOW,60));
VAR13:=HHV(VAR12,20);
VAR15:=REF(VAR13,1);
VAR17:=LLV(VAR11,20);
VAR18:=REF(VAR17,1);
吸筹金叉X:=CROSS(VAR15,VAR12) AND CROSS(VAR11,VAR18);

{副图可视化部分——以下4行是改造重点}
KA:VAR11,COLORYELLOW,LINETHICK1;
KB:VAR12,COLORWHITE,LINETHICK1;
KC:VAR15,COLORMAGENTA,LINETHICK1;
DRAWTEXT(吸筹金叉X,50,'←吸筹金叉'),COLORRED;
STICKLINE(吸筹金叉X,0,100,2,0),COLORRED;