飞狐动态月K线源码

IF DATATYPE<>6 then exit;
p:=SYSPARAM(1);
u:=IF(p<BARPOS,0,1);
w:=BARSLAST(DAY<REF(DAY,1))*u LINETHICK;
zr:=w=0;
wx:=0*CLOSE;
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(OPEN,w)LINETHICK;
高:=REFX(HHV(HIGH,w+1),rw)LINETHICK;
低:=REFX(LLV(LOW,w+1),rw)LINETHICK;
收:=REFX(CLOSE,rw)LINETHICK;
f:=收>开 or (收=开 and 收>REF(收,1));
uu:=CROSS(w,rw);
STICKLINE(uu and f and u,高,低,8,0),color8482ff;
STICKLINE(uu and NOT(f) and u,高,低,8,0),colorff9694;
STICKLINE(p=BARPOS and w=0 and f and u,HIGH,LOW,8,0),color8482ff;
STICKLINE(p=BARPOS and w=0 and NOT(f) and u,HIGH,LOW,8,0),colorff9694;
STICKLINE(f and u,收,开,10,0),color8482ff;
STICKLINE(NOT(f) and u,收,开,10,0),colorff9694;
M5:MA(CLOSE,5),COLORWHITE,LINETHICK0;
M20:MA(CLOSE,20),COLORWHITE,LINETHICK0;