|
现手买:=BUYVOL*DYNAINFO(7)*100/10000;
2 U [/ `! z4 H现手卖:=SELLVOL*DYNAINFO(7)*100/10000;" @$ D1 S( T' F& q6 ~( ]
合:=ABS(现手买)+ABS(现手卖);
* g) H. O y" d! n差:=ABS(现手买)-ABS(现手卖);
, I' n2 k" m3 G" {7 UXM1:=ABS(现手买)/合*100; 1 b2 ~. u! J+ D1 M1 ^
XM2:=ABS(现手卖)/合*100; 0 Y, O3 a* V7 U- _/ r3 Q h
$ U9 @; M6 @8 k1 z- w. `2 g( n5 M
DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}
/ d$ {8 S4 Y" w( \ a z$ WDRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}
6 n; z# R: G# i* ]DRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}
8 ~* d I- Z( s& x/ ]5 h* d9 u* W! W1 k
DRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;
" Z R! E- R8 T+ RDRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;
- Z5 [) ^- p: s5 q4 [ xDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;
6 Q1 o1 J$ z* I hDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;1 L) W; d7 T7 r$ g9 ~% b
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;" k- x, h0 b# U- g& }' l
DRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;
. v8 M& H' o( }2 Y* qDRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;) Z+ X( [, k( L1 j S( A
- d3 S. l' L! H+ O# Z流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;
& I0 w m/ ~+ P/ x% y* X0 eN0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}" R) g" }- k! L$ X6 X+ R
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}
: p3 w, I: s! o$ P1 d- P& r. F; r充实换手【天】:=N,NODRAW,COLORCYAN;6 `- `4 D! g6 r3 i: s+ X' s9 a
成交额:=AMOUNT/10000,NODRAW;{万元}* u) t. P! Z- X9 X- p* `' [4 E
A2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}0 [; T# z+ W9 h/ S* Y/ I# Z! I
A3:=SUM(IF(CLOSE即时:=550+换手*700/100;" `; d, B M. e
X1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);
" M* V! L0 O, EDRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};
. N: A/ C, V) E. ]' d! xDRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));
3 ~# n2 b: K* A2 R; F e1 d5 r
' \1 j+ ]% |* Z( @1 D, U0 G& E2 b7 ^4 P% _
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;
4 c# L1 Q& ? t7 @DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;8 ^6 Q1 s& o4 I# R C
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |