动态周K线

2018-04-06    作者:admin    来源:网络

if DATATYPE<>6 then exit;
p:=SYSPARAM(1);
u:=if(p<barpos,0,1);
w:=barslast(weekday<ref(weekday,1))*u LINETHICK;
zr:=w=0;
wx:=0*c;
for i=datacount-1 downto lbound(zr) do
if zr then
wx:=0;
else
wx:=wx[i+1]+1;
ri:=BACKSET(ISLASTBAR,w+1)-ISLASTBAR;
rw:=refx(wx,1)+ri;

开:=ref(o,w)LINETHICK;
高:=refx(hhv(h,w+1),rw)LINETHICK;
低:=refx(LLv(L,w+1),rw)LINETHICK;
收:=refx(c,rw)LINETHICK;
f:=收>开 or (收=开 and 收>ref(收,1));
uu:=cross(w,rw);
STICKLINE(uu and f and u,高,低,1,0),color8482ff;
STICKLINE(uu and not(f) and u,高,低,1,0),colorff9694;
STICKLINE(p=barpos and w=0 and f and u,h,L,1,0),color8482ff;
STICKLINE(p=barpos and w=0 and not(f) and u,h,L,1,0),colorff9694;
STICKLINE(f and u,收,开,10,0),color8482ff;
STICKLINE(not(f) and u,收,开,10,0),colorff9694;
M20:MA(CLOSE,20),COLORWHITE;;
M97:MA(CLOSE,97),COLORYELLOW;

阅读:505    评论:0

联系我们 - 关于我们 - 网站地图

声明:站内所有文章、公式均来自互联网或网友分享提供,如侵犯您的权利请告知,我们会在24小时内及时删除! 


【电脑版】  【回到顶部】