现手买:=BUYVOL*DYNAINFO(7)*100/10000; 现手卖:=SELLVOL*DYNAINFO(7)*100/10000; 合:=ABS(现手买)+ABS(现手卖); 差:=ABS(现手买)-ABS(现手卖); XM1:=ABS(现手买)/合*100; XM2:=ABS(现手卖)/合*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(现手买,1)),‘万’)),COLORRED; DRAWTEXT_FIX(1,0.57,0.11,0,STRCAT(STRCAT(‘卖 ’,CON2STR(现手卖,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(‘ 机构买’,CON2STR((100*A2)/A6,0)),‘%’); AA2:=STRCAT(STRCAT(‘ 机构卖’,CON2STR((100*A3)/A6,0)),‘%’); AA3:=STRCAT(STRCAT(‘ 机构流’,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,FROMOPEN*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; |
|