現(xiàn)手買:=BUYVOL*DYNAINFO(7)*100/10000; 現(xiàn)手賣:=SELLVOL*DYNAINFO(7)*100/10000; 合:=ABS(現(xiàn)手買)+ABS(現(xiàn)手賣); 差:=ABS(現(xiàn)手買)-ABS(現(xiàn)手賣); XM1:=ABS(現(xiàn)手買)/合*100; XM2:=ABS(現(xiàn)手賣)/合*100; DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {圖表底色-白} DRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {圖表分隔-綠} DRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {圖表分隔-紅} DRAWTEXT_FIX(1,0.85,0.11,0,STRCAT(STRCAT(‘買 ’,CON2STR(現(xiàn)手買,1)),‘萬’)),COLORRED; DRAWTEXT_FIX(1,0.57,0.11,0,STRCAT(STRCAT(‘賣 ’,CON2STR(現(xiàn)手賣,1)),‘萬’)),COLORGREEN; DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)》0,0.70,0.11,0,STRCAT(‘ 流向 ’,STRCAT(CON2STR(差,1),‘萬’))), COLORRED; DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)《0,0.70,0.11,0,STRCAT(‘ 流向 ’,STRCAT(CON2STR(差,1),‘萬’))), COLORGREEN; DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(差)=0,0.70,0.11,0,STRCAT(‘ ’,STRCAT(CON2STR(差,1),‘萬’))), COLORYELLOW; DRAWTEXT_FIX(1,0.58,0.3,0,STRCAT(STRCAT(‘占 ’,CON2STR(XM2,1)),‘%’)),COLORGREEN; DRAWTEXT_FIX(1,0.86,0.3,0,STRCAT(STRCAT(‘占 ’,CON2STR(XM1,1)),‘%’)),COLORRED; 成交額:=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; AA1:=STRCAT(STRCAT(‘ 機構(gòu)買’,CON2STR((100*A2)/A6,0)),‘%’); AA2:=STRCAT(STRCAT(‘ 機構(gòu)賣’,CON2STR((100*A3)/A6,0)),‘%’); AA3:=STRCAT(STRCAT(‘ 機構(gòu)流’,CON2STR((100*(A2-A3))/A6,0)),‘%’); DRAWTEXT_FIX(DD1=1,0,0.5,0,AA1),COLORRED; DRAWTEXT_FIX(DD1=1,0,0.8,0,AA2),COLORGREEN; DRAWTEXT_FIX(DD1=1,0,0.11,0,AA3),COLORYELLOW; {圖表上再加點花頭} V5:=MA(VOL,5); V10:=MA(VOL,10); 虛量:=IF(ISLASTBAR AND FROMOPEN《240,F(xiàn)ROMOPEN*VOL/240,VOL); 流通盤【億】:CAPITAL/1000000,NODRAW;換手:=100*VOL/流通盤【億】/1000000; 即時:=550+換手*700/100; X1:=IF(差》=0,255,0);Y1:=IF(差》=0,0,255);Z1:=IF(差》=0,0,65); DRAWRECTREL(180,900,220,200,RGB(255,255,255)); {圖表底色-白}; DRAWRECTREL(180,900,220,即時,RGB(X1,Y1,Z1)); DRAWTEXT_FIX(1,0.28,0.11,0,STRCAT(STRCAT(‘成交量 ’,CON2STR(虛量,1)),‘手’)),COLORRED; DRAWTEXT_FIX(1,0.28,0.5,0,STRCAT(STRCAT(‘五天均量 ’,CON2STR(V5,1)),‘手’)),COLORMAGENTA; DRAWTEXT_FIX(1,0.28,0.8,0,STRCAT(STRCAT(‘十天均量 ’,CON2STR(V10,1)),‘手’)),COLORYELLOW; |
|