|
小单买:=1-BIGORDER(1,1)*V/CAPITAL;
, o) @9 l& ~8 X" r' Y. y- ]小单卖:=1-BIGORDER(2,1)*V/CAPITAL;
- J+ E# S; e; l3 _散户净买:=(小单买-小单卖)*100; & v n3 G3 C7 W* n
散户:sum(散户净买,1),linethick0,COLORGREEN;
0 p, c7 |0 q4 s4 ~. I! t- v/ ~中户买:=BIGORDER(1,1)*V/CAPITAL-BIGORDER(1,2)*V/CAPITAL;
" N# E4 S3 u/ X" D$ Q" Y( e1 i7 o中户卖:=BIGORDER(2,1)*V/CAPITAL-BIGORDER(2,2)*V/CAPITAL; - @" o8 I/ j8 ], l( O8 x/ ]- h
中户净买:=(中户买-中户卖)*100;
6 _" a+ u5 {* W$ u+ ]0 l中户:sum(中户净买,1),linethick0,colorf00ff0;
0 f. h1 a, y; L大户买:=BIGORDER(1,2)*V/CAPITAL-BIGORDER(1,3)*V/CAPITAL;
5 G. b- E) [# q# R, C8 J大户卖:=BIGORDER(2,2)*V/CAPITAL-BIGORDER(2,3)*V/CAPITAL;
2 p9 J2 y- _! `. s大户净买:=(大户买-大户卖)*100; A# l3 a" }) p9 X
大户:sum(大户净买,1),linethick0,colorf0f000;
: I" A- V, Z8 g6 i机构买:=BIGORDER(1,3)*V/CAPITAL; , \7 e1 x: G9 c( ^) _8 q& v l
机构卖:=BIGORDER(2,3)*V/CAPITAL;
3 P7 k6 t7 r( I: q2 X* t* K4 x机构净买:=(机构买-机构卖)*100; 6 K$ ~/ k( n9 c3 R
超大:sum(机构净买,1),linethick0,color3399FF; , I6 b% I- y0 |+ \( m+ k8 s
大单买:=BIGORDER(1,2)*V/CAPITAL;
# ?$ x" Q! E. T: \8 @大单卖:=BIGORDER(2,2)*V/CAPITAL;
+ M* c1 y* `: J- b& q6 k主力 大单买-大单卖)*100,linethick0,COLORRED;
x; G2 W; f* }& v$ V' }! k散户增减:=散户-ref(散户,3); * ^. u! i8 ~& [2 R% ]- J
中户增减:=中户-ref(中户,5);
/ D+ X1 s6 o1 b2 d" D- n大户增减:=大户-ref(大户,3);
4 _, b7 J/ U; i- L, k9 C0 D5 U超大增减:=超大-ref(超大,10);
3 p) v3 j5 c* |6 a' x主力增减:=主力-ref(主力,5);
% C: ^! z4 B W) M9 v' RS3:=ref(散户,3);
/ Y5 r9 r- D7 p3 s; } }6 ?$ RZ3:=ref(中户,3); ) C% e A* H, U3 R' B( g
D3:=ref(大户,3);
* n- U7 ]) p) YF3:=ref(超大,3);
# h6 X6 ^. ]% X+ N: L" h, xJ3:=ref(主力,3);
2 x ~& X; W1 ]( [" L' f8 z, IS5:=ref(散户,5);
$ V/ K/ G( q- W U# mZ5:=ref(中户,5);
! \& i, |# e. N7 u) d' N/ cD5:=ref(大户,5); + E9 i' F) z0 L8 |
F5:=ref(超大,5);
; b! r2 k" |5 j; L. `4 BJ5:=ref(主力,5); 8 f6 t* a7 U$ k- L
S10:=ref(散户,10);
5 g2 r2 z" Z6 {0 {7 x; C. m0 ~Z10:=ref(中户,10);
# l) C( o$ I# rD10:=ref(大户,10); ; q0 m8 e: b1 q# s
F10:=ref(超大,10);
5 L J& J! A# j- ^3 G0 UJ10:=ref(主力,10); & f6 T) N4 W |# c2 M5 N9 S; l
S20:=ref(散户,20);
3 s( a, S( }: m+ G e$ P: |9 T5 CZ20:=ref(中户,20); $ W1 w2 r/ Z- T5 j: _
D20:=ref(大户,20); 1 ?- \6 \* U# ^2 Z' Q3 Z. `
F20:=ref(超大,20);
' j5 r1 ~, B4 p6 uJ20:=ref(主力,20);
! B! i& U; b* u, A: CBL3:=400/MAX(S3,Z3,D3,F3,J3); 4 z' H$ n, N* L) m* _( B
BL5:=400/MAX(S5,Z5,D5,F5,J5); - z1 Q9 _+ S$ Y# `- B" V# x& c
BL10:=400/MAX(S10,Z10,D10,F10,J10); , [9 n0 a8 X9 |' H1 R, T" E# w' E
BL20:=400/MAX(S20,Z20,D20,F20,J20);
7 O1 L& L4 @* t) E0 cS3B:=999-S3*BL3; . G( s. g9 r9 p7 w1 W
Z3B:=999-Z3*BL3; ! e2 m9 k% o2 J L
D3B:=999-D3*BL3;
8 H( z8 ~% a4 E3 Y. eF3B:=999-F3*BL3;
5 W- O8 r8 k2 }, j* s1 R0 H ~# ]# k( QJ3B:=999-J3*BL3; * J" j/ ] @# e: M! O
S5B:=999-S5*BL5;
0 w8 y/ U& w! l5 L. ^; L: @2 w+ x6 c$ NZ5B:=999-Z5*BL5;
3 E2 O5 m( k7 ?4 R3 R7 y' w1 LD5B:=999-D5*BL5;
5 i/ Y7 n* e: h$ lF5B:=999-F5*BL5; ) _+ x; F6 v. F' n3 V2 h% [" S
J5B:=999-J5*BL5;
; S# `4 F% o" a& FS10B:=999-S10*BL10; 8 H9 Z b. D* K& k& z' h F
Z10B:=999-Z10*BL10;
p% `$ U. ~3 g3 @D10B:=999-D10*BL10;
! w u" `) j+ a3 r5 |F10B:=999-F10*BL10; ; w+ g6 X; H3 z# l/ `3 k! }- k; m
J10B:=999-J10*BL10;
* f! j3 s9 K5 w8 RS20B:=999-S20*BL20;
, r; \, S: r: ?; g+ wZ20B:=999-Z20*BL20; 6 o: S( k; r9 _6 n7 h
D20B:=999-D20*BL20;
?9 w) F0 t* nF20B:=999-F20*BL20; e( i- Q6 @6 n6 S! B; q
J20B:=999-J20*BL20;
+ e+ I8 C( k% t{画直方图} 1 L1 G f" w+ Y3 W
DRAWRECTREL(10,S3B,40,999,RGB(0,255,0)); . M: Y$ [2 u, N1 Q) S# ~% f
DRAWRECTREL(30,Z3B,60,999,RGB(180,0,100)); 6 v( s5 w* U: f
DRAWRECTREL(50,D3B,80,999,RGB(0,0,255)); ! D7 F# J! x' r S) @ Z/ U
DRAWRECTREL(70,F3B,100,999,RGB(180,100,0)); . E6 I( i# J" q: B# f" o* E
DRAWRECTREL(90,J3B,120,999,RGB(255,0,0)); ! {0 Q/ r2 h5 u3 Z2 q/ ^( T
DRAWRECTREL(140,S5B,170,999,RGB(0,255,0));
8 I1 B. o7 F9 ?2 O% UDRAWRECTREL(160,Z5B,190,999,RGB(180,0,100)); $ W' f+ b1 u% L0 v2 f( R
DRAWRECTREL(175,D5B,210,999,RGB(0,0,255)); # N6 m j. A* k2 `
DRAWRECTREL(200,F5B,230,999,RGB(180,100,0)); 8 k+ p: y* f9 o% m3 y: s- X( h: M
DRAWRECTREL(220,J5B,250,999,RGB(255,0,0));
8 `% K+ Z% H% l3 @DRAWRECTREL(270,S10B,300,999,RGB(0,255,0)); : Y; G" i2 J6 \$ A$ M6 t
DRAWRECTREL(290,Z10B,320,999,RGB(180,0,100)); 8 s4 m6 J% c' b7 N$ `8 h8 Z$ {9 _
DRAWRECTREL(310,D10B,340,999,RGB(0,0,255));
7 n- z) P$ F: d0 P% t- }, W% sDRAWRECTREL(330,F10B,360,999,RGB(180,100,0));
! b8 n5 ^; `, r4 h7 s5 ^! LDRAWRECTREL(350,J10B,380,999,RGB(255,0,0));
+ ^3 R" f5 Q+ D' M8 K3 {" l5 rDRAWRECTREL(400,S20B,430,999,RGB(0,255,0)); 6 E' N& ]7 u3 X+ ?' W, z
DRAWRECTREL(420,Z20B,450,999,RGB(180,0,100));
- B3 } g8 v3 W7 Z& C3 o- Q. K8 VDRAWRECTREL(440,D20B,470,999,RGB(0,0,255)); 7 M: c% w8 Q3 h! A3 t+ Z! w& U
DRAWRECTREL(460,F20B,490,999,RGB(180,100,0)); f0 [! h, o* k" B; y
DRAWRECTREL(480,J20B,510,999,RGB(255,0,0));
2 v6 ~' m. @0 a ]DRAWTEXTREL(80,5,''散户''),color00ff00;
" Y, l3 @6 G/ T1 C' b# }DRAWTEXTREL(160,5,''中户''),colorf00ff0;
! l: j. q9 Q8 n8 G/ n- z4 tDRAWTEXTREL(240,5,''大户''),colorffaa66; * \8 T- Q+ e1 a2 E4 L
DRAWTEXTREL(320,5,''超大''),color0099ff;
$ \* E( X! P5 T+ ODRAWTEXTREL(400,5,''主力''),colorred;
$ C, ^! p$ q3 e& SDRAWTEXTREL(30,70,''本日''),colorddffff; ! j. _" [- I7 ]5 W
DRAWTEXTREL(80,70,NUMTOSTRN(散户,2)), color00ff00;
2 I. W% U4 W/ h1 ~) m! G5 iDRAWTEXTREL(160,70,NUMTOSTRN(中户,2)),colorf00ff0;
" e6 [- ]* y2 xDRAWTEXTREL(240,70,NUMTOSTRN(大户,2)), colorffaa66; 1 {6 m6 ^* c9 T8 R
DRAWTEXTREL(320,70,NUMTOSTRN(超大,2)), color0099ff; ( ?' h+ y! P2 q" E# r1 I0 V
DRAWTEXTREL(400,70,NUMTOSTRN(主力,2)), colorred; Z7 \' r5 ?, a1 ^6 s" I& w9 G* l
DRAWTEXTREL(30,140,''3日''), colorddffff; 8 S9 R- l! ?5 ?! f
DRAWTEXTREL(80,140,NUMTOSTRN(S3,2)), color00ff00; / p$ w9 l( b+ P5 {4 \, v4 _- |
DRAWTEXTREL(160,140,NUMTOSTRN(Z3,2)),colorf00ff0; 9 A) _% {" z. N# S3 h6 ?/ \8 B. T
DRAWTEXTREL(240,140,NUMTOSTRN(D3,2)), colorffaa66;
; {) {: R/ u! x3 j; u0 ^7 A1 MDRAWTEXTREL(320,140,NUMTOSTRN(F3,2)), color0099ff; 6 U' P6 Q: {& [( s
DRAWTEXTREL(400,140,NUMTOSTRN(J3,2)), colorred;
+ H; l( {2 V& x" u, eDRAWTEXTREL(30,210,''5日''), colorddffff; 1 p/ o" l$ @, j& v9 b- ^2 S& s2 ?
DRAWTEXTREL(80,210,NUMTOSTRN(S5,2)), color00ff00;
9 M% \ y( d1 B7 }' WDRAWTEXTREL(160,210,NUMTOSTRN(Z5,2)),colorf00ff0;
- O& S) N' Q$ j: F2 [0 MDRAWTEXTREL(240,210,NUMTOSTRN(D5,2)), colorffaa66; 4 ]9 x4 @1 H- X
DRAWTEXTREL(320,210,NUMTOSTRN(F5,2)), color0099ff; 6 a& c$ Y* k5 B* A3 J) r
DRAWTEXTREL(400,210,NUMTOSTRN(J5,2)), colorred;
6 [& Q' C) R% P F/ KDRAWTEXTREL(30,280,''10日''), colorddffff; 7 |$ S6 h) O* v& y
DRAWTEXTREL(80,280,NUMTOSTRN(S10,2)), color00ff00; & b2 N8 w& t+ m! j3 y$ R# K; I! ^. X
DRAWTEXTREL(160,280,NUMTOSTRN(Z10,2)),colorf00ff0; ! L8 t! O9 S5 B$ |+ K T
DRAWTEXTREL(240,280,NUMTOSTRN(D10,2)), colorffaa66; ; A- x0 [) f7 d+ P# y, G
DRAWTEXTREL(320,280,NUMTOSTRN(F10,2)), color0099ff; , c6 k2 x: D7 Q, ^
DRAWTEXTREL(400,280,NUMTOSTRN(J10,2)), colorred; 5 W. }- ]9 O- Q( ]6 }) t( v
DRAWTEXTREL(30,350,''20日''), colorddffff;
! C% Y8 d9 \, P. N. F+ XDRAWTEXTREL(80,350,NUMTOSTRN(S20,2)), color00ff00;
0 b4 r; K; L0 `& W6 QDRAWTEXTREL(160,350,NUMTOSTRN(Z20,2)),colorf00ff0; 2 ^# g) M: n: G, L2 I
DRAWTEXTREL(240,350,NUMTOSTRN(D20,2)), colorffaa66;
: r8 X! H3 }; [, DDRAWTEXTREL(320,350,NUMTOSTRN(F20,2)), color0099ff; N& U. n' [& A9 w' H
DRAWTEXTREL(400,350,NUMTOSTRN(J20,2)), colorred; ) T+ A. q' R. H' g0 K2 C. l
DRAWTEXTREL(5,800,''3''),COLORRED; , k- H7 @& ^- E( T+ Q [
DRAWTEXTREL(3,900,''日''),COLORRED; 1 L$ v$ q! N2 V; @# s2 T% q% p
DRAWTEXTREL(135,800,''5''),COLORRED;
/ m2 R n F9 ?% ]5 V1 O+ ?: p# H/ FDRAWTEXTREL(130,900,''日''),COLORRED; 3 t8 y7 ]' ^+ g
DRAWTEXTREL(260,800,''10''),COLORRED;
5 h! ]" G$ S$ A$ A. i: PDRAWTEXTREL(260,900,''日''),COLORRED; o4 k5 L$ Y$ Z @+ s
DRAWTEXTREL(390,800,''20''),COLORRED; % L* U: r2 ?8 B) O
DRAWTEXTREL(390,900,''日''),COLORRED;
L% e; T0 ]1 B, ~; Z) r一日资金流入:=amount*BIGORDER(1,2)/10000; # N+ d9 z) i) a* S
一日资金流出:=amount*BIGORDER(2,2)/10000; + L- C! V k5 `) e
资金流:=一日资金流入-一日资金流出;
: F- d! C; l0 H9 U/ {7 S7 e+ P9 R收支【万元】:资金流,color3d,coloryellow;
, M8 K( F" r- B4 n. w" ^IF 资金流流出,RGB(255,0,0)),COLOR000000; 2 M# F2 L7 \, @6 X3 Z
FILLRGN(流出, |