现手买:=BUYVOL*DYNAINFO(7)*100/10000;( E, [, J( i' b4 E
现手卖:=SELLVOL*DYNAINFO(7)*100/10000;
0 i& S1 c2 j/ R' C合:=ABS(现手买)+ABS(现手卖);
& C6 c1 Q! Y+ H# V O差:=ABS(现手买)-ABS(现手卖);! j2 p+ O7 g2 {: S
XM1:=ABS(现手买)/合*100; : P7 M! X& l3 n5 y2 [
XM2:=ABS(现手卖)/合*100; ! D+ z/ w- q* N2 X V/ q; e
u: y4 n: F: Q% j
DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}! E+ b+ c3 j1 r: H1 a
DRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}$ h1 ?& Y( U# C. @: b, k" g
DRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}
! }3 `6 B* Q' u, j, D8 S
0 m; d. r2 m5 _' C9 x- X$ j2 ADRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED; o8 m0 A7 ]5 y3 R, u' _
DRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;
0 R5 J9 q8 u TDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;( Y5 K( ]# S0 x( H: c
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;
; e# f( R ~% r9 e9 y4 z5 c: ]DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;
( L, I+ }3 D6 g$ S9 Z% G2 | kDRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;6 z) V. F) y* D) Y% X" M
DRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;* b) C- A9 p% \+ Y% P' z& D% Z
( V' O+ j( B7 `9 {, h1 o流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;4 T7 G+ A* |0 F. F( m' L
N0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}
+ @ L, z4 o4 eN:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}
$ p- m6 C7 W( ]. D8 k ~# j充实换手【天】:=N,NODRAW,COLORCYAN;# E$ P( x8 z, T! Y' A7 b7 T* ?, A) `
成交额:=AMOUNT/10000,NODRAW;{万元}
' C# t$ G1 J1 b* M |% a) Q$ eA2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}
* \# G' ^+ P2 o9 X$ {1 }' s$ @A3:=SUM(IF(CLOSE即时:=550+换手*700/100;- ]/ f$ O6 L5 \7 u9 T8 [
X1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);
* n5 f& z5 | y: {% ^DRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};$ W k7 w5 u0 r9 @) O# H6 J, W
DRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));+ G( I2 R c1 m- |! d
) H, J/ ^5 F% a9 ?
( i7 H+ P6 R* Z# M+ Z* k9 uDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;
8 Z* s# E* g6 q( fDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;
0 ?$ z5 j) @5 {$ [# ]" |! UDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |