飞狐动态大盘月K线源码

飞狐动态大盘月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*INDEXC;
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(INDEXC,w)LINETHICK;
高:=REFX(HHV(INDEXh,w+1),rw)LINETHICK;
低:=REFX(LLV(INDEXl,w+1),rw)LINETHICK;
收:=REFX(INDEXC,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;

;
 

AC:=对应大盘收盘价;AH:=对应大盘最高价;AL:=对应大盘最低价;AO:=对应大盘开盘价;HDO:=对应大盘开盘价;
画柱线(Ac>=Ao,Ac,Ao,8,0),COLOr000099;
画柱线(Ac>=Ao,Ac,Ao,6,0),COLOR0000cc;
画柱线(Ac>=Ao,Ac,Ao,4,0),COLOR0000ff;
画柱线(Ac>=Ao,AH,Al,0.1,0),COLOR0033ff;
画柱线(AC<=AO,AC,AO,8,0),COLOR009900;
画柱线(AC<=AO,AC,AO,6,0),COLOR00cc00;
画柱线(AC<=AO,AC,AO,4,0),COLOR33ff00;
画柱线(AC<AO,AH,AL,0.01,0),COLORGREEN;

M5:MA(INDEXC,5),COLORWHITE,LINETHICK0;

M20:MA(INDEXC,20),COLORWHITE,LINETHICK0;