動態大盤月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;