飞狐动态周K线源码
-
相关简介:if DATATYPE6 then exit; p:=SYSPARAM(1); u:=if(pbarpos,0,1); w:=barslast(weekdayref(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(
-
文章来源:股海网作者:股海网发布时间:2014-04-08浏览次数:
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;