- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-2-3
|
|
FBKP-G2 真的很牛嘛?未必。
不知道原理,就永远都怀有盲目崇拜的心理。
感觉fbkp还是不错的,找不到源码就自己凑一下,用老分笔公式算出来有些出入,
于是直接舍弃,使用
主动买:=buyvol;
主动卖:=sellvol;
这下,FBKP原形毕露,小大单分布结果几乎一模一样。
----
在网上fbkp有两个公式,一个是加密限时的排序公式,另一个是看盘公式,现在看盘公式的在分笔下如何计算的原理已经清楚,只要再弄清楚关键的强度算法即可。
fbkp强度定义是有范围的 +9.99 - -9.99
似乎和大单差的净比重关联甚多,因为以前我也企图只用一个公式,做每日强势的短线,大单净差占总成交量的比例就成了关键。
由于fbkp的算法基于 buyvol 和 selvol 函数,所以基本而言,是不可单独信任的,一定要依托其他指标综合判别。
------------
另附上今晚为破解fbkp顺手做的分笔看盘源码:
功能:
1. 图形查看成交量堆积在当日股价的分布
2. 图形查看大小单占总成交量的比值
3. 小差 大差 特大差 走势
4. 大单 特大单门限自定义
都是很简单的功能,显示时需要放大主窗口,文本都是相对放置的,会被挤压:
----------------------------------
{(提别提醒:原先使用的分笔公式里面,现价:=amount/vol/100,其实是不正确的,完全有可能计算出异常价格,在分笔中应当使用close做现价)}
现价:=c;
Var2:=REF(ASKPRICE(1),1);
Var3:=REF(BIDPRICE(1),1);
Var4:=(Var2-Var3)*0.35;
{对于跌停可以计算买入,对于涨停却无法计算卖出,用这个公式有增仓之嫌}
Var5:=IF(现价>=Var2-Var4,VOL,IF(现价<Var2-Var4 AND 现价>Var3+Var4,BUYVOL,0));
Var6:=IF(现价<=Var3+Var4,VOL,IF(现价<Var2-Var4 AND 现价>Var3+Var4,SELLVOL,0));
x1:=a1*10000;
x2:=a2*10000;
tdb:=IF(AMOUNT>=x2,Var5,0);
特大买量:=sum(tdb,0);
tds:=IF(AMOUNT>=x2,Var6,0);
特大卖量:=sum(tds,0);
db:=IF(AMOUNT>=x1 and amount<x2,Var5,0);
ds:=IF(AMOUNT>=x1 and amount<x2,Var6,0);
大买量:=SUM(db,0);
大卖量:=SUM(ds,0);
小买量:=SUM(IF(AMOUNT<x1,Var5,0),0);
小卖量:=SUM(IF(AMOUNT<x1,Var6,0),0);
小量差:小买量-小卖量,colorgreen,linethick1;
大量差:大买量-大卖量,colorwhite,linethick2;
特大量差:特大买量-特大卖量,coloryellow,linethick3;
大上差:大量差+特大量差,COLORMAGENTA,linethick4;
总量:=sum(vol,0);
0,colorgray;
sb:=小买量/总量*100;
ss:=小卖量/总量*100;
bb:=大买量/总量*100;
bs:=大卖量/总量*100;
lb:=特大买量/总量*100;
ls:=特大卖量/总量*100;
DRAWTEXTREL(10 ,600 ,'小买%:'+sb),colorred;
DRAWTEXTREL(10 ,700 ,'小卖%:'+ss),colorred;
DRAWTEXTREL(90 ,600 ,'大买%:'+bb),colorred;
DRAWTEXTREL(90 ,700 ,'大卖%:'+bs),colorred;
DRAWTEXTREL(170 ,600 ,'特大买%:'+lb),colorred;
DRAWTEXTREL(170 ,700 ,'特大卖%:'+ls),colorred;
DRAWRECTREL(40 ,510-sb*11 , 50 ,510 ,RGB(255,0,0));
DRAWRECTREL(60 ,510-ss*11, 70 ,510 ,RGB(0,255,0));
DRAWRECTREL(110 ,510-bb*11 , 120 ,510 ,RGB(255,0,0));
DRAWRECTREL(130 ,510-bs*11 , 140 ,510 ,RGB(0,255,0));
DRAWRECTREL(190 ,510-lb*11 , 200 ,510 ,RGB(255,0,0));
DRAWRECTREL(210 ,510-ls*11 , 220 ,510 ,RGB(0,255,0));
{-------------看各价位上的成交累计------------}
DRAWTEXTrel(250 ,850 ,'-10-9-8-7-6-5-4-3-2-1 0 '),colorgreen;
DRAWTEXTrel(410 ,850 ,' +1+2+3+4+5+6+7+8+9+10'),colorred;
昨收:DYNAINFO(3);
涨幅:(c/昨收-1)*100;
n9:sum(if(涨幅<=-9,vol,0),0)/总量;
n8:sum(if(涨幅<=-8 and 涨幅>-9,vol,0),0)/总量;
n7:sum(if(涨幅<=-7 and 涨幅>-8,vol,0),0)/总量;
n6:sum(if(涨幅<=-6 and 涨幅>-7,vol,0),0)/总量;
n5:sum(if(涨幅<=-5 and 涨幅>-6,vol,0),0)/总量;
n4:sum(if(涨幅<=-4 and 涨幅>-5,vol,0),0)/总量;
n3:sum(if(涨幅<=-3 and 涨幅>-4,vol,0),0)/总量;
n2:sum(if(涨幅<=-2 and 涨幅>-3,vol,0),0)/总量;
n1:sum(if(涨幅<=-1 and 涨幅>-2,vol,0),0)/总量;
b0:sum(if(涨幅<=0 and 涨幅>-1,vol,0),0)/总量;
p1:sum(if(涨幅<=1 and 涨幅>0,vol,0),0)/总量;
p2:sum(if(涨幅<=2 and 涨幅>1,vol,0),0)/总量;
p3:sum(if(涨幅<=3 and 涨幅>2,vol,0),0)/总量;
p4:sum(if(涨幅<=4 and 涨幅>3,vol,0),0)/总量;
p5:sum(if(涨幅<=5 and 涨幅>4,vol,0),0)/总量;
p6:sum(if(涨幅<=6 and 涨幅>5,vol,0),0)/总量;
p7:sum(if(涨幅<=7 and 涨幅>6,vol,0),0)/总量;
p8:sum(if(涨幅<=8 and 涨幅>7,vol,0),0)/总量;
p9:sum(if(涨幅<=9 and 涨幅>8,vol,0),0)/总量;
p10:sum(if(涨幅<=10 and 涨幅>9,vol,0),0)/总量;
DRAWRECTREL(265 ,840-n9*300, 275 ,840 ,RGB(0,0,255));
DRAWRECTREL(280 ,840-n8*300, 290 ,840 ,RGB(0,0,255));
DRAWRECTREL(295 ,840-n7*300, 305 ,840 ,RGB(0,0,255));
DRAWRECTREL(310 ,840-n6*300, 320 ,840 ,RGB(0,0,255));
DRAWRECTREL(325 ,840-n5*300, 335 ,840 ,RGB(0,0,255));
DRAWRECTREL(340 ,840-n4*300, 350 ,840 ,RGB(0,0,255));
DRAWRECTREL(355 ,840-n3*300, 365 ,840 ,RGB(0,0,255));
DRAWRECTREL(370 ,840-n2*300, 380 ,840 ,RGB(0,0,255));
DRAWRECTREL(385 ,840-n1*300, 395 ,840 ,RGB(0,0,255));
DRAWRECTREL(400 ,840-b0*300, 410 ,840 ,RGB(0,0,255));
DRAWRECTREL(415 ,840-p1*300, 425 ,840 ,RGB(255,0,0));
DRAWRECTREL(430 ,840-p2*300, 440 ,840 ,RGB(255,0,0));
DRAWRECTREL(445 ,840-p3*300, 455 ,840 ,RGB(255,0,0));
DRAWRECTREL(460 ,840-p4*300, 470 ,840 ,RGB(255,0,0));
DRAWRECTREL(475 ,840-p5*300, 485 ,840 ,RGB(255,0,0));
DRAWRECTREL(490 ,840-p6*300, 500 ,840 ,RGB(255,0,0));
DRAWRECTREL(505 ,840-p7*300, 515 ,840 ,RGB(255,0,0));
DRAWRECTREL(520 ,840-p8*300, 530 ,840 ,RGB(255,0,0));
DRAWRECTREL(535 ,840-p9*300, 545 ,840 ,RGB(255,0,0));
DRAWRECTREL(550 ,840-p10*300, 560 ,840 ,RGB(255,0,0)); |
-
| 参与人数 1 | 奖励 +50 |
热心 +3 |
时间 |
理由
|
lymanqun
| + 50 |
+ 3 |
2008-10-7 08:31 |
帖子很棒,加分鼓励,期待您更多优秀帖 ... |
查看全部评分
|
|