VAR1:=(2*CLOSE+HIGH+LOW)/4;

VAR2:=EMA(EMA(EMA(VAR1,4),4),4);

J: (VAR2-REF(VAR2,1))/REF(VAR2,1)*10000, COLORSTICK;

D: MA(J,3),coloryellow,Linethick1;

K: MA(J,1),colorwhite,Linethick1;

 

DIFF : (EMA(CLOSE,12) - EMA(CLOSE,26))*1000,colorred,Linethick1;

DEA  : EMA(DIFF,9),Linethick1;

MACD := 2*(DIFF-DEA);

Zero : 0,coloryellow;

 

W:=(d+k)/2;

Akd:=ABS(k+d);

Adide:=ABS(diff)+ABS(dea);

Ckd:=CROSS(k,d);

Cdk:=CROSS(d,k);

上kd:=HHV((w),90);

下kd:=LLV((w),90);

上轨:=HHV(dea,60);

下轨:=LLV(dea,60);Xk:SLOPE(k,2),colorcyan,Linethick1;

Xde:SLOPE(dea,2);

 

B1:=akd>0.08*(ABS(上kd)+ABS(下kd)) AND SLOPE(dea,2)>0 AND diff/dea>=1 AND (Ckd OR REF(Ckd,1));

 

B2:=akd>0.08*(ABS(上kd)+ABS(下kd)) AND dea<0.05*下轨 AND SLOPE(dea,2)>=-0.2 AND  (Ckd OR REF(Ckd,1));

 

B3:=dea<0.7*上轨 AND k>d AND XK>0 AND SLOPE(d,2)>0 AND CROSS(diff,dea);

 

B4:=FROMOPEN>16 AND dea<0.7*下轨 AND XK>=1.2 ;

 

S1:=CROSS(d,k);

s2:=Xk<-0.8;

 

bb:=B1 OR b2 OR b4;

ss:=s1 OR s2;

bbx:IF (bb AND NOT(REF(bb,1)),DEA,0),colorred;

ssO:=BACKSET(bbx,BARSLAST(bbx));

ssx:IF(ss AND ssO,DEA,0),colorgreen;