现手买:=BUYVOL*DYNAINFO(7)*100/10000;; [! W, a( q' s( r, ~2 k
现手卖:=SELLVOL*DYNAINFO(7)*100/10000;/ m" F3 m$ V- Q6 F+ H2 B
合:=ABS(现手买)+ABS(现手卖);
1 `* @5 y/ e2 Z% ]$ T差:=ABS(现手买)-ABS(现手卖);1 a4 G# O! Q- G1 R, p+ V- L H
XM1:=ABS(现手买)/合*100;
$ m \- }" p( r' R" ?XM2:=ABS(现手卖)/合*100;
( @0 \8 A8 ~! m3 a
# G n5 |9 v) W# z& gDRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}4 n+ V) Y$ V' z* u
DRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}
/ a+ O f$ {- L' ]. n' O; XDRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}
/ Z% k9 t2 f9 o: \
+ \$ ?0 V; }- S5 l( x1 a% vDRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;
& H! i4 p& S- WDRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;
4 T' c C9 z3 Q& s8 i& n4 lDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;% G7 S6 J4 `8 v; \" `# B
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;
( t! C) a1 {& d: a& W+ LDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;
# }0 B! ]& F8 G# M, p8 c# a5 i, `DRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;
! s a x7 Z( Q( n4 t( C! U) cDRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;
& N ]3 o* T$ E: g+ v4 r0 \7 V( B5 P( v( W' _9 F- E( _% B4 D
流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;
5 E/ \, M6 I& @! [* P( bN0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}/ s# H' M$ [8 _+ b) k) l% Q
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}5 A, M2 }6 x% E: [6 y5 a% @
充实换手【天】:=N,NODRAW,COLORCYAN;
" J! C. p7 i- k6 b. K+ T' b/ m成交额:=AMOUNT/10000,NODRAW;{万元}0 [9 w# }- H' b+ O6 x5 y5 ]; B
A2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}+ U: J! q( l4 E" o/ Z
A3:=SUM(IF(CLOSE即时:=550+换手*700/100;2 W. a z& e3 N. r
X1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);
+ D" _; f, Q% Z' j/ J4 w- `; a5 bDRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};% w- z2 O0 O" p/ g3 s
DRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));
( c# s% K8 [3 K
' G8 R" v) V _0 R0 V1 e! y
" c; E4 I2 m4 z" bDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;
& M) c$ A1 j9 c, K; K: HDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;6 g) }4 O2 ~! e! _% x3 W- G
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |