|
现手买:=BUYVOL*DYNAINFO(7)*100/10000;
, O5 ^* _1 a0 v* `0 S, t现手卖:=SELLVOL*DYNAINFO(7)*100/10000; s! |/ _& C i# H" e+ S# E- P1 l
合:=ABS(现手买)+ABS(现手卖);3 u: C1 X$ K% c
差:=ABS(现手买)-ABS(现手卖);5 Q2 Q% |% f+ z7 X4 Y: ^
XM1:=ABS(现手买)/合*100;
& e2 o6 }, l& Z2 F% `XM2:=ABS(现手卖)/合*100;
) v0 ^# v1 ]& z" K/ n
. Q F: }0 \2 X, PDRAWRECTREL(520,900,970,550,RGB(255,255,255)); {图表底色-白}
" ^, R/ c- g7 V2 @6 SDRAWRECTREL(570,900,570+350*XM2/100,550,RGB(0,255,65)); {图表分隔-绿}
! l( K1 d. K& rDRAWRECTREL(570+350*XM2/100,900,920,550,RGB(255,0,0)); {图表分隔-红}' M2 E; k7 d& H9 [
6 Z! |- }$ q2 A8 z/ `
DRAWTEXT_FIX(DYNAINFO(4)>1,0.85,0.11,0,STRCAT(STRCAT('买 ',CON2STR(现手买,1)),'万手')),COLORRED;. n5 v* W1 l1 E+ h: L
DRAWTEXT_FIX(DYNAINFO(4)>1,0.57,0.11,0,STRCAT(STRCAT('卖 ',CON2STR(现手卖,1)),'万手')),COLORGREEN;
/ ? i7 u9 w0 C4 n* ?) KDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)>0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORRED;
' G5 J9 h3 x7 p6 \8 N# l, YDRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)<0,0.70,0.11,0,STRCAT(' 流向 ',STRCAT(CON2STR(差,1),'万手'))), COLORGREEN;' c6 Y, R; e3 ?+ j4 c3 [
DRAWTEXT_FIX(DYNAINFO(4)>1 AND(差)=0,0.70,0.11,0,STRCAT(' ',STRCAT(CON2STR(差,1),'万手'))), COLORYELLOW;9 ~; I' r% l+ L2 X. T6 p
DRAWTEXT_FIX(DYNAINFO(4)>1,0.58,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM2,1)),'%')),COLORGREEN;
" U" o2 U. n% s, t4 @DRAWTEXT_FIX(DYNAINFO(4)>1,0.86,0.3,0,STRCAT(STRCAT('占 ',CON2STR(XM1,1)),'%')),COLORRED;
! A$ c2 T5 @2 U5 r& `: e* L7 d! e! n5 S3 O# {( j' Y
流畅盘【亿】:CAPITAL/1000000,NODRAW,COLORMAGENTA;换手:=100*VOL/流畅盘【亿】/1000000;4 [* ]) s4 S+ N6 }6 M4 i' W8 ^
N0:=IF(换手>2.5,换手,0); {换手2.5以下作为散户行情忽略主力到场}) D0 j9 H6 N2 ]2 N3 x: s
N:=SUMBARS(N0,100),NODRAW; {充实换手机构运作周期}! K0 {( m0 \4 C6 E! R* t) u$ m. e
充实换手【天】:=N,NODRAW,COLORCYAN;6 x" ^, j; i i3 U
成交额:=AMOUNT/10000,NODRAW;{万元}4 w$ s# j- H: L1 G' E! D+ L
A2:=SUM(IF(CLOSE>REF(CLOSE,1),成交额*0.25,0),N); {25%为根本控盘,下同}" e" S* V9 T9 T. r4 j( n0 ~2 S
A3:=SUM(IF(CLOSE即时:=550+换手*700/100;2 C8 H2 B7 I5 p! z
X1:=IF(差>0,255,0);Y1:=IF(差>0,0,255);Z1:=IF(差>0,0,65);+ K& b3 g+ h& D5 x6 f. u
DRAWRECTREL(290,900,320,200,RGB(255,255,255)); {图表底色-白};
! ?9 i7 \. {* ]8 `; @5 A: J2 W- v# B$ jDRAWRECTREL(290,900,320,即时,RGB(X1,Y1,Z1));
$ ^9 { @5 Q: w1 {- P1 c+ J9 |
. U5 o; g% ?3 O1 L* }- d, i. N% L: Y2 e1 w
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.11,0,STRCAT(STRCAT('成交量 ',CON2STR(VOL,1)),'手')),COLORRED;/ q6 y( V6 Z. q& ?5 a
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.5,0,STRCAT(STRCAT('五天均量 ',CON2STR(V5,1)),'手')),COLORMAGENTA;+ l9 \4 W# N# l- y' R
DRAWTEXT_FIX(DYNAINFO(4)>1,0.33,0.8,0,STRCAT(STRCAT('十天均量 ',CON2STR(V10,1)),'手')),COLORYELLOW; |