|
现手买:=BUYVOL*DYNAINFO(7)*100/10000;
: t( Y- z/ y9 _7 X现手卖:=SELLVOL*DYNAINFO(7)*100/10000;
9 `1 }% b0 m5 z$ r: g合:=ABS(现手买)+ABS(现手卖);
* e2 R# U# b. A1 {6 E差:=ABS(现手买)-ABS(现手卖);; ~$ R6 C0 n: Z. K% i2 g
XM1:=ABS(现手买)/合*100;
. S+ B: B O+ z4 r- m& y8 FXM2:=ABS(现手卖)/合*100;
. i7 \4 D* z' ~! b0 [; L7 A8 [! t% h2 Q. X: c
DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}, D4 ]* K- Y0 G* [1 u# x
DRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}
6 j- L2 J j3 U# I: KDRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}
( _, M6 F* W3 K1 G( r) U7 N# d
- u' h6 P. Y/ G5 B* BDRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;' z" [; b& \# r8 w. |: ~
DRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;
1 q( r/ d0 `& R# A; i8 C6 ]8 IDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;
3 }' X4 A$ d1 A) s5 c/ v1 mDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;) q7 B/ f& {/ {
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;
! x% B3 D6 I+ k3 T2 L9 GDRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;" ? N W( I, [$ l! L+ n9 z5 l
DRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;
- S( ^2 o$ |( E' k2 U# }
* R1 z! M5 v4 R4 S, P6 L流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;, [6 ~, ]9 y0 p; V- a8 D6 j& p& H
N0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}& ?% A7 `0 L' e. d& X: N' w2 i
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}
4 E \6 ^; ]' R. ~7 f充实换手【天】:=N,NODRAW,COLORCYAN;
, L& [( c: _( H p. B- a5 ]# b成交额:=AMOUNT/10000,NODRAW;{万元}
2 z4 R o. A* bA2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}3 o! L9 I: g1 ^( A
A3:=SUM(IF(CLOSE即时:=550+换手*700/100;
. t& u# G, V3 u' y; Q4 NX1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);
( j$ Q0 e. a) i+ K DDRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};% }1 k5 R \7 k% }
DRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));8 Y' P+ p6 ?) L! k* ?
! t5 _, Y9 D) _8 n E' D% `1 f7 C" }
) m; n* E# S7 F9 v, aDRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;! F; D/ J( z0 R. G: c
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;5 I( A; n) D, k W( V, w
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |