【千钧盯盘】飞狐终结版

公式：[attach]1188597[/attach]_4n A{En

}nH{@,j?!Qu [attach]1199227[/attach]
.ke1C Tz U,la
,Y"~T qb [attach]1199228[/attach]
^o};RE0Xo #xEYwI`+dZ
[attach]1199229[/attach]P&UU:n `vyy0r K
d `/J:`a5b|Gw9m
源码： xo2s-y!M#F6j
qY(A4q-M
input:n(1000,1,10000);
+nQu_ai+s3t DRAWGBK(1, COLORRGB(0,0,30),COLORRGB(0,0,120),1);%oZ4N2[1LwY
DRAWTEXTEX(C,1,10,5,STKLABEL),LINETHICK4,Colorffff00;
A-^
y|7V)p~I#c DRAWTEXTEX(C,1,140,5,STKNAME),LINETHICK4,Color00ffff;J%eY)a/I0{
DRAWTEXTEX(C,1,20,450,'---------------------2007-08-01-V2.0版【一发千钧】-----------------------------------------------------------'),LINETHICK1,Color0068FF;
!ezJ%JY 委买总量:=SUM((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),0);+z+yO FP'rA
委卖总量:=SUM((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),0);^{Wu r^
www1:=SUM(BUYVOL,0)-SUM(SELLVOL,0);
&I3b? T?#P 买卖存量 :=REF(www1,1)+www1;
L&\5y$Sw2a`p N(a 进场筹码:=SUM(BUYVOL,0);
HRd4njfw2w? 出场筹码:=SUM(SELLVOL,0);
HV8Vcq8r 筹码量差:=进场筹码-出场筹码;
D:?3Ka|3W B~ TO1:=sum(进场筹码+出场筹码,1);
6F-`0p2\7W*}f*U WIN1:=cost(95);3ms7v6_At
WIN2:=cost(15);
a/XXDtG/ka XA:=SUM(CLOSE*VOL,0);
3U G&L3X8p&c n XB:=SUM(VOL,0);-mI%Y-O
C;H#i
日换手:DYNAINFO(37)*100,PRECISION2,LINETHICK0,Color00FFFF;
F
PFYV8Vt;? 涨跌幅:DYNAINFO(14)*100,PRECISION2,LINETHICK0,Color00FFFF;a+R0o:dj h-L
hsl:=(VOL/FINANCE(7))*100;
)uY:\a5O_ 半年累加换手率:=SUM(hsl,120)*100; o){QS-I4Af/Z v
分笔交易成本:=XA/XB;7]qBy/fub#P/c|G
资金大单进量:=sum(IF(BUYVOL>=100,BUYVOL,0),0);Q-Z3R@hp!XN+E
资金大单出量:=sum(IF(SELLVOL>=100,SELLVOL,0),0);w5r#zZ:vMl+u1l
大单量差:=资金大单进量-资金大单出量;~2p m1} X}
买入:=BUYVOL;
X(M~4G;yH*k 卖出:=SELLVOL;_$n|]'Sn
流通:FINANCE(7)/10000,Color00FFFF,PRECISION2,LINETHICK0;
.GaDX[L+W 流通市值:DYNAINFO(7)*FINANCE(7)/10000,Color00FFFF,PRECISION2,LINETHICK0;
ST7Ci1D6}Xv
老杨1:=0.55; 老杨2:=0.67; 老杨3:=0.75; 老杨4:=1.0; 老杨5:=1.25; 老杨6:=1.55; 老杨7:=1.67; 老杨8:=2.15;"F;~Y!i(R
系数:=IF(流通<1.0,老杨1,IF(流通>=1.0 AND 流通<5.0,老杨2,IF(流通>=5.0 AND 流通<10,老杨3,IF(流通>=10 AND 流通<20,老杨4,IF(流通>=20 AND 流通<50,老杨5,IF(流通>=50 AND 流通<100,老杨6,IF(流通>=100 AND 流通<300,老杨7,IF(流通>=300,老杨8,0))))))));
b8I zl/X,eg'J&_ 门限:=流通市值*系数/15.5*n;
BB:Y/}
H'V,i,gl Var1:=IF(BUYVOL<=REF(ASKVOL(1),1) AND DYNAINFO( 7)=REF(ASKPRICE(1),1),BUYVOL,0); *Lzc~v,d,A6U$v4^
Var2:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND DYNAINFO( 7)=REF(ASKPRICE(2),1),BUYVOL,0); G4~L(pz!Pt
Var3:=IF(BUYVOL<=(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)=REF(ASKPRICE(3),1),BUYVOL,0); ZM7G:BUo+\
hd#E
Var3A:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)>REF(ASKPRICE(3),1),BUYVOL,0);
$xX
L,]\D2@ Var41:=IF(DYNAINFO( 7)<REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0 AND REF(ASKVOL(1),1)>0,BUYVOL,0);
V L-ft4YO$[ Var42:=IF((BUYVOL>REF(ASKVOL(1),1) AND DYNAINFO( 7)=REF(ASKPRICE(1),1) AND REF(BIDVOL(1),1)>0),BUYVOL,0);
3bG5w$\/D Var42a:=IF(Var42>0,Var42-REF(ASKVOL(1),1),0);
3XOG,u{
XX:O Var4b:=Var41+Var42a;r3b"k/QAB
Var51:=IF(BUYVOL>REF(ASKVOL(1),1) AND DYNAINFO( 7)>REF(ASKPRICE(1),1) AND DYNAINFO( 7)<REF(ASKPRICE(2),1),BUYVOL,0);
B9X%m'H+R9mX Var52:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)) AND DYNAINFO( 7)=REF(ASKPRICE(2),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
_W&kd W'_Km0l_KS7o Var52a:=IF(Var52>0,Var52-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)),0);j;Kkv1TP'nnDE`
Var5b:=Var51+Var52a;
)W%\s'U!m Var61:=IF(BUYVOL>REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND DYNAINFO( 7)>REF(ASKPRICE(2),1) AND DYNAINFO( 7)<REF(ASKPRICE(3),1),BUYVOL,0);tz)}2sMV4w
Var62:=IF(BUYVOL>(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)) AND DYNAINFO( 7)=REF(ASKPRICE(3),1) AND REF(BIDVOL(1),1)>0,BUYVOL,0);
Ea+i nb#KqGUg%}{D Var62a:=IF( Var62>0,Var62-(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)),0);
q9ae P~Z Var6b:=Var61+Var62a; U_9jy!i+B8t
Var9A:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND DYNAINFO( 7)<REF(BIDPRICE(3),1),SELLVOL,0); '@q;pmt&Ia
VarA1:=IF(DYNAINFO( 7)>REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0 AND REF(BIDVOL(1),1)>0,SELLVOL,0);
Cm:Q-m$k1G K/KO'? VarA2:=IF(SELLVOL>REF(BIDVOL(1),1) AND DYNAINFO( 7)=REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);'onJ
}(]4c"ZCsf
VarAa:=IF(VarA2>0,SELLVOL-REF(BIDVOL(1),1),0);GD_ aVm!q
VarB1:=IF(SELLVOL>REF(BIDVOL(1),1) AND DYNAINFO( 7)<REF(BIDPRICE(1),1) AND DYNAINFO( 7)>REF(BIDPRICE(2),1),SELLVOL,0);
"^:F0pQS[/I5_*h VarB2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)) AND DYNAINFO( 7)=REF(BIDPRICE(2),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
"?gs.P1hJ VarBa:=if(VarB2>0,SELLVOL-(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)),0);
A5X-A ZV2k6F7{s VarAb:=VarB1+VarBa;
~6J9AY
gZ VarC1:=IF(SELLVOL>REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND DYNAINFO( 7)<REF(BIDPRICE(2),1) AND DYNAINFO( 7)>REF(BIDPRICE(3),1),SELLVOL,0); w7N8P^-eA\
VarC2:=IF(SELLVOL>(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)) AND DYNAINFO( 7)=REF(BIDPRICE(3),1) AND REF(ASKVOL(1),1)>0,SELLVOL,0);
;zr'wH&~fx)^B VarCa:=if(VarC2>0,SELLVOL-(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)),0);Dt+dLSb[
VarAc:=VarC1+VarCa;
*u)w:]V7O!Ga/tX0U VarF:=IF(ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND DYNAINFO( 7)<REF(ASKPRICE(1),1) AND (REF(ASKVOL(1),1)-ASKVOL(1))<>SELLVOL,REF(ASKVOL(1),1)-ASKVOL(1),0); z B-J-z:~v Cp
Var10:=IF(ASKVOL(3)<REF(ASKVOL(3),1) AND ASKPRICE(3)=REF(ASKPRICE(3),1) AND DYNAINFO( 7)<REF(ASKPRICE(3),1),REF(ASKVOL(3),1)-ASKVOL(3),0); ,\,]0M.](veP b8I
Var11:=IF((REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1))=0 AND REF(ASKVOL(1),1)>0 AND (REF(ASKVOL(1),1)-ASKVOL(1))<SELLVOL AND ASKVOL(1)<REF(ASKVOL(1),1) AND ASKPRICE(1)=REF(ASKPRICE(1),1) AND DYNAINFO( 7)<REF(ASKPRICE(1),1),REF(ASKVOL(1),1)-ASKVOL(1),0);
FI E-Wmm~5f+D Var12:=IF(ASKVOL(2)<REF(ASKVOL(3),1) AND ASKPRICE(2)=REF(ASKPRICE(3),1) AND DYNAINFO( 7)<REF(ASKPRICE(3),1),REF(ASKVOL(3),1)-ASKVOL(2),0);
1]2\3dR#y Var13:=IF(ASKVOL(3)<REF(ASKVOL(2),1) AND ASKPRICE(3)=REF(ASKPRICE(2),1) AND DYNAINFO( 7)<REF(ASKPRICE(2),1),REF(ASKVOL(2),1)-ASKVOL(3),0); 7}1x;Q{W9PZ
Var14:=IF(BIDVOL(1)<REF(BIDVOL(1),1) AND BIDPRICE(1)=REF(BIDPRICE(1),1) AND DYNAINFO( 7)>REF(BIDPRICE(1),1) AND REF(BIDVOL(1),1)-BIDVOL(1)<>BUYVOL,REF(BIDVOL(1),1)-BIDVOL(1),0); 7y.P2A"I3ZSw
Var15:=IF(BIDVOL(3)<REF(BIDVOL(3),1) AND BIDPRICE(3)=REF(BIDPRICE(3),1) AND DYNAINFO( 7)>REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(3),0);
:p C5TL`ZKx Var16:=IF(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)=0 AND REF(BIDVOL(1),1)>0 AND REF(BIDVOL(1),1)-BIDVOL(1)<BUYVOL AND BIDVOL(1)<REF(BIDVOL(1),1) AND BIDPRICE(1)=REF(BIDPRICE(1),1) AND DYNAINFO( 7)=REF(BIDPRICE(1),1),REF(BIDVOL(1),1)-BIDVOL(1),0);
.J[ Z*[1[D Var17:=IF(BIDVOL(2)<REF(BIDVOL(3),1) AND BIDPRICE(2)=REF(BIDPRICE(3),1) AND DYNAINFO( 7)>REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(2),0);
YVI!K:O[)s$[ Var18:=IF(BIDVOL(3)<REF(BIDVOL(2),1) AND BIDPRICE(3)=REF(BIDPRICE(2),1) AND DYNAINFO( 7)>REF(BIDPRICE(2),1),REF(BIDVOL(2),1)-BIDVOL(3),0);
8m0hS2N [X9eVGq1H,T
p}u R6I UPs9V 对敲买:=(Var4b+Var5b+Var6b);
#|y5Ks6e8z${7@ 对敲卖:=(VarAa+VarAb+VarAc);r/SG0K3N~
总敲买:=sum(对敲买,0);
moD:gC8W3AH
总敲卖:=sum(对敲卖,0);
@+`}u)h*T;~*[R 撤卖:=IF((VarF+Var10+Var11+Var12+Var13)>BUYVOL,VarF+Var10+Var11+Var12+Var13-BUYVOL,0);!tMG5K
Smn
撤买:=IF((Var14+Var15+Var16+Var17+Var18)>SELLVOL,Var14+Var15+Var16+Var17+Var18-SELLVOL,0);
)M$bS$m"O*M 阻比:=(DYNAINFO(18)*DYNAINFO(11)-DYNAINFO(19)*DYNAINFO (11))/(DYNAINFO(18)*DYNAINFO(11)+DYNAINFO(19)*DYNAINFO (11))*100;
8E4|b.r%dRy
^
L 每笔均额:=AMOUNT/QT,PRECISION2,LINETHICK0;
#S0w(z _i~1C&I)V:T 量比:=DYNAINFO(17)*100;
g]7]Ix!GA#op 主动买入:=SUM(BUYVOL,0);
2E0u6~d0X3r 主动卖出:=SUM(SELLVOL,0);E ^^8~;M7L0}.CE4jO
大单买:=IF(BUYVOL>=门限,BUYVOL,0); t2is(C&]8f.kc]\
大单卖:=IF(SELLVOL>=门限,SELLVOL,0);
:V2q{,{xp[)t 大单买入:=SUM(大单买,0);
"Y d,lrz 大单卖出:=SUM(大单卖,0);bH]d5X5VQ)zh*H
小单买入:=主动买入-大单买入;
Y&~ff v.j E 小单卖出:=主动卖出-大单卖出;
i1Pk6_ W%ROYUa 大买金:=SUM(IF(BUYVOL>=门限,BUYVOL,0)*c,0);
/|
w-rka-wJ,L&Xo 大卖金:=SUM(IF(SELLVOL>=门限,SELLVOL,0)*c,0);
P"^a"[0\*Lp 小买金:=SUM(IF(BUYVOL<门限,BUYVOL,0)*c,0);7Tl#G/S;X @R [
小卖金:=SUM(IF(SELLVOL<门限,SELLVOL,0)*c,0);
9{ j)B:Cx BB5\E 大单买均价:=大买金/大单买入; Z#T v1b+vO {9U
大单卖均价:=大卖金/大单卖出;
+c|RGtM 小单买均价:=小买金/小单买入;:Y/k$l.qV\({
小单卖均价:=小卖金/小单卖出;
FIGBH]
t 大单净量:=大单买入-大单卖出;
i8eFaDTw 散户跟风系数:=小单买入/(大单买入-大单卖出);,NdU2jb9`Q
p
当日主力买入:=大单买入;
,X'Yk JY2w J.r'j%OU 当日主力卖出:=大单卖出;?f1U{vRx
主力持仓量:=sum(当日主力买入,(SUMBARS(VOL,FINANCE(7)))/4);%d7M[0{6t&m]B#H,p
本日增减仓:=大单买入-大单卖出;a&aAM'^ g0?m,|X7M
五日增减仓:=(sum(当日主力买入,5));
7eMZIX
sC 十日增减仓:=(sum(当日主力买入,10)); GT%Z0nXly\"ipK
成交笔数:=SUM(IF(BUYVOL>0,1,0),0)+SUM(IF(SELLVOL>0,1,0),0);
6a(|Jc'x4f+@ DRAWTEXTEX(DYNAINFO(7),1,650,5,'散户跟风系数:'+NUMTOSTR(FLOOR(散户跟风系数),1)+'%'),Color00FFFF,LINETHICK2;
(DYAv@x']S DRAWTEXTEX(DYNAINFO(7),1,20,300,'大单买卖差 :'+NUMTOSTR(大单净量,2)),Color00FFFF;yD ? p?F9C5n-}
DRAWTEXTEX(DYNAINFO(7),1,300,300,'占:'+NUMTOSTR(FLOOR(大单净量/(主动买入+主动卖出)*100),0)+'%'),Color00FFFF;
Z UQ)]sb.JS(m DRAWTEXTEX(DYNAINFO(7),1,20,80,'■ 大单买入: '+NUMTOSTR(大单买入,0)),Color0000FF;;hK?"r$m^Y}
DRAWTEXTEX(DYNAINFO(7),1,300,80,'占:'+NUMTOSTR(FLOOR(大单买入/(主动买入+主动卖出)*100),0)+'%'),Color0000FF;
:wG Q"Fy"Y DRAWTEXTEX(DYNAINFO(7),1,420,80,'大单买均价: '+NUMTOSTR(大单买均价,2)),Color8000FF;Fzd ?
L\2p n
DRAWTEXTEX(DYNAINFO(7),1,20,140,'■ 大单卖出: '+NUMTOSTR(大单卖出,0)),Color00FF00;&`4kPfu(Qm
DRAWTEXTEX(DYNAINFO(7),1,300,140,'占:'+NUMTOSTR(FLOOR(大单卖出/(主动买入+主动卖出)*100),0)+'%'),Color00FF00;
Hz"C Vy*|}7O DRAWTEXTEX(DYNAINFO(7),1,420,140,'大单卖均价: '+NUMTOSTR(大单卖均价,2)),Color00FF00;
+Kt5i0\:x#D DRAWTEXTEX(DYNAINFO(7),1,20,200,'■ 小单买入: '+NUMTOSTR(小单买入,0)),ColorFF00FF;1O Sjc$s#c[+sy.}@E
DRAWTEXTEX(DYNAINFO(7),1,300,200,'占:'+NUMTOSTR(FLOOR(小单买入/(主动买入+主动卖出)*100),0)+'%'),ColorFF00FF;!Q Rb6a;R U l#~
DRAWTEXTEX(DYNAINFO(7),1,20,250,'■ 小单卖出: '+NUMTOSTR(小单卖出,0)),ColorFFFF00,LINETHICK2;8{N@9oYfkz
DRAWTEXTEX(DYNAINFO(7),1,300,250,'占:'+NUMTOSTR(FLOOR(小单卖出/(主动买入+主动卖出)*100),0)+'%'),ColorFFFF00; d}&pH3{x
DRAWTEXTEX(DYNAINFO(7),1,20,400,'■ 每笔均额:'+NUMTOSTR(每笔均额,2)),ColorFFFFFF;
UAeaK,qv DRAWTEXTEX(DYNAINFO(7),1,20,350,'■ 每笔均量:'+NUMTOSTR(INTPART((主动买入+主动卖出)/成交笔数),2)),ColorFFFF00;
}cl\(?x+| VarA:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND CLOSE>=REF(ASKPRICE(3),1),BUYVOL,0);
` NaMw\&} P;oeY 上扫:=sum(INTPART(IF(((VarA>100 AND VarA<500) or VarA>=500),BUYVOL,0)),0);
/tu-aH(C6Tuj4E,g VarB:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1) AND CLOSE<=REF(BIDPRICE(3),1),SELLVOL,0);O^9Z$BUTV
下扫:=sum(INTPART(IF(((VarB>100 AND VarA<500) or VarB>=500),SELLVOL,0)),0);%Rx7y&a;A
DRAWTEXTEX(DYNAINFO(7),1,650,80,'买入(手)：'+NUMTOSTR(买入 ,0 )),Color0000FF;
:oE ~1jPs DRAWTEXTEX(DYNAINFO(7),1,650,140,'卖出(手)：'+NUMTOSTR(卖出 ,0 )),Color00ff00;
i6U
~:\p7d DRAWTEXTEX(DYNAINFO(7),1,420,300,'上扫单  ；'+NUMTOSTR(上扫 ,0 )),Color00FFFF;
3vQj:ft])OWHq2y DRAWTEXTEX(DYNAINFO(7),1,420,350,'下扫单  ：'+NUMTOSTR(下扫 ,0)),ColorFFFF00;/H(y9M8UX)t XE
DRAWTEXTEX(DYNAINFO(7),1,420,200,'小单买均价：'+NUMTOSTR(小单买均价,2)),ColorFF00FF;:Z3Z?A?4{E;b|/m:J
DRAWTEXTEX(DYNAINFO(7),1,420,250,'小单卖均价：'+NUMTOSTR(小单卖均价,2)),ColorFFFF00;
0F*zl;Dp'k DRAWTEXTEX(DYNAINFO(7),1,650,200,'撤买(手)：'+NUMTOSTR(撤买 ,0)),ColorFF00FF;
L9LT/y\1I(M DRAWTEXTEX(DYNAINFO(7),1,650,250,'撤卖(手)：'+NUMTOSTR(撤卖 ,0 )),ColorFFFF00;v v9BA6ZbV@T
DRAWTEXTEX(DYNAINFO(7),1,530,400,'总敲买:'+NUMTOSTR(总敲买,0 )),ColorFFFFFF;
0hu n{"K!}vb DRAWTEXTEX(DYNAINFO(7),1,700,400,'总敲卖:'+NUMTOSTR(总敲卖,0  )),ColorFFFFFF;SL!uH]'|/xON'G
DRAWTEXTEX(DYNAINFO(7),1,650,300,'对敲买(手):'+NUMTOSTR(对敲买,0  )),Color00FFFF;
%oCU7tes DRAWTEXTEX(DYNAINFO(7),1,650,350,'对敲卖(手):'+NUMTOSTR(对敲卖,0 )),ColorFFFF00;#m(}_+WA
DRAWTEXTEX(DYNAINFO(7),1,300,350,'量比:'+NUMTOSTR(量比 ,0 )),ColorFFFF00;
|#O{Dk
| r5U 买卖意愿:(SUM(BUYVOL,0)-SUM(SELLVOL,0))/DYNAINFO(8)*100,PRECISION2,LINETHICK0,Color00FFFF;
z F'c
f Uk6e%IMy DRAWTEXTEX(DYNAINFO(7),1,300,400,'总成交笔数: '+NUMTOSTR(成交笔数 ,0 )),ColorFFFFFF;
LB(TXw)X
主力买卖比:=(当日主力买入/当日主力卖出)*100;
^ j2iv#k1u!_R,G s 人均持股:=(FINANCE(7)/FINANCE(50))*10000; SKt#E"w Q
EXPLAIN(1=1,'2007.08.01【一发千钧】'),ColorD300D6;pV*E.Y&| dsm
EXPLAIN(1,'==================================='),colorwhite;FA@K h|
EXPLAINEX(1,'人均持股(万股):  ',人均持股,2,0),Color00FFFF;M;?x{Vt?
EXPLAINEX(1,'今日委买总量:  ',委买总量,0,0),Color0000FF;*s8d P
t~Rd^
EXPLAINEX(1,'今日委卖总量:  ',委卖总量,0,0),Color00FF00;~c^Ar
EXPLAINEX(1,'今日买卖存量:  ',买卖存量,0,0),ColorFF00FF;qb `S,A*B ~c)U {
EXPLAINEX(1,'120日累计换手率(%):  ',半年累加换手率,0,0),Color0085FF;vm9zh7W3lp
EXPLAIN(1,'==================================='),colorwhite;
9h]Q SF0L1qp? EXPLAINEX(1,'当日主力买入(手):  ',当日主力买入,0,0),Color0000FF;
:^Nr4k&`${.g EXPLAINEX(1,'当日主力卖出(手):  ',当日主力卖出,0,0),Color00FF00;
-yD
MkU&z a"` {$F EXPLAINEX(1,'主力买卖比[%]:  ',主力买卖比,1,0),ColorFFFF00;
(w+U H Y;_(Uj EXPLAINEX(1,'当日主力增减仓:  ',本日增减仓,0,0),Color00FFFF;
r}:E/H/J k:H7M EXPLAINEX(1,'五日增减仓:  ',五日增减仓,0,0),Color7F3AFF;U1ZgBS'B[Q `j
EXPLAINEX(1,'十日增减仓:  ',十日增减仓,0,0),ColorF815B4;
R8M.a,rQ8r7p,w EXPLAIN(1,'==================================='),colorwhite;rp,Z5b7hj
EXPLAINEX(1,'资金大单进量:',资金大单进量,2,0),ColorFF00FF;
,_.H9c4{c.T EXPLAINEX(1,'    占总买量％:',(资金大单进量/进场筹码)*100 ,2,0),ColorFF00FF;3}&d1[-DTl n/s:j i
EXPLAINEX(1,'资金大单出量:',资金大单出量,2,0),ColorFFFF00;
;R(M4rD ?a EXPLAINEX(1,'    占总卖量％:',(资金大单出量/出场筹码)*100 ,2,0),ColorFFFF00;
&fB0ZQ9`-?2ZP EXPLAINEX(1,'大单量差:',大单量差,2,0),Color00FF00; W7M`j)iln+Y
EXPLAINEX(1,'进场筹码:',进场筹码,2,0),Color00FFFF;8s.jem3g;[
EXPLAINEX(1,'出场筹码:',出场筹码,2,0),Color006FFF;
#r!H6I@ Ou EXPLAINEX(1,'筹码量差:',筹码量差,2,0),ColorFFFF00;9uz9mj9a)y
EXPLAINEX(1,'    占总筹码％:',ABS(筹码量差/(进场筹码+出场筹码)*100) ,2,0),ColorFFFF00;
g
] Tx-q EXPLAINEX(1,'大单净量: ',大单净量,2,0),ColorFFFFFF;*LaN awxL@8?
EXPLAIN(1,'==================================='),colorwhite;
ZjH uIb0~+R"C:B EXPLAINEX(1,'买进成本:',WIN2,2,0),Color0000FF;
3Knr0g%c EXPLAINEX(1,'卖出成本:',WIN1,2,0),Color00FF00;'|q2V(EA;h
EXPLAINEX(1,'交易平均成本:',分笔交易成本,2,0),coloryellow;
P4hd u+o&l vEa EXPLAINEX(COST(50),'市场平均成本:',COST(50),2,0),ColorFFFFFF;$[8Y;} ]O ]l1UF
EXPLAINEX(COST(4),'主力平均成本:',COST(8),2,0),COLORRED;
e3~V6Yy%x EXPLAINEX(COST(30),'控盘平均成本:',COST(25),2,0),ColorFF00FF;tFO1l'c!Y6]
EXPLAINEX(COST(75),'拉升平均成本:',COST(75),2,0),COLORYELLOW;Zf_J W:pxH
EXPLAINEX(COST(95),'头部区平均成本:',COST(95),2,0),Color00FF00;a(o9A$W IKR&u;a
EXPLAINEX(COST(0.05),'底部区平均成本:',COST(5),2,0),ColorFFFFFF;/ta
bC|
EXPLAIN(1,'==================================='),colorwhite;
-s1E&T}t1q:XWD Z a:=BUYVOL*DYNAINFO(7)/100;&O1y7`RV5Nh P1\^"h
bz:=SUM(a,0);
rX'@O5w6S T:aI2F b:=SELLVOL*DYNAINFO(7)/100;`0{ J'Td
sz:=SUM(b,0);
e.e;Z.J~$E
e+sw^ z:=bz+sz;
xI+a+PZ#Yhj)W cz:=bz-sz;
jtCT$l xb5:=IF(a<=5 ,a,0);b5:=SUM(xb5,0);
n:AT*b^$O,L*gX4Ua xs5:=IF(b<=5 ,b,0);s5:=SUM(xs5,0);
INe+};\ M[ XA n xb10:=IF(a<=10 and a>5 ,a,0);b10:=SUM(xb10,0);5iWX!f?*ee
xs10:=IF(b<=10 and b>5,b,0);s10:=SUM(xs10,0);
'tLq$~jW%@\0[\ xb30:=IF(a<=30 and a>10 ,a,0);b30:=SUM(xb30,0);
4]uu
cB xs30:=IF(b<=30 and b>10 ,b,0);s30:=SUM(xs30,0);
l
Q fQ\7R xb50:=IF(a<=50 and a>30 ,a,0);b50:=SUM(xb50,0);
'u.P6_/rzj9\%jm xs50:=IF(b<=50 and b>30 ,b,0);s50:=SUM(xs50,0);"en-C P8E!rB
xb70:=IF(a<=70 and a>50 ,a,0);b70:=SUM(xb70,0);
{t6V}'y8Z xs70:=IF(b<=70 and b>50 ,b,0);s70:=SUM(xs70,0);
\Ou-~8Z+p'xtg xb100:=IF(a<=100 and a>70,a,0);b100:=SUM(xb100,0); g9Bc oO8jb
xs100:=IF(b<=100 and b>70,b,0);s100:=SUM(xs100,0);y)VHp7b`l
xb150:=IF(a>=100 ,a,0);b150:=SUM(xb150,0);
@}tO&|+~f~K xs150:=IF(b>=100 ,b,0);s150:=SUM(xs150,0);.Bbzt yyss
j5:=b5-s5;
]apg GE j10:=b10-s10;
1jV [7V*^ j30:=b30-s30;%GR8{#`IB/j%Zx@
j50:=b50-s50;
Q!b t1N1F1Z xk j70:=b70-s70;.@)A
\BUT
j100:=b100-s100;/Q#_8y$wi5u
j150:=b150-s150;
Z%DY?-y { X2Vm DRAWTEXTEX(BARSTATUS=2 and (z),1,270,5,' 总成金额（万元）：'+NUMTOSTR(z,2)),LINETHICK8,ColorFFFF00;X1M9j"q:nxA
DRAWTEXTEX(BARSTATUS=2 and (bz),1,20,500,'■■■■■买入:'+NUMTOSTR(bz,2)),LINETHICK1,COLORred;'k)]/Ln/R2N
DRAWTEXTEX(BARSTATUS=2 and (sz),1,250,500,'      ■■■■■卖出:'+NUMTOSTR(sz,2)),LINETHICK1,COLORgreen;j%_s-zC;i
DRAWTEXTEX(BARSTATUS=2 and (b5),1,20,560,'  5 万大单买入:'+NUMTOSTR(b5,2)),LINETHICK1,COLORred;
0yS-N @0t;u9a&t@t DRAWTEXTEX(BARSTATUS=2 and (s5),1,250,560,'        5 万大单卖出:'+NUMTOSTR(s5,2)),LINETHICK1,COLORgreen;GVG$d9QoD5YI!F.Cq9~(T
DRAWTEXTEX(BARSTATUS=2 and (b10),1,20,620,' 10 万大单买入:'+NUMTOSTR(b10,2)),LINETHICK1,COLORred;*~.m"lE&}!Q\
DRAWTEXTEX(BARSTATUS=2 and (s10),1,250,620,'       10 万大单卖出:'+NUMTOSTR(s10,2)),LINETHICK1,COLORgreen;
)a0s$FZ!i T2Z+[-}0Y DRAWTEXTEX(BARSTATUS=2 and (b30),1,20,680,' 30 万大单买入:'+NUMTOSTR(b30,2)),LINETHICK1,COLORred;
'X)lf(k2p/C+a DRAWTEXTEX(BARSTATUS=2 and (s30),1,250,680,'       30 万大单卖出:'+NUMTOSTR(s30,2)),LINETHICK1,COLORgreen;&?$I5LK%A4I&`+R
DRAWTEXTEX(BARSTATUS=2 and (b50),1,20,740,' 50 万大单买入:'+NUMTOSTR(b50,2)),LINETHICK1,COLORred;
(C:^jx_y(\ DRAWTEXTEX(BARSTATUS=2 and (s50),1,250,740,'       50 万大单卖出:'+NUMTOSTR(s50,2)),LINETHICK1,COLORgreen;+s(x]l-p8C?
DRAWTEXTEX(BARSTATUS=2 and (b70),1,20,800,' 70 万大单买入:'+NUMTOSTR(b70,2)),LINETHICK1,COLORred;#]3Z$R2i s
` mc{@Q
DRAWTEXTEX(BARSTATUS=2 and (s70),1,250,800,'       70 万大单卖出:'+NUMTOSTR(s70,2)),LINETHICK1,COLORgreen;.R)x e#Z[
DRAWTEXTEX(BARSTATUS=2 and (b100),1,20,860,'100 万大单买入:'+NUMTOSTR(b100,2)),LINETHICK1,COLORred;q'FxC$SM
DRAWTEXTEX(BARSTATUS=2 and (s100),1,250,860,'      100 万大单卖出:'+NUMTOSTR(s100,2)),LINETHICK1,COLORgreen;
c
i;n4`(_{p DRAWTEXTEX(BARSTATUS=2 and (b150),1,20,920,'150 万大单买入:'+NUMTOSTR(b150,2)),LINETHICK1,COLORred;
~r m x Ybi%x"_@ DRAWTEXTEX(BARSTATUS=2 and (s150),1,250,920,'      150 万大单卖出:'+NUMTOSTR(s150,2)),LINETHICK1,COLORgreen; d$R%j(aUn}(q(M
DRAWTEXTEX(BARSTATUS=2 and (cz),1,500,500,'          ■■■■总净买入:'+NUMTOSTR(cz,2)),LINETHICK1,COLORccff00;1wK#S zUU7_O
DRAWTEXTEX(BARSTATUS=2 and (j5),1,500,560,'             5万大单净买入:'+NUMTOSTR(j5,2)),LINETHICK1,COLORccff00;
T0v1GINZI DRAWTEXTEX(BARSTATUS=2 and (j10),1,500,620,'            10万大单净买入:'+NUMTOSTR(j10,2)),LINETHICK1,COLORccff00;
$e.X&|+L3m"R
_ DRAWTEXTEX(BARSTATUS=2 and (j30),1,500,680,'            30万大单净买入:'+NUMTOSTR(j30,2)),LINETHICK1,COLORccff00;!@:m!F6B"{h7O
DRAWTEXTEX(BARSTATUS=2 and (j50),1,500,740,'            50万大单净买入:'+NUMTOSTR(j50,2)),LINETHICK1,COLORccff00;i2Uuq,D
DRAWTEXTEX(BARSTATUS=2 and (j70),1,500,800,'            70万大单净买入:'+NUMTOSTR(j70,2)),LINETHICK1,COLORccff00; ojR \ kj2tA(aI:f
DRAWTEXTEX(BARSTATUS=2 and (j100),1,500,860,'           100万大单净买入:'+NUMTOSTR(j100,2)),LINETHICK1,COLORccff00;
eh]f9\:`xEI DRAWTEXTEX(BARSTATUS=2 and (j150),1,500,920,'           150万大单净买入:'+NUMTOSTR(j150,2)),LINETHICK1,COLORccff00; RQ1gL@*|2Jf7b*X`4[
总:=V;
u&}E{L4i7J {柱线}
,ZJf;zQP(h STICKLINE(BARPOS=DATACOUNT,1,主动买入,18,0),align5,Color00FFFF; q0\#Pfd1BU
rN#Fc
STICKLINE(BARPOS=DATACOUNT-3,0,主动卖出,18,0),align5,COLOR8000;
3n4N-aBYIt^Z&f STICKLINE(BARPOS=DATACOUNT-6,0,大单买入,18,0),align5,Color0000FF;i3vysh
STICKLINE(BARPOS=DATACOUNT-9,0,大单卖出,18,0),align5,Color00FF00;
8F q$^VI STICKLINE(BARPOS=DATACOUNT-12,0,小单买入,18,0),align5,ColorFF00FF;s#j fI_.^`o$d
STICKLINE(BARPOS=DATACOUNT-15,0,小单卖出,18,0),align5,ColorFFFF00;(?2`9^,n/H+g)w
{显示}
1i%J7qQ:} P+UA;A!u DRAWTEXT(BARPOS=DATACOUNT-16,总,'小\n卖'),PXUP38,align5,COLORBLACK;8T!Ojz$}~!x
DRAWTEXT(BARPOS=DATACOUNT-13,总,'小\n买'),PXUP38,align5,Color00FFFF;F)Lu]2@
DRAWTEXT(BARPOS=DATACOUNT-10,总,'大\n卖'),PXUP38,align5,COLORBLACK;7{HP?T!{P:` ]/C
DRAWTEXT(BARPOS=DATACOUNT -7,总,'大\n买'),PXUP38,align5,Color00FFFF;,JElMOK
DRAWTEXT(BARPOS=DATACOUNT- 4,总,'总\n卖'),PXUP38,align5,Color00FFFF;
0S.Hxq3N%\^*g&i DRAWTEXT(BARPOS=DATACOUNT - 1,总,'总\n买'),PXUP38,align5,Color000000;