|
现手买:=BUYVOL*DYNAINFO(7)*100/10000;
; B% ~" l' L7 X) H( q. _- a: N现手卖:=SELLVOL*DYNAINFO(7)*100/10000;% r$ R6 S: X+ K( e `
合:=ABS(现手买)+ABS(现手卖);
$ k4 `# o ^9 f差:=ABS(现手买)-ABS(现手卖);. y" l4 h: @3 G% h/ q
XM1:=ABS(现手买)/合*100;
+ y. ]- u1 P2 M7 a! zXM2:=ABS(现手卖)/合*100; ) N' M' t" U) `0 m: s; O
5 |: A( E( p. v8 X- U- r# u7 ^8 G4 r
DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}- k' q' k* X I$ t0 A
DRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}
7 Q* H' R* {, r2 h. K0 ODRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}
- t; U) Y: h9 {; p# s' ]. F) A9 N: s, y) k7 A! e/ N3 ^9 f! _6 y
DRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;
+ z. s# [/ t" A3 x* gDRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;# \; O/ {2 d$ P, ?
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;
( l' G; z2 L, K. iDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN; x, V0 |3 O- Z! i6 K! U% H
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;+ F' B! h3 T4 f& w/ ~
DRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;
$ u6 S8 ]& z$ ^; M i: F( W! G) [DRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;% N) h G# m! s" @: J9 ?: b. V
- N, v& s. j) x) V. m; ?* ^1 G8 i' B流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;/ E3 l% b' Z1 A \* m2 m
N0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}! v5 Q. {5 A& c' X2 x: H
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}
, E2 q3 Z8 V1 Y: k( c充实换手【天】:=N,NODRAW,COLORCYAN;/ q" b9 r9 n# C1 S! g
成交额:=AMOUNT/10000,NODRAW;{万元}
; c* B/ U1 ?6 w1 c3 ]A2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}
. E; S& [ o. J$ `+ L4 g* ZA3:=SUM(IF(CLOSE即时:=550+换手*700/100;
" b) N# s f" [X1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);) j! x) a1 ~6 W# _# c
DRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};
_' ~3 B& L# `# KDRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));; E: `, c1 ~5 S) b
, L5 y; q5 m' J, A3 b
' ~7 x$ X: y! e
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;
1 f, U u3 U1 D; h' m# MDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;
9 Z7 a0 _3 x* x* v: T( H- WDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |