飞狐动态周K线源码

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;