|
现手买:=BUYVOL*DYNAINFO(7)*100/10000;
( a2 A2 i5 c: g0 f现手卖:=SELLVOL*DYNAINFO(7)*100/10000;) A, @/ C) Y) A/ e4 N
合:=ABS(现手买)+ABS(现手卖);; _3 a$ g3 a8 \
差:=ABS(现手买)-ABS(现手卖);; @/ t5 ?; ?6 n2 j
XM1:=ABS(现手买)/合*100;
, q j0 u6 O2 l+ kXM2:=ABS(现手卖)/合*100; D2 K# V; v$ x% S" \3 ~: @
! _9 s0 B4 O1 Q0 m# X
DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}
4 X# @5 g& a: C- m0 \3 `9 FDRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}
0 H$ C* ]4 Z9 j$ i3 R4 v* XDRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}
" H6 F. M+ q; ^$ H( Y4 F# p a" z) M: I5 V8 n% _/ x8 b( s" @6 v. d- g
DRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;
; `) Q9 q" c! D6 g8 s/ sDRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;
, L; D' l+ s4 V3 P3 n8 eDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;
' ]$ q) Z$ Y% L5 F$ a2 i9 [1 L: Z9 EDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;+ K0 `6 Y& C( t! i3 Q$ e
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;. l6 s" O8 b8 m: \
DRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;6 N6 u( e x" D9 R% G
DRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;: S: g$ G3 U" Z3 h3 ]1 U
1 Z# g. A) w$ z0 r, h' u
流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;
7 ~& p2 a8 S; x+ L$ ?2 H9 s4 FN0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}% b' `8 c6 ~ U, H
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期} h/ m4 G# F# D& E8 |: X
充实换手【天】:=N,NODRAW,COLORCYAN;
4 p% a6 K1 @; c成交额:=AMOUNT/10000,NODRAW;{万元}
4 C- s5 z- q6 ?' p# K7 v; S) lA2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}
* A B$ V0 j$ J3 V% D0 R; O$ RA3:=SUM(IF(CLOSE即时:=550+换手*700/100;
" l# p' [& d! a0 O. o4 U0 pX1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);
+ |% o% a; K: k/ X6 P$ wDRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};
* l! p3 u! R2 d& |DRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1)); T4 R5 A/ m6 C) _$ d
( @* l9 m4 A; I% I' {; j4 {( p
* q" \; B7 C' m. K7 B5 Z
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;2 Z0 Q0 ?/ \6 g u4 u' {- h$ @
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;
9 u0 F& o% w; uDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |