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) doif dg[P] thenwx[P]:=0;elsewx[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,; |
