通达信周线用指标源码贴图

VAR1IP:=(H+L+O+C*2)/5;
 VAR2IP:=EMA(VAR1IP,21);
 VAR3IP:=STD(VAR1IP,23);
 VAR4:=EMA(VAR1IP,2);
 VARAIP:=(VAR1IP-VAR2IP)*100/VAR3IP;
 K:(EMA(VARAIP,23)+100)/2-3,COLOR00FFFF,LINETHICK1;
 D:SMA(K,5,1),COLORFFFF00,LINETHICK1;
 J:4*K-3*D,COLORFF00FF,LINETHICK1;
周线用:=V>=REF(V,1)*2 AND REF(C,1)/REF(C,33)<0.6;
 DRAWTEXT(周线用,D,'周线用'),COLORRED;