当天资金流向(副图） 通达信
现手买:=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(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;
DRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT('',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;
DRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;
DRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;
流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;
N0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}
N:=SUMBARS(N0,100),NODRAW;{充实换手机构运作周期}
充实换手【天】:=N,NODRAW,COLORCYAN;
成交额:=AMOUNT/10000,NODRAW;{万元}
A2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘，下同}
A3:=SUM(IF(CLOSE即时:=550+换手*700/100;
X1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);
DRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};
DRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW;
页:
[1]