TBS:=POW(10,ABS(LOG(MINDIFF)));
//月线
BY:=MONTH;YB:=BY-REF(BY,1)<>0 OR BARPOS=1;
w:BARSLAST(YB),LINETHICK;
dg:=w=0 or ISLASTBAR;
wx:=0*C;
for P=datacount-1 downto lbound(dg) do
if dg[P] then
wx[P]:=0;
else
wx[P]:=wx[P+1]+1;
r:=BACKSET(ISLASTBAR,w+1)-ISLASTBAR;
wx:=refx(wx,1)+r,LINETHICK;
zq:=BARSLAST(ref(wx,1)=0 or BARPOS=1)+1;
oo:=ref(o,w);
hh:=hhv(h,w+1);
LL:=LLv(L,w+1);
vv:=sum(v,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;
量:ROUND(refx(vv,wx)*TBS)/TBS,LINETHICK;
f:=月收>月开 or (月收=月开 and 月收>ref(月收,W));
j:=cross(w,wx);
yt:=if(zq=1 and refx(zq,2)=7,13,if(refx(zq,1)=1 or zq=1,7,14));
画柱线(月收>月开,0,量,yt,0),COLOReeaaEE,;
画柱线(月收<=月开,0,量,yt,0),Color6AA932,;
|
