 | |  |  | 以下是半月线
DRAWGBK(1,COLORRGB(20,20,110),COLORRGB(0,0,50),1);
TBS:=POW(10,ABS(LOG(MINDIFF)));
//半月线
YB:=MOD(DAY,15)<REF(MOD(DAY,15),1)ORDATETOD1970(DATE)-REF(DATETOD1970(DATE),1)>14ORBARPOS=1;
w:BARSLAST(YB),LINETHICK;
dg:=w=0orISLASTBAR;
wx:=0*C;
forP=datacount-1downtolbound(dg)do
ifdg[P]then
wx[P]:=0;
else
wx[P]:=wx[P+1]+1;
r:=BACKSET(ISLASTBAR,w+1)-ISLASTBAR;
wx:=refx(wx,1)+r,LINETHICK;
oo:=ref(o,w);
hh:=hhv(h,w+1);
LL:=LLv(L,w+1);
半月开:ROUND(OO*TBS)/TBS,LINETHICK;
半月高:ROUND(refx(hh,wx)*TBS)/TBS,LINETHICK;
半月低:ROUND(refx(LL,wx)*TBS)/TBS,LINETHICK;
半月收:ROUND(refx(c,wx)*TBS)/TBS,LINETHICK;
上半月收:=REF(半月收,W+1),LINETHICK;
半月涨幅:半月收/上半月收*100-100,LINETHICK,COLORFFFFFF;
f:=半月收>半月开or(半月收=半月开and半月收>ref(半月收,W));
j:=cross(w,wx);
STICKLINE(w>=0andfANDNOT(YBORREFX(YB,1)),半月低,半月高,20,0),COLORMAGENTA;
STICKLINE(w>=0andnot(f)ANDNOT(YBORREFX(YB,1)),半月低,半月高,20,0)COLORFFDD00;{}
P:=BARPOS;
DRAWTEXT(w>0andjANDDAY<15,半月高*1.01,'月上半月'),COLOR00CCFF,ALIGN1;
DRAWTEXT(w>0andjANDDAY>15,半月高*1.01,'月下半月'),COLOR00CCFF,ALIGN1;
DRAWNUMBER(w>0andj,半月高*1.01,MONTH,0),COLOR00CCFF,ALIGN2;
//日线
TJ:=CLOSE>OPENorCLOSE=OPENandCLOSE>REF(CLOSE,1);
STICKLINE(TJ,LOW,HIGH,1,0),ColorE9;
STICKLINE(TJ,LOW,CLOSE,8,0),Color80;
STICKLINE(TJ,LOW,CLOSE,6,0),ColorA5;
STICKLINE(TJ,LOW,CLOSE,4,0),ColorC0;
STICKLINE(TJ,LOW,CLOSE,2,0),ColorE6;
STICKLINE(NOT(TJ),HIGH,LOW,1,0),ColorAA00;
STICKLINE(NOT(TJ),CLOSE,OPEN,8,0),Color5000;
STICKLINE(NOT(TJ),CLOSE,OPEN,6,0),Color6600;
STICKLINE(NOT(TJ),CLOSE,OPEN,4,0),Color8000;
STICKLINE(NOT(TJ),CLOSE,OPEN,2,0),ColorA000;
| |  | |  |
|
