現(xiàn)手買:=BUYVOL*DYNAINFO(7)*100/10000 COLOR0000FF,NODRAW;
現(xiàn)手賣:=SELLVOL*DYNAINFO(7)*100/10000 COLOR00FF00,NODRAW;
合:=ABS(現(xiàn)手買)+ABS(現(xiàn)手賣)COLOR80FFFF,NODRAW;
差:=ABS(現(xiàn)手買)-ABS(現(xiàn)手賣)COLOR80FFFF,NODRAW;
MPB1:=ABS(現(xiàn)手買)/合*100;
MPB2:=ABS(現(xiàn)手賣)/合*100;
TESTSKIP(NOT(現(xiàn)手買 OR 現(xiàn)手賣 OR 合 OR 差 OR MPB1 OR MPB2)!=0);
DRAWRECTREL(640,1000,940,940,RGB(190,190,190));
DRAWRECTREL(640,995,940,945,RGB(200,200,200));
DRAWRECTREL(640,990,940,950,RGB(210,210,210));
DRAWRECTREL(640,985,940,955,RGB(220,220,220));
DRAWRECTREL(640,980,940,960,RGB(230,230,230));
DRAWRECTREL(640,975,940,965,RGB(240,240,240));
DRAWRECTREL(640,970,940,970,RGB(250,250,250));
DRAWRECTREL(790-現(xiàn)手賣*210/合,1000,790,940,RGB(0,128,0));
DRAWRECTREL(790-現(xiàn)手賣*210/合,995,790,945,RGB(0,148,0));
DRAWRECTREL(790-現(xiàn)手賣*210/合,990,790,950,RGB(0,168,0));
DRAWRECTREL(790-現(xiàn)手賣*210/合,985,790,955,RGB(0,188,0));
DRAWRECTREL(790-現(xiàn)手賣*210/合,980,790,960,RGB(0,208,0));
DRAWRECTREL(790-現(xiàn)手賣*210/合,975,790,965,RGB(0,228,0));
DRAWRECTREL(790-現(xiàn)手賣*210/合,970,790,970,RGB(0,248,0));
DRAWRECTREL(790-現(xiàn)手賣*210/合,940,790-現(xiàn)手賣*210/合,1000,RGB(0,128,0));
DRAWRECTREL(790,1000,790+現(xiàn)手買*210/合,940,RGB(128,0,0));
DRAWRECTREL(790,995,790+現(xiàn)手買*210/合,945,RGB(148,0,0));
DRAWRECTREL(790,990,790+現(xiàn)手買*210/合,950,RGB(168,0,0));
DRAWRECTREL(790,985,790+現(xiàn)手買*210/合,955,RGB(188,0,0));
DRAWRECTREL(790,980,790+現(xiàn)手買*210/合,960,RGB(208,0,0));
DRAWRECTREL(790,975,790+現(xiàn)手買*210/合,965,RGB(228,0,0));
DRAWRECTREL(790,970,790+現(xiàn)手買*210/合,970,RGB(248,0,0));
DRAWRECTREL(790+現(xiàn)手買*210/合,940,790+現(xiàn)手買*210/合,1000,RGB(128,0,0));
DRAWRECTREL(789.8,940,790.2,1000,RGB(0,0.0,10));
DRAWRECTREL(639.8,940,640.2,1000,RGB(0,0,10));
DRAWRECTREL(939.8,940,940.2,1000,RGB(0,0,10));
DRAWRECTREL(0,940,1000,940.2,RGB(0,0,10));
DRAWTEXT_FIX(1,0.9,0.88,0,STRCAT(STRCAT(”,CON2STR(現(xiàn)手買,1)),’萬’)),COLOR0000FF;
DRAWTEXT_FIX(1,0.61,0.88,0,STRCAT(STRCAT(”,CON2STR(現(xiàn)手賣,1)),’萬’)),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)>0,0.755,0.88,0,STRCAT(‘ ‘,STRCAT(CON2STR(差,1),’萬’))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)<0,0.755,0.88,0,STRCAT(' ',STRCAT(CON2STR(差,1),'萬'))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)=0,0.755,0.88,0,STRCAT(‘ ‘,STRCAT(CON2STR(差,1),’萬’))) COLOR80FFFF;
DRAWTEXT_FIX(1,0.58,0.97,0,STRCAT(STRCAT(‘ ‘,CON2STR(MPB2,1)),’%%’)),COLOR00FF00;
DRAWTEXT_FIX(1,0.94,0.97,0,STRCAT(STRCAT(”,CON2STR(MPB1,1)),’%%’)),COLOR0000FF;
成交額:=V*C/100,NODRAW;{萬元}
A2:=SUM((IF(((成交額/8>20) AND (CLOSE>(REF(CLOSE,1)))),成交額,0)),0);
A3:=SUM((IF(((成交額/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交額,0)),0);
A6:=(A2+A3);
A7:=IF((ISLASTBAR),((100*A2)/A6),0);
A8:=IF((ISLASTBAR),((100*A3)/A6),0);
DD1:=1;
AAA1:=STRCAT(STRCAT(‘機(jī)構(gòu)買’,CON2STR((100*A2)/A6,0)),’%%’);
AAA2:=STRCAT(STRCAT(‘機(jī)構(gòu)賣’,CON2STR((100*A3)/A6,0)),’%%’);
AAA3:=STRCAT(STRCAT(‘總買入’,CON2STR((100*(A2-A3))/A6,0)),’%%’);
DRAWTEXT_FIX(DD1=1,0,0.02,0,AAA1),COLORRED;
DRAWTEXT_FIX(DD1=1,0,0.13,0,AAA2),COLOR00FF00;
DRAWTEXT_FIX(DD1=1,0,0.24,0,AAA3),COLOR00FFFF;