|
帐户总数:extradata(''散户线''),linethick0,PRECIS0;
{# ^6 s. J8 I' j户均持股:=(FINANCE2(37)/帐户总数)*10000;' O8 p9 E5 ^ V
ZH3:=ref(帐户总数,3);( x6 J9 S% x0 H5 e" ]2 I9 z% S+ K
HJ3:=ref(户均持股,3);1 N. h0 p/ h3 } n" D
主动率:="卫东.主动率#day";
2 q- {0 ]1 v' E/ h单数比:="卫东.单数比#day";
N, T A. q1 H通吃率:="卫东.通吃率#day";
0 T, f; g/ C" r0 C1 n/ yDRAWTEXTREL(5,13,''帐户总数(户)：''+NUMTOSTRN(帐户总数,0)),Color0000FF;6 s8 }: q( f9 g. y& P! x( O
DRAWTEXTREL(139,13,''户均持股(股)：''+NUMTOSTRN(户均持股,0)),Color0000FF;
0 c% j7 b8 z& g W9 c, }" J$ I1 HDRAWTEXTREL(290,13,''上涨家数：''+"卫东.上涨家数#day"+''家''),COLOR0000FF;/ j4 m' G+ }/ O j
DRAWTEXTREL(390,13,''平盘家数：''+"卫东.平盘家数#day"+''家''),COLORFFFFFF;
$ V! R3 u4 e0 ?+ Z' sDRAWTEXTREL(490,13,''下跌家数：''+"卫东.下跌家数#day"+''家''),COLOR00FF00;
4 k/ s4 b( j8 j( B! p( pDRAWTEXTREL(590,13,''主动率：''+NUMTOSTRN(主动率,2)+''%''),COLOR0033FF;
, ^8 j' ?6 i+ ~' L) SDRAWTEXTREL(690,13,''单数比：''+NUMTOSTRN(单数比,2)+''%''),COLOR00FF00;/ I' l0 z: h. q8 r l/ h
DRAWTEXTREL(790,13,''通吃率：''+NUMTOSTRN(通吃率,2)+''%''),COLOR00FFff;
Q: n4 u* Q Q* u连红 AST(CLOSE>OPEN),PRECIS0,color0000FF,linethick0;( Z7 r5 Z+ _* z' q" Y
连绿:LAST(CLOSE=REF(MA5,1);; f) w* V! c# m9 P5 B3 n
H1:=MAX(MAX(MA5,MA10),MA30);! R9 ]+ m! N9 d' ~& E
L1:=MIN(MIN(MA5,MA10),MA30);
9 a) f' s& U, |( w' ~: CDRAWTEXT(H10 AND DDY>0) OR DDZ>400);9 [, G6 U% L) t- s( S
A2:="MACD.MACD"(26,12,9);
2 y2 i1 M% |" s- m! S; HA1:=C/REF(C,1)REF(A2,1) ;+ E% e7 X& T3 j4 R
A3:=COUNT(DDX>0.045,10)>2;
; h1 \$ b# o* v; Y/ E0 b弄点钱玩2:=弄点钱玩 AND DDX >0.055 AND DDY>0.07 AND A1 AND A3;
. e/ g. M0 M5 V, d' k& s ?DRAWTEXT(弄点钱玩2>0,L*0.97,''【弄点钱玩玩】''),COLORYELLOW;
+ q! w7 C( J2 f4 L- x/ W2 H( lDRAWTEXT(FILTER(REF(L,1)MA4,7),L*0.96,''短''),COLORMAGENTA;7 u$ D; C8 H+ Z# R/ `2 C* J
{资金}: d% w. Y s5 y/ ]
TODAY:=DYNAINFO(7)=CLOSE and (ORDER(1)=0 and ORDER(2)=0);{判定是否有抱负数据}' E7 b2 X* U3 A; I; [7 M- J7 J- P
{TODAY:="ddx.ddx"=0;}{判定是否有正版数据}# ^ Q! ]- a3 o2 E1 B1 o
Ddmr:=IF(TODAY,("DEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2)),(bigorder(1,2)-bigorder(2,2)))*vol/capital*100''>DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(2,2)),(bigorder(1,2)-bigorder(2,2)))*vol/capital*100;4 j1 U9 s" U) o! Z6 A( R/ r, `7 F
Ddmrs:=sum(Ddmr,0);
, @% {) t% h+ m* X3 s JChb:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3))*AMOUNT;
' j2 s* I2 [5 E1 X4 CDhb:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)))*AMOUNT;
& a$ A- h! y d. d: ~/ mZhb:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)))*AMOUNT;
# ^4 X7 ?; O/ N" S* EXhb:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)))*AMOUNT;( Z ?" p6 g! q0 P1 P# Q
Chs:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3))*AMOUNT;* r' y: Q4 O& Y
Dhs:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)))*AMOUNT;8 d0 k7 A3 D0 q; n7 \& b; Z4 L
Zhs:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)))*AMOUNT;2 H; [8 j' Z1 l7 M
Xhs:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)))*AMOUNT;
* G' T. C4 t; a0 R: K散资:=(xhb-xhs)/10000;- X+ x: s, x" l
中资:=(zhb-zhs)/10000;5 m* L6 k/ l/ j" Q
大资:=(dhb-dhs)/10000;
* L- _7 i3 V8 C' V超资:=(chb-chs)/10000;
4 J$ G; n& Q& E0 ? f% {超资增仓:=超资;
& C- W3 y/ k. I3 `5 m A( N大资增仓:=大资;4 R% k3 ^4 q( m# |' X N
中资增仓:=中资;
- p# G9 e% d" f* E8 D) d( h散资增仓:=散资;
1 t9 o8 ^, b& j& [/ dBBD净额:=(超资+大资);8 d5 A0 F9 W4 s/ m
DRAWTEXTREL(5,85,''BBD (万)：''+NUMTOSTRN(BBD净额,0)),LINETHICK1,Color0080FF;
7 L6 e! _ @& A5 Y& v; X; QDRAWTEXTREL(5,155,''超资(万)：''+NUMTOSTRN(超资增仓,0)),LINETHICK1,COLORYELLOW;3 G% j! I. n `/ K
DRAWTEXTREL(5,225,''大资(万)：''+NUMTOSTRN(大资增仓,0)),LINETHICK1,Color62FFFF;0 E& X) p, ?; D
DRAWTEXTREL(5,295,''中资(万)：''+NUMTOSTRN(中资增仓,0)),LINETHICK1,ColorACFFFF;& g& d$ r( T' r
DRAWTEXTREL(5,365,''散资(万)：''+NUMTOSTRN(散资增仓,0)),LINETHICK1,ColorFFFFFF;
; b9 T0 f2 H. X; Q$ a, CDRAWRECTABS(0,118,270,0,1),COLOR00FF00;
$ \$ J/ \9 {) f' { e! w; Xzln:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(1,2),SELFDATA(''特大买入'')+SELFDATA(''大单买入'')),bigorder(1,2)),0);# p5 q* ?/ v9 }/ G
zlm:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(2,2),SELFDATA(''特大卖出'')+SELFDATA(''大单卖出'')),bigorder(2,2)),0);6 e; Y7 X' t7 @0 t" B
tdn:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(1,3),SELFDATA(''特大买入'')),bigorder(1,3)),0);
5 l% V* P# I1 d* Y) H, L/ Itdm:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(2,3),SELFDATA(''特大卖出'')),bigorder(2,3)),0);: l0 p9 d1 C2 R4 [4 h
ddn:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),SELFDATA(''大单买入'')),(bigorder(1,2)-bigorder(1,3))),0);# g% F# p. Q# C' x8 R
ddm:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),SELFDATA(''大单卖出'')),(bigorder(2,2)-bigorder(2,3))),0);" Q# Q; l* D/ z3 u1 [& `' {% }1 R
zdn:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),SELFDATA(''中单买入'')),(bigorder(1,1)-bigorder(1,2))),0);
( b' p1 C% F. d$ }zdm:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),SELFDATA(''中单卖出'')),(bigorder(2,1)-bigorder(2,2))),0);
) s7 J* O% L7 p. F9 W* Y( Nsdn:=REF(IF(TODAY,IF(TODAY,1-("DDEDATA@BIGORDER"(1,1)),1-(SELFDATA(''特大买入'')+SELFDATA(''大单买入'')+SELFDATA(''中单买入''))),1-(bigorder(1,1))),0);. Z5 s' x4 }# X$ p8 d5 g3 V
sdm:=REF(IF(TODAY,IF(TODAY,1-("DDEDATA@BIGORDER"(2,1)),1-(SELFDATA(''特大卖出'')+SELFDATA(''大单卖出'')+SELFDATA(''中单卖出''))),1-(bigorder(2,1))),0);. W8 Q& Z, R" a1 V! Q
tdj:=tdn-tdm;9 U A, d% v' B* \0 p
ddj:=ddn-ddm;0 n& ~8 O: O" _
zdj:=zdn-zdm;
# x8 v3 A" k( Bsdj:=sdn-sdm;2 ~% M. x( S/ V, C: G; k
zlj:=zln-zlm;% j; _' ^& {2 I; L. q0 A" m1 k0 l" E
DRAWTEXTREL(140,85,''占''+numtostrn(((zlj))*100,1)+''%''),Color0080FF;, l, m |: B$ y2 [
DRAWTEXTREL(140,155,''占''+numtostrn((tdj)*100,1)+''%''),COLORYELLOW;9 e8 p5 t! Q* W
DRAWTEXTREL(140,225,''占''+numtostrn((ddj)*100,1)+''%''),Color62FFFF;
% o+ G4 e$ k+ Y+ `3 LDRAWTEXTREL(140,295,''占''+numtostrn((zdj)*100,1)+''%''),ColorACFFFF;2 b I2 ^3 y7 `" K
DRAWTEXTREL(140,365,''占''+numtostrn((sdj)*100,1)+''%''),ColorFFFFFF;# T1 a/ y P' f; i% a$ q! N
DRAWTEXTREL(200,85,numtostrn(((zlj))*V,0)+''手''),Color0080FF;
4 B( T* ~( _: g& @& V8 [, XDRAWTEXTREL(200,155,numtostrn((tdj)*V,0)+''手''),COLORYELLOW;
, ], C5 V9 S9 r( qDRAWTEXTREL(200,225,numtostrn((ddj)*V,0)+''手''),Color62FFFF;4 ^/ E0 z" }- L
DRAWTEXTREL(200,295,numtostrn((zdj)*V,0)+''手''),ColorACFFFF;
) L4 Q; b. [0 x. y( z# D9 RDRAWTEXTREL(200,365,numtostrn((sdj)*V,0)+''手''),ColorFFFFFF;
) N% n( W( l. SDRAWTEXTREL(280,85,''仓 ''+NUMTOSTRN(50+Sum((VOL/CAPITAL)*100*((zlj)),0),1)+''%''),Color0080FF;0 |: W) I' i$ V
DRAWTEXTREL(280,155,''仓 ''+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(tdj),0),1)+''%''),COLORYELLOW;
. c' |3 B5 Q5 ^; U0 x8 |DRAWTEXTREL(280,225,''仓 ''+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(ddj),0),1)+''%''),Color62FFFF;
/ n; t0 L" I" z/ W- sDRAWTEXTREL(280,295,''仓 ''+NUMTOST |
|手机版|Archiver|
( 桂ICP备12001440号-3 )|网站地图
发表于 2019-5-22 01:00:07