半月线(飞狐)

半月线(飞狐)

源码正文：

DRAWGBK(1,COLORRGB(20,20,110),COLORRGB(0,0,50),1){XG51};
Tbs:=POW(10,ABS(LOG(MINdifF))){XG51};
//半月线
YB:=MOD(DAY,15)<REF(MOD(DAY,15),1)OR DATETOD1970(DATE)-REF(DATETOD1970(DATE),1)>14 OR BARPOS=1{XG51};
w:BArslAst(YB),LINETHICK{XG51};
dg:=w=0 or ISLASTBAR{XG51};
wx:=0*C{XG51};
for P=datacount-1 downto lbound(dg) do
if dg[P] then
wx[P]:=0{XG51};
else
wx[P]:=wx[P+1]+1{XG51};
r:=BACKSET(ISLASTBAR,w+1)-ISLASTBAR{XG51};
wx:=refx(wx,1)+r,LINETHICK{XG51};
oo:=ref(o,w){XG51};
hh:=hhv(h,w+1){XG51};
LL:=LLv(L,w+1){XG51};
半月开:ROUND(OO*TBS)/TBS,LINETHICK{XG51};
半月高:ROUND(refx(hh,wx)*TBS)/TBS,LINETHICK{XG51};
半月低:ROUND(refx(LL,wx)*TBS)/TBS,LINETHICK{XG51};
半月收:ROUND(refx(c,wx)*TBS)/TBS,LINETHICK{XG51};
上半月收:=REF(半月收,W+1),LINETHICK{XG51};
半月涨幅:半月收/上半月收*100-100,LINETHICK,COLORFFFFFF{XG51};
f:=半月收>半月开 or (半月收=半月开 and 半月收>ref(半月收,W)){XG51};
j:=cross(w,wx){XG51};
STICKLINE(w>=0 and f AND NOT(YB OR REFX(YB,1)),半月低,半月高,20,0),COLORmaGENTA{XG51};
STICKLINE(w>=0 and not(f) AND NOT(YB OR REFX(YB,1)),半月低,半月高,20,0)COLORFFDD00{XG51};
P:=BARPOS{XG51};
DRAWTEXT(w>0 and j AND DAY<15,半月高*1.01,'月上半月'),COLOR00CCFF,ALIGN1{XG51};
DRAWTEXT(w>0 and j AND DAY>15,半月高*1.01,'月下半月'),COLOR00CCFF,ALIGN1{XG51};
DRAWNUMBER(w>0 and j,半月高*1.01,MONTH,0),COLOR00CCFF,ALIGN2{XG51};
//日线
TJ:=CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1){XG51};
STICKLINE(TJ,LOW,HIGH,1,0),ColorE9{XG51};
STICKLINE(TJ,LOW,CLOSE,8,0),Color80{XG51};
STICKLINE(TJ,LOW,CLOSE,6,0),ColorA5{XG51};
STICKLINE(TJ,LOW,CLOSE,4,0),ColorC0{XG51};
STICKLINE(TJ,LOW,CLOSE,2,0),ColorE6{XG51};
STICKLINE(NOT(TJ),HIGH,LOW,1,0),ColorAA00{XG51};
STICKLINE(NOT(TJ),CLOSE,OPEN,8,0),Color5000{XG51};
STICKLINE(NOT(TJ),CLOSE,OPEN,6,0),Color6600{XG51};
STICKLINE(NOT(TJ),CLOSE,OPEN,4,0),Color8000{XG51};
STICKLINE(NOT(TJ),CLOSE,OPEN,2,0),ColorA000{X_G*5~1_C_N_{};