飞狐动态大盘月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;