通达信周线用指标(源码)

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)
DRAWTEXT(周线用,D,'周线用'),COLORRED;