现手买:=BUYVOL*DYNAINFO(7)*100/10000;
, K, `1 k$ x+ s$ ]) F现手卖:=SELLVOL*DYNAINFO(7)*100/10000;% a& R) @5 A- A
合:=ABS(现手买)+ABS(现手卖);
v6 X9 ^) s3 E4 Z3 [- E4 y差:=ABS(现手买)-ABS(现手卖);
! V! n6 O1 ?* R- R8 ~6 `" RXM1:=ABS(现手买)/合*100; - q: _- v+ r% [) ?3 A$ q
XM2:=ABS(现手卖)/合*100;
3 B5 O0 l# q+ y' m+ @6 B
! u' T2 g4 j1 ~! NDRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}
. `( L* X6 w/ a; FDRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}9 D7 {0 J( V6 a# B3 n% f
DRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}
1 f8 z3 {$ f3 v9 l/ q* U+ ^
: U$ c: y3 R1 z6 [1 l6 G4 m& q! [DRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;1 R5 P; o, v) x5 i6 p. a: @
DRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;' q; t; h$ P7 @! c8 r
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;
+ P8 p* e% o7 W4 H7 n GDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;2 I2 s7 A7 o- V
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;3 I7 D% i7 W: ?: c- D4 r# K
DRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;. l: d- }. w1 @$ t. p- c1 m
DRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;
2 A& C6 X( B! I6 B9 {* S" ?0 j' ^4 ~! f! H4 _4 D: P# G9 U# V5 F# W- v
流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;
' r6 N: [8 L* j: PN0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场} `" D# z' O; _
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}& m, r9 }* M2 V9 V* d( n/ t
充实换手【天】:=N,NODRAW,COLORCYAN;$ U7 A6 ]) t. I& {
成交额:=AMOUNT/10000,NODRAW;{万元}) T2 |) M; W$ B. `6 u
A2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}
: C; J& T( F1 j; G0 ^5 VA3:=SUM(IF(CLOSE即时:=550+换手*700/100;
- O- }( `" J1 y$ P5 HX1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);
+ N) ^- ^; Q: n! Y- B# f: zDRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};$ x7 n# o# J7 j0 ~
DRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));
; F4 {" l/ `2 F/ i, \: } [. y' p$ G- e- p! M, H E2 H
' m. K3 f; C# Z" [, y; Z
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;
/ b; l0 Y# s1 zDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;
# X; r9 Z: r5 E1 H& D8 X0 SDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |