|
现手买:=BUYVOL*DYNAINFO(7)*100/10000;6 k% y6 o% A, a. a
现手卖:=SELLVOL*DYNAINFO(7)*100/10000;
- O+ C" f& K/ @$ ]! c/ L4 t$ |3 I7 W' y% W合:=ABS(现手买)+ABS(现手卖);2 D; }3 j0 ]4 T1 {8 C% D1 B3 l& _
差:=ABS(现手买)-ABS(现手卖);
6 x4 p- A8 B, B1 I/ Z% mXM1:=ABS(现手买)/合*100; - ~$ N, L5 t9 F2 M. I4 m1 t1 e
XM2:=ABS(现手卖)/合*100; 2 u: q# ]& W/ D9 v. Q$ @
+ f# Y8 M4 H9 |+ X0 R
DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}
) I6 u: L' T2 ^- NDRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}
, n0 S2 n* a- V$ P4 c7 eDRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}. e& S. O5 l( l5 p
: g9 \8 X& L |' }, a
DRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;4 ~" D; S0 x) u I+ @- C
DRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;
9 ]9 \5 F# V: g( W6 fDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;
4 e2 E( Y3 [) L$ d+ z, QDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;0 Z( W& |0 k8 v- e, D! K: Y7 d
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;
' m" t+ @% t5 `5 Q8 T5 UDRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;
. l( d4 a" v" h; R# N; zDRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;
l7 q1 @7 R& d* @! @, }0 ?) _ | j+ `( D) L% V& R
流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;
. Q) l* y3 V1 f4 _* n3 B" \N0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}+ V7 T& W1 V! o4 t
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}
9 D0 G: O8 p- p$ z& p: l- ~5 i充实换手【天】:=N,NODRAW,COLORCYAN;7 t& F- J0 ?# a. @; C; v* _1 w
成交额:=AMOUNT/10000,NODRAW;{万元}/ v: @ z, H2 ?3 A/ [1 T6 [8 c3 ~
A2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}" O9 e( k# i! W+ e
A3:=SUM(IF(CLOSE即时:=550+换手*700/100;
+ E6 s8 C: s! l0 ZX1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);% a9 M+ j1 o2 }
DRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};8 ~; ] o! m! w9 b7 U3 C8 p
DRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));8 r8 v. }! e! V. i1 ?" i6 y
# a3 F) q2 [1 u' w
. c& w+ n t Q0 Z [$ @8 _. YDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;
0 @8 V. u. S8 P% Z+ L: QDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;
1 D2 B# K: O" QDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |