|
帐户总数:extradata(''散户线''),linethick0,PRECIS0;
7 ^4 u* K- D: k: u3 n+ g户均持股:=(FINANCE2(37)/帐户总数)*10000;
# e" K5 d0 X! }1 D* aZH3:=ref(帐户总数,3);
?+ D2 \9 ?0 i$ XHJ3:=ref(户均持股,3);; I n" w# b1 S: E* E
主动率:="卫东.主动率#day";
' g/ ?7 m: j5 o8 y: I8 E5 O单数比:="卫东.单数比#day";
; Q% h( ~# q7 f6 W6 c; ]1 h通吃率:="卫东.通吃率#day";. Q' n; i) R: m; Y% n, U; b- i0 w
DRAWTEXTREL(5,13,''帐户总数(户):''+NUMTOSTRN(帐户总数,0)),Color0000FF;/ \ _+ U1 _7 }9 Q; l
DRAWTEXTREL(139,13,''户均持股(股):''+NUMTOSTRN(户均持股,0)),Color0000FF;$ J# V/ e8 c) E3 c4 r) e' r. a
DRAWTEXTREL(290,13,''上涨家数:''+"卫东.上涨家数#day"+''家''),COLOR0000FF;
: `2 W6 O1 K8 T1 t, uDRAWTEXTREL(390,13,''平盘家数:''+"卫东.平盘家数#day"+''家''),COLORFFFFFF;
/ B$ d4 q8 D2 _5 K" hDRAWTEXTREL(490,13,''下跌家数:''+"卫东.下跌家数#day"+''家''),COLOR00FF00;' d$ Z( |8 N0 \1 q
DRAWTEXTREL(590,13,''主动率:''+NUMTOSTRN(主动率,2)+''%''),COLOR0033FF;9 M1 z+ j9 Q+ h. z4 i& ?
DRAWTEXTREL(690,13,''单数比:''+NUMTOSTRN(单数比,2)+''%''),COLOR00FF00;
) w# U U) z# EDRAWTEXTREL(790,13,''通吃率:''+NUMTOSTRN(通吃率,2)+''%''),COLOR00FFff;7 V. \1 B- F- ]3 ]
连红 AST(CLOSE>OPEN),PRECIS0,color0000FF,linethick0;2 q; c# W5 [8 c6 ]* l
连绿:LAST(CLOSE=REF(MA5,1);% T; d: V% o L$ b% F! `, Q+ b+ f2 \& p5 J
H1:=MAX(MAX(MA5,MA10),MA30);. ? l3 P; _' A7 p' ]- z
L1:=MIN(MIN(MA5,MA10),MA30);
: d. q' ^5 z/ q& Z9 N5 DDRAWTEXT(H10 AND DDY>0) OR DDZ>400);
+ s! l- [& B5 G: k" k) VA2:="MACD.MACD"(26,12,9);
: L- k7 w, b/ e0 l* y$ NA1:=C/REF(C,1)REF(A2,1) ;
E3 G+ K7 x& ?1 q' RA3:=COUNT(DDX>0.045,10)>2;
+ y B: b$ b7 r! N- b) [弄点钱玩2:=弄点钱玩 AND DDX >0.055 AND DDY>0.07 AND A1 AND A3;
( r9 ~+ }, B" H( DDRAWTEXT(弄点钱玩2>0,L*0.97,''【弄点钱玩玩】''),COLORYELLOW;( y; f+ B! C) y, @0 ?. N3 }
DRAWTEXT(FILTER(REF(L,1)MA4,7),L*0.96,''短''),COLORMAGENTA;3 s5 v, C& j; N; P/ O& r
{资金}
' ~* N0 G) l! n$ Z; ]TODAY:=DYNAINFO(7)=CLOSE and (ORDER(1)=0 and ORDER(2)=0);{判定是否有抱负数据}$ ^; {/ f( T' y! G
{TODAY:="ddx.ddx"=0;}{判定是否有正版数据}5 X. Z) v/ H7 i
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;% x# F( y) h2 P- e* m* E6 M# M
Ddmrs:=sum(Ddmr,0);
/ z8 j+ S* i! r% QChb:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3))*AMOUNT;
" g6 z' P" ^; dDhb:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)))*AMOUNT;' [2 q7 I" m3 p% m# }/ {6 f5 y; S
Zhb:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)))*AMOUNT;/ `) u! v" W- ?
Xhb:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)))*AMOUNT;
8 i) w/ H8 B& s, d* z2 {Chs:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3))*AMOUNT;
- f; T2 J1 H2 L0 ?5 ?4 IDhs:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)))*AMOUNT;1 |/ f0 s3 q! u, E* R+ W$ N4 \; V W ~& I
Zhs:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)))*AMOUNT;
; q. D5 Z! L/ F% i' y1 e! B* OXhs:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)))*AMOUNT;: m- `5 U" Y' A. t5 _
散资:=(xhb-xhs)/10000;
" j5 E" x0 B3 {6 l' P' C中资:=(zhb-zhs)/10000;5 D+ u! e& i4 w5 ]( i4 M+ m
大资:=(dhb-dhs)/10000;1 @" ~! @0 m2 [3 X
超资:=(chb-chs)/10000;1 g8 S2 E/ |/ W- f1 I3 Y
超资增仓:=超资;/ {" p% D/ ^; e, B5 T
大资增仓:=大资;; j Y9 [' {8 U* Z2 k) }- e
中资增仓:=中资;+ M( t6 h5 S) p3 Z3 E7 v2 j: K
散资增仓:=散资;5 O H( Q: ~6 x H& R6 a
BBD净额:=(超资+大资);
( ?. ~3 g6 U rDRAWTEXTREL(5,85,''BBD (万):''+NUMTOSTRN(BBD净额,0)),LINETHICK1,Color0080FF;
; f6 P0 u+ y: B4 h3 L" tDRAWTEXTREL(5,155,''超资(万):''+NUMTOSTRN(超资增仓,0)),LINETHICK1,COLORYELLOW;$ d, x- M* n; o/ o
DRAWTEXTREL(5,225,''大资(万):''+NUMTOSTRN(大资增仓,0)),LINETHICK1,Color62FFFF;" ^+ i+ C6 P( v3 }) P
DRAWTEXTREL(5,295,''中资(万):''+NUMTOSTRN(中资增仓,0)),LINETHICK1,ColorACFFFF;
0 z& s! X- P8 v. o2 m) PDRAWTEXTREL(5,365,''散资(万):''+NUMTOSTRN(散资增仓,0)),LINETHICK1,ColorFFFFFF;
2 J x; U1 ~- c R( sDRAWRECTABS(0,118,270,0,1),COLOR00FF00;- x5 `( ?: ^# B3 y% V' O
zln:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(1,2),SELFDATA(''特大买入'')+SELFDATA(''大单买入'')),bigorder(1,2)),0);
, |3 N9 z2 z9 Q1 {: t. ?$ Bzlm:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(2,2),SELFDATA(''特大卖出'')+SELFDATA(''大单卖出'')),bigorder(2,2)),0);
5 e0 x9 e5 E9 l5 P+ h* e+ [* Ctdn:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(1,3),SELFDATA(''特大买入'')),bigorder(1,3)),0);6 \: b4 I) ^6 @' H
tdm:=REF(IF(TODAY,IF(TODAY,"DDEDATA@BIGORDER"(2,3),SELFDATA(''特大卖出'')),bigorder(2,3)),0);2 D0 d: R9 d& o+ w; u3 [0 O. C
ddn:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),SELFDATA(''大单买入'')),(bigorder(1,2)-bigorder(1,3))),0);1 b v' y7 t! }6 u0 { b. e
ddm:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),SELFDATA(''大单卖出'')),(bigorder(2,2)-bigorder(2,3))),0);8 U/ s, |! K# H+ K- @
zdn:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),SELFDATA(''中单买入'')),(bigorder(1,1)-bigorder(1,2))),0);8 {6 W) d3 [4 X4 ?& V* P) ]. u& e
zdm:=REF(IF(TODAY,IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),SELFDATA(''中单卖出'')),(bigorder(2,1)-bigorder(2,2))),0);
' n: b$ P( X9 q4 b* jsdn:=REF(IF(TODAY,IF(TODAY,1-("DDEDATA@BIGORDER"(1,1)),1-(SELFDATA(''特大买入'')+SELFDATA(''大单买入'')+SELFDATA(''中单买入''))),1-(bigorder(1,1))),0);% U' m2 `" i" V& e6 n6 R2 K
sdm:=REF(IF(TODAY,IF(TODAY,1-("DDEDATA@BIGORDER"(2,1)),1-(SELFDATA(''特大卖出'')+SELFDATA(''大单卖出'')+SELFDATA(''中单卖出''))),1-(bigorder(2,1))),0);
; y+ N M' @1 p3 R9 u1 o: `tdj:=tdn-tdm;" Y$ z! q+ n! G
ddj:=ddn-ddm;
' [! C O$ J8 E% _( rzdj:=zdn-zdm;: U M1 C5 x. Y) S( {8 ^8 p% w
sdj:=sdn-sdm;
1 V8 a4 F3 M) ^! f+ O6 Kzlj:=zln-zlm;! B/ B, }# D+ ^9 B3 v+ C
DRAWTEXTREL(140,85,''占''+numtostrn(((zlj))*100,1)+''%''),Color0080FF;4 j0 i" }7 d% R* k- ~3 p
DRAWTEXTREL(140,155,''占''+numtostrn((tdj)*100,1)+''%''),COLORYELLOW;
+ C" V, }( q+ z5 Q/ D* V) ?DRAWTEXTREL(140,225,''占''+numtostrn((ddj)*100,1)+''%''),Color62FFFF;
& M/ m8 T9 c' ?& Y9 U5 Y& `. r/ }DRAWTEXTREL(140,295,''占''+numtostrn((zdj)*100,1)+''%''),ColorACFFFF;& @. I. W9 m' h( d$ k2 C
DRAWTEXTREL(140,365,''占''+numtostrn((sdj)*100,1)+''%''),ColorFFFFFF;
6 ^. l' F* B$ s, z6 W' \; u- i9 rDRAWTEXTREL(200,85,numtostrn(((zlj))*V,0)+''手''),Color0080FF;
" `& V- b# }% K2 y0 bDRAWTEXTREL(200,155,numtostrn((tdj)*V,0)+''手''),COLORYELLOW;0 s& d* G8 U" _: H- [9 I! v
DRAWTEXTREL(200,225,numtostrn((ddj)*V,0)+''手''),Color62FFFF;
* i0 J5 c& ^- X1 R; K$ SDRAWTEXTREL(200,295,numtostrn((zdj)*V,0)+''手''),ColorACFFFF;; E7 W6 u% I( x, D
DRAWTEXTREL(200,365,numtostrn((sdj)*V,0)+''手''),ColorFFFFFF;
$ Y; M# j- O8 X2 h+ Z* ^8 }# kDRAWTEXTREL(280,85,''仓 ''+NUMTOSTRN(50+Sum((VOL/CAPITAL)*100*((zlj)),0),1)+''%''),Color0080FF;
& T! g" I: A$ V) c$ F0 y& }$ MDRAWTEXTREL(280,155,''仓 ''+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(tdj),0),1)+''%''),COLORYELLOW;
/ D6 @( U$ S1 e7 u" K- ]DRAWTEXTREL(280,225,''仓 ''+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(ddj),0),1)+''%''),Color62FFFF;
2 b0 B$ n; e' F7 b% h: FDRAWTEXTREL(280,295,''仓 ''+NUMTOST |