现手买:=BUYVOL*DYNAINFO(7)*100/10000;8 x% n, J3 U+ X, ^9 M
现手卖:=SELLVOL*DYNAINFO(7)*100/10000;
3 G5 G& ^* T+ s( ?4 |/ x; `合:=ABS(现手买)+ABS(现手卖);( @, s5 Y' n0 p
差:=ABS(现手买)-ABS(现手卖);9 i2 s4 \6 W5 I7 q$ w+ @& a
XM1:=ABS(现手买)/合*100; 4 @- Q. ~- j2 t/ @2 y
XM2:=ABS(现手卖)/合*100;
1 y" n! z* \5 S9 r8 {2 E9 S+ W- r8 x; k9 h* f6 w/ y; \
DRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}
/ }$ [% }- ?; B5 |3 c1 F1 ADRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}4 `( M r4 ~0 v4 t& c& u# q
DRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}+ p' h5 V6 Q, ^+ X
3 o9 u9 |! u/ I
DRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;
* ^- S1 e9 s f4 _1 _DRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;1 Q4 x8 l( \7 q8 u/ c; u
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;& W# _1 B1 ?2 P! T% f- Z
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;! x( C0 P! j# U
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;. O4 R' o0 l6 v7 U- C
DRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;
. X: z+ p; ~; c* V4 LDRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;2 E& @) S" O# p5 o
+ C5 p- ], F1 @; K9 W5 V流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;/ S- T) y M8 w6 u# @5 E# c
N0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}1 K6 d; U' ?- i+ F" r) I% P5 t4 W
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}
/ P# G" O4 o7 _充实换手【天】:=N,NODRAW,COLORCYAN;+ |( Y8 i3 _. Y# f
成交额:=AMOUNT/10000,NODRAW;{万元}3 F5 D& m' O+ M6 _
A2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}
7 E7 ]- B1 G/ R' n4 j8 o- {8 hA3:=SUM(IF(CLOSE即时:=550+换手*700/100;% S, k: E* e3 v3 L' g2 U
X1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);3 S$ X8 U* D0 e" w5 O/ V2 E
DRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};
J8 l0 y! ?, Z! zDRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));3 A* c2 [& K' @: A2 K
. \# @9 E) ^# o9 X" K# e$ f. g$ ?- Y5 X; Q9 a5 {
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;
& b" G; M4 i( O$ |DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;: x# Y6 F' K' h; d- P# L; B4 {
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |