软件名称：[B]FB-KP指标[/B]
软件类型：国产软件
运行环境：Win9X/2000/XP/2003/
软件语言：简体中文
授权方式：解密版
软件大小：2.00 KB
官方主页：Home Page
更新时间：2009-01-14 19:40:31
软件简介:
FBKP源码请优化一下!!
抄了所谓FBKP源码,自已在其后加编了"买卖强弱"排序,测试过好象效果不是十分理想.
前面的是抄录的,后面从"小量差"开始是我编加上去的.望高手提供下思路优化一下.谢谢啦.
{FBKP}
a:=BUYVOL;
az:=a*c/100;
b:=SELLVOL;
bz:=b*c/100;
xb8:=if(az<8,a,0);小买单:sum(xb8,0);
xs8:=if(bz<8,b,0);小卖单:sum(xs8,0);
xb80:=if(az>=8 and az<=80,a,0);大买单:sum(xb80,0);
xs80:=if(bz>=8 and bz<=80,b,0);大卖单:sum(xs80,0);
xb100:=if(az>80,a,0);特大买单:sum(xb100,0);
xs100:=if(bz>80,b,0);特大卖单:sum(xs100,0);
小量差:=小买单-小卖单;
大量差:=大买单-大卖单;
特大量差:=特大买单-特大卖单;
d:=小量差+大量差+特大量差;
买卖强弱:d/capital*100;
前面的是抄录的,后面从"小量差"开始是我编加上去的.望高手提供下思路优化一下.谢谢啦.
{FBKP}
a:=BUYVOL;
az:=a*c/100;
b:=SELLVOL;
bz:=b*c/100;
xb8:=if(az<8,a,0);小买单:sum(xb8,0);
xs8:=if(bz<8,b,0);小卖单:sum(xs8,0);
xb80:=if(az>=8 and az<=80,a,0);大买单:sum(xb80,0);
xs80:=if(bz>=8 and bz<=80,b,0);大卖单:sum(xs80,0);
xb100:=if(az>80,a,0);特大买单:sum(xb100,0);
xs100:=if(bz>80,b,0);特大卖单:sum(xs100,0);
小量差:=小买单-小卖单;
大量差:=大买单-大卖单;
特大量差:=特大买单-特大卖单;
d:=小量差+大量差+特大量差;
买卖强弱:d/capital*100;
[url=http://www.70822.com/soft/sort013/sort03/down-5588.html]FB-KP指标[/url]