|
小单买:=1-BIGORDER(1,1)*V/CAPITAL; & t1 h: J4 M8 B; S6 q) Z8 h0 E
小单卖:=1-BIGORDER(2,1)*V/CAPITAL;
! a6 U6 U+ S- p0 ^- @散户净买:=(小单买-小单卖)*100;
+ {/ H% R% G0 i# x* f8 I$ u散户:sum(散户净买,1),linethick0,COLORGREEN; & C5 H2 u# `5 q
中户买:=BIGORDER(1,1)*V/CAPITAL-BIGORDER(1,2)*V/CAPITAL; 7 n+ D0 r Z6 N* v# `2 i' j( E
中户卖:=BIGORDER(2,1)*V/CAPITAL-BIGORDER(2,2)*V/CAPITAL; 3 D- X4 s% ^7 a* {
中户净买:=(中户买-中户卖)*100;
" u+ b# X' I, I9 r, \1 `5 N中户:sum(中户净买,1),linethick0,colorf00ff0; * N! @& ^* U: q+ L$ \
大户买:=BIGORDER(1,2)*V/CAPITAL-BIGORDER(1,3)*V/CAPITAL; ; K/ E7 h% @' E
大户卖:=BIGORDER(2,2)*V/CAPITAL-BIGORDER(2,3)*V/CAPITAL;
9 H# p# _% q' X7 _/ [* V8 ~$ q; |大户净买:=(大户买-大户卖)*100;
) C9 W S7 V, O$ f+ V: d! o大户:sum(大户净买,1),linethick0,colorf0f000;
8 Q* F. @1 c, a6 O( U8 J机构买:=BIGORDER(1,3)*V/CAPITAL;
4 A3 G: n6 G: H3 v# v! R2 J# Y机构卖:=BIGORDER(2,3)*V/CAPITAL; , m9 P& v; y7 K/ N$ a5 N' | ?) T5 R3 C
机构净买:=(机构买-机构卖)*100;
! B% |* i$ L- ~1 K% p) |超大:sum(机构净买,1),linethick0,color3399FF;
7 E0 o& R3 l2 \; M4 {& I4 g+ N大单买:=BIGORDER(1,2)*V/CAPITAL; ) k; d6 M3 l$ a5 W$ X$ D
大单卖:=BIGORDER(2,2)*V/CAPITAL;
/ r4 E7 }- D7 U, O2 P主力 大单买-大单卖)*100,linethick0,COLORRED;
; i) p' X( y5 S: n" S# p( l散户增减:=散户-ref(散户,3); ! I$ u7 E8 z% _5 {
中户增减:=中户-ref(中户,5);
9 x/ q8 n% e8 `% n& w, D' `- }& A大户增减:=大户-ref(大户,3);
0 s" J5 g" m' Q超大增减:=超大-ref(超大,10); / P# G6 J- k) p2 w! {3 B8 D( t
主力增减:=主力-ref(主力,5); 7 A4 f0 z. e% E: u3 A1 e9 l
S3:=ref(散户,3); 2 L3 M( A% q" n) s0 m/ q0 k0 x
Z3:=ref(中户,3);
, D; X" n V3 W1 ?- O* m. QD3:=ref(大户,3); ' N( M' C4 M5 C1 B
F3:=ref(超大,3); ' v4 z" Q6 C: E) P. M' i. U
J3:=ref(主力,3);
+ }2 \ p2 E5 E0 w6 ?* tS5:=ref(散户,5);
# ?* C0 m& R! JZ5:=ref(中户,5);
* [" w* H! Y- h- ~ Q" wD5:=ref(大户,5); ' E3 u2 n0 \. S* R O% m, _
F5:=ref(超大,5); 1 m7 _ S; C8 r: a/ p0 d
J5:=ref(主力,5);
3 l- J9 G& _2 l3 \1 AS10:=ref(散户,10); & X, _" |" q& A. A
Z10:=ref(中户,10);
7 ~ s W) ]7 W! |D10:=ref(大户,10);
: S$ z/ T* ~2 `' EF10:=ref(超大,10);
' \/ z& Y) G6 LJ10:=ref(主力,10); 0 O9 u; U& q& ^% S
S20:=ref(散户,20); ; `- o& \# B2 L) `
Z20:=ref(中户,20); % k q/ } R+ j" ]
D20:=ref(大户,20); 3 t: l( o- w9 C: O. o% {2 I! H0 b0 c
F20:=ref(超大,20);
7 q p3 w; H% ^( q9 D" ^/ f3 b' r% cJ20:=ref(主力,20);
K4 `" [; g |" V9 LBL3:=400/MAX(S3,Z3,D3,F3,J3);
) w, D5 Z& U' s) |: j1 ^5 {7 jBL5:=400/MAX(S5,Z5,D5,F5,J5);
9 c( R. E+ P6 U3 J" M5 UBL10:=400/MAX(S10,Z10,D10,F10,J10);
) Y% w" m0 N% tBL20:=400/MAX(S20,Z20,D20,F20,J20);
2 Z* u6 A) j+ w0 ~4 q# B7 SS3B:=999-S3*BL3; 1 k! R2 q; [; o+ l/ o- k
Z3B:=999-Z3*BL3; ( j% t/ z. X, X
D3B:=999-D3*BL3; ) r+ B) ?0 e! U0 O$ D0 z, L+ V
F3B:=999-F3*BL3;
# Y; }4 }% o* w: h5 S4 ?J3B:=999-J3*BL3;
' B1 g; L; P) W# h8 AS5B:=999-S5*BL5; $ r n* {, j+ z1 ~. J! X7 i8 }
Z5B:=999-Z5*BL5;
! J7 D# t' m3 QD5B:=999-D5*BL5; ) w9 z' K! ^: v' n7 a
F5B:=999-F5*BL5; % W } K6 R1 l1 i e8 j* r8 b+ K
J5B:=999-J5*BL5;
! _( D9 L2 i2 AS10B:=999-S10*BL10;
, Z* y3 J, g6 c1 s2 [- aZ10B:=999-Z10*BL10; : _$ F4 L8 e! V$ \! |
D10B:=999-D10*BL10; ! |5 w; Q3 j+ T" e5 B
F10B:=999-F10*BL10;
, f3 ?# U$ [ P) _J10B:=999-J10*BL10; 3 S% m; S- @4 y5 v3 ~ G' s2 V
S20B:=999-S20*BL20;
' P- u8 i/ m4 @3 y' t7 d& bZ20B:=999-Z20*BL20; 1 b( \' P: i% S. K7 Y8 _) d" c# u. h& g
D20B:=999-D20*BL20;
2 a, ~7 ~6 w( B% m; m$ B6 |7 }/ r, eF20B:=999-F20*BL20; ' z2 \1 x* ?# {6 M7 _2 y8 g. i
J20B:=999-J20*BL20; 6 X" ]6 \; S8 t* Z h# x
{画直方图}
7 E9 `6 F4 W, q8 s; TDRAWRECTREL(10,S3B,40,999,RGB(0,255,0)); 5 S" E$ A( w8 n. Z( y8 u
DRAWRECTREL(30,Z3B,60,999,RGB(180,0,100)); # Z9 z8 I) S1 O$ |& N" M
DRAWRECTREL(50,D3B,80,999,RGB(0,0,255)); 9 k; [+ ?0 Q* ?$ J5 d7 h. R) C6 C
DRAWRECTREL(70,F3B,100,999,RGB(180,100,0));
$ ~+ H* P& p# z% Z% j: w+ [1 l5 zDRAWRECTREL(90,J3B,120,999,RGB(255,0,0)); . D3 g7 S% W" E1 U/ B2 O2 p) O) J
DRAWRECTREL(140,S5B,170,999,RGB(0,255,0)); * O" W' J; N, S& H. h7 q6 q
DRAWRECTREL(160,Z5B,190,999,RGB(180,0,100)); - y" [) H; H' L# w3 t+ Q
DRAWRECTREL(175,D5B,210,999,RGB(0,0,255));
{9 D7 |) r: I) q C0 vDRAWRECTREL(200,F5B,230,999,RGB(180,100,0));
2 Z3 l$ d; D5 K: [# z7 ?7 ]$ bDRAWRECTREL(220,J5B,250,999,RGB(255,0,0));
3 A; \$ W, A, V" Z5 b1 o, oDRAWRECTREL(270,S10B,300,999,RGB(0,255,0)); 1 L" S! q% y8 u1 N. S. ]6 f! ?* f% m
DRAWRECTREL(290,Z10B,320,999,RGB(180,0,100));
: @& d/ i( W5 `- N" JDRAWRECTREL(310,D10B,340,999,RGB(0,0,255));
( l- l7 J7 u8 Y) ADRAWRECTREL(330,F10B,360,999,RGB(180,100,0));
2 W' y# E Y! Q% m5 hDRAWRECTREL(350,J10B,380,999,RGB(255,0,0));
2 r3 K8 Q: ^5 Z3 I/ h1 y: gDRAWRECTREL(400,S20B,430,999,RGB(0,255,0)); j: L J. ?- i& l
DRAWRECTREL(420,Z20B,450,999,RGB(180,0,100));
$ C' @1 s$ u. u6 N: rDRAWRECTREL(440,D20B,470,999,RGB(0,0,255));
7 V. l3 V# c: |% O9 w) e% {DRAWRECTREL(460,F20B,490,999,RGB(180,100,0)); 8 b! V* `( s$ Z. Q4 ~
DRAWRECTREL(480,J20B,510,999,RGB(255,0,0)); + x) c/ W. F" \7 f2 {& [
DRAWTEXTREL(80,5,''散户''),color00ff00; * p. ~7 |' O, q8 Z7 I
DRAWTEXTREL(160,5,''中户''),colorf00ff0;
$ E m( W( \ B9 XDRAWTEXTREL(240,5,''大户''),colorffaa66;
) O. d8 p2 ^9 j' ]DRAWTEXTREL(320,5,''超大''),color0099ff; $ x8 I) ]" u0 U$ Y7 L6 F# p, q& b
DRAWTEXTREL(400,5,''主力''),colorred; " G9 G% Q' \, t. _' b
DRAWTEXTREL(30,70,''本日''),colorddffff; 8 \3 K/ X# R9 _9 K k
DRAWTEXTREL(80,70,NUMTOSTRN(散户,2)), color00ff00;
' G% ? t! m/ {1 G) ^1 d% Z- JDRAWTEXTREL(160,70,NUMTOSTRN(中户,2)),colorf00ff0;
6 e) @' R' a4 O& VDRAWTEXTREL(240,70,NUMTOSTRN(大户,2)), colorffaa66; , t% M L# U8 G( ^
DRAWTEXTREL(320,70,NUMTOSTRN(超大,2)), color0099ff; ! K/ y: C# V9 F9 n4 M
DRAWTEXTREL(400,70,NUMTOSTRN(主力,2)), colorred; ; c4 o: L+ o5 ~# } _2 G, o2 C9 L
DRAWTEXTREL(30,140,''3日''), colorddffff; $ s/ y8 D9 l) B6 ~
DRAWTEXTREL(80,140,NUMTOSTRN(S3,2)), color00ff00;
3 j8 ~' R* c" j% F% @+ hDRAWTEXTREL(160,140,NUMTOSTRN(Z3,2)),colorf00ff0; # {% V1 Q# J. y, M( [
DRAWTEXTREL(240,140,NUMTOSTRN(D3,2)), colorffaa66;
2 }6 d! K6 P/ }( Z+ ADRAWTEXTREL(320,140,NUMTOSTRN(F3,2)), color0099ff; 6 G# z6 d- e0 J- v! U. |* t
DRAWTEXTREL(400,140,NUMTOSTRN(J3,2)), colorred;
% s, ~$ ^4 S( v8 pDRAWTEXTREL(30,210,''5日''), colorddffff; 0 i( |$ y5 y1 x' W
DRAWTEXTREL(80,210,NUMTOSTRN(S5,2)), color00ff00;
6 i* {; u3 @( M$ u& ADRAWTEXTREL(160,210,NUMTOSTRN(Z5,2)),colorf00ff0; ' }9 J1 x" @. E/ v' o
DRAWTEXTREL(240,210,NUMTOSTRN(D5,2)), colorffaa66; : g( U1 m8 G/ D' g/ z( n* [
DRAWTEXTREL(320,210,NUMTOSTRN(F5,2)), color0099ff; + h. S6 g1 N9 e8 e: E7 L" h Y1 C5 v: i
DRAWTEXTREL(400,210,NUMTOSTRN(J5,2)), colorred;
' u0 |% ~. ]! c/ w7 N! MDRAWTEXTREL(30,280,''10日''), colorddffff; - \$ m9 Y0 ~# i
DRAWTEXTREL(80,280,NUMTOSTRN(S10,2)), color00ff00; - n7 m6 Z% j6 }( v; x. J
DRAWTEXTREL(160,280,NUMTOSTRN(Z10,2)),colorf00ff0; ' r" B" k J: F% t- Q6 Y
DRAWTEXTREL(240,280,NUMTOSTRN(D10,2)), colorffaa66;
" I' M3 K0 p' u# k& h9 {DRAWTEXTREL(320,280,NUMTOSTRN(F10,2)), color0099ff; * J# s2 ]7 J' F7 Q/ m4 s
DRAWTEXTREL(400,280,NUMTOSTRN(J10,2)), colorred; 7 `+ \ p& W( B' \ E
DRAWTEXTREL(30,350,''20日''), colorddffff; 1 q7 e% L" Z6 O
DRAWTEXTREL(80,350,NUMTOSTRN(S20,2)), color00ff00; 3 m' f2 k; P- ]: F( Y; i3 R
DRAWTEXTREL(160,350,NUMTOSTRN(Z20,2)),colorf00ff0; 8 X" c: H. n7 ~& J3 L7 L
DRAWTEXTREL(240,350,NUMTOSTRN(D20,2)), colorffaa66;
2 r* x0 F9 Y( i9 ~DRAWTEXTREL(320,350,NUMTOSTRN(F20,2)), color0099ff; 0 [* r, }6 k! e/ a1 b- S
DRAWTEXTREL(400,350,NUMTOSTRN(J20,2)), colorred;
' B$ i9 g" p3 A: ~& P0 HDRAWTEXTREL(5,800,''3''),COLORRED;
( R. U0 l7 h7 @4 VDRAWTEXTREL(3,900,''日''),COLORRED;
$ @& s; S4 d8 H& a9 E) SDRAWTEXTREL(135,800,''5''),COLORRED;
/ D* U7 R% |4 E9 O" o6 i/ L( rDRAWTEXTREL(130,900,''日''),COLORRED; * ?/ E9 S8 v7 P, C' ?/ ]
DRAWTEXTREL(260,800,''10''),COLORRED;
) h s% U7 z9 h( GDRAWTEXTREL(260,900,''日''),COLORRED; . {! [) c8 H: }# q' y( z
DRAWTEXTREL(390,800,''20''),COLORRED; ( n. c3 l z& q7 S6 H, |+ D5 W
DRAWTEXTREL(390,900,''日''),COLORRED;
* u7 W+ k7 b0 B$ ~ Z8 p* x. u一日资金流入:=amount*BIGORDER(1,2)/10000;
" l ^8 k8 X% x# ?一日资金流出:=amount*BIGORDER(2,2)/10000; ' Q* y+ e: ^5 V3 J; r
资金流:=一日资金流入-一日资金流出;
" o) X, I0 i7 p- c' c: c+ U收支【万元】:资金流,color3d,coloryellow;
5 C+ Q1 |6 _; {IF 资金流流出,RGB(255,0,0)),COLOR000000; ) m: f. L; t6 K! D* ?" q
FILLRGN(流出, |