软件名称：[B]时时把握大盘脉搏，进退自如（附源码）[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：6.00 KB
官方主页：Home Page
更新时间：2011-11-06 06:36:22
软件简介:
首先感谢数学老师的Level2逐笔数据和运算转换工具软件。
众所周知，逐笔成交统计体现了分类投资者（超大、大、中、散）户的投资意愿（主动性）。在盘口观察个股的主动性买卖单是短线非常重要的参考依据。
我们在用大智慧L2自编逐笔主动性公式的时候，用的是transactvol指标。本帖就不赘述该指标的用法和技巧了。
因为transactvol指标只能用于个股，我们今天要分享的是能看大盘或指定板块的主动性成交在盘中的分时表现。
图2位上证在近期表现，大家可以看到每到主动性翻红的时候，大盘必会出现上升小波段。这个大智慧是做不到的，就算上万的机构版也无此功能。
通过数学2016老师的Level2逐笔数据，我们实现了对大盘、板块的动态主动性成交检测。下面公布一下源代码供大家交流切磋。
If STRFIND( TYPESTR,'指数' ,1 )=0 then begin
XX:=V;
X:=100;
If C>O Then stickline(1,0,Vol/X,8,0),color000050,Precis0,layer6;
If C=O Then stickline(1,0,Vol/X,8,0),color505050,Precis0,layer6;
If C<O Then stickline(1,0,Vol/X,8,0),color005000,Precis0,layer6;
{如果是指数
画柱状线0～成交量/100，宽度8 阳画深蓝？ 停牌画黑 阴画绿}
End;
If STRFIND( TYPESTR,'指数' ,1 )<>0 then begin
X:=10000;
XX:=Amount/X;
If C>O Then stickline(1,0,Amount/X,8,0),color000050,Precis0,layer6;
If C=O Then stickline(1,0,Amount/X,8,0),color505050,Precis0,layer6;
If C<O Then stickline(1,0,Amount/X,8,0),color005000,Precis0,layer6;
{如果不是指数
画柱状线0～成交额/10000，宽度8 阳画深蓝？ 停牌画黑 阴画绿}
End;
{
成交:XX,Precis0,LINETHICK0;
}
DB:="Topview@RL2"(2,10,1)/X; {大买=所有主动买入成交}
DS:="Topview@RL2"(2,20,1)/X; {大卖=所有主动迈出成交}
{
DB:"Topview@RL2"(2,12)/X,Precis0,LINETHICK0;
DS:"Topview@RL2"(2,22)/X,Precis0,LINETHICK0;
}
DBS:(DB-DS),Precis0,LINETHICK0;{大买卖差=大买-大卖（取整数，不显示）}
M:=N;
IF DATATYPE=3 OR DATATYPE=1 OR DATATYPE=8 THEN M:=Min(N,Barscount(DB));
{M=N
若分时、1分钟、日线周期下，M是括号中的最小值(N,大买从第一个有效数据到当前的周期数)}
DBN:EMA(DB,M)*M,Precis0,ColorRed,Linethick1; {DBN=大买的M日平滑移动平均，红色}
DSN:EMA(DS,M)*M,Precis0,ColorGreen,Linethick1;{DSN=大卖的M日平滑移动平均，绿色}
DBSN:Ma(EMA(DBS,M)*M,T),Precis0,colorYellow,Linethick1;{DBSN=大买卖差的T日平均，取整，黄s}
FILLRGN(DBN,DSN,DBN-DSN>0,RGB(100,0,0),DBN-DSN<0,RGB(0,100,0) ),precis0,layer7;
{填充，红色 绿色 取整 第7层}
发散天数:barslast(DBSN<Ref(DBSN,1)),Precis0,Linethick0;
{上一次【DBSN小于上一周期DBSN条件成立(趋弱)】至今的天数，也就是趋强天数}
翻红天数:barslast(DBSN<0),Precis0,Linethick0;{上一次【DBSN小于0至今的】天数}
上升幅度:(DBSN-Ref(DBSN,发散天数))/(DBN+DSN)*100,Precis0,Linethick0;
{
BSN:DBN-DSN,Precis0,color3d,layer7;
BSXN:Sum(DB-DS,M)/Sum(DB+DS,M)*200,Precis0;
if BARSTATUS=2 then Begin
DRAWTEXTABS(0,0,'N日主力差比：'+NUMTOSTRN(BSXN,0)),COLORffffff;
End;
}
If DB>DS Then Begin
stickline(1,0,DB,8,1),ColorRed,Precis0;
stickline(1,0,DS,4,0),colorcyan,Precis0;
End;
If DB<DS Then Begin
stickline(1,0,DS,8,1),colorcyan,Precis0;
stickline(1,0,DB,4,2),ColorRed,Precis0;
End;
{小单累积:EMA(("Topview@RL2"(2,10,1)-"Topview@RL2"(2,11,1))-("Topview@RL2"(2,20,1)-"Topview@RL2"(2,21,1)),M)*M/X,Precis0,colorwhite;
;};
[url=http://www.70822.com/soft/sort013/sort03/down-40664.html]时时把握大盘脉搏，进退自如（附源码）[/url]