免费分笔BBD的一种想法！~

前段时间写一个免费BBD的东东，不过中间有其他事，一直没继续完，现在公布出来，顺便说说思路，希望能给有些老师或同学一点帮助。如果对您有用，希望您能动动手，帮顶一下，只为了让需要的人看到，谢谢！~

{委买1委卖1数量}
B:BIDVOL(1),LINETHICK0;
S:ASKVOL(1),LINETHICK0;
{委买1委卖1价格}
BJ:BIDPRICE(1),LINETHICK0;
SJ:ASKPRICE(1),LINETHICK0;

{上一笔时委买1委卖1数量及价格}
B1:=REF(B,1);
BJ1:=REF(BJ,1);
S1:=REF(S,1);
SJ1:=REF(SJ,1);
{理论上是可以多记录几档的}

MMVOL:VOL,LINETHICK0;{本笔成交量}
HBBD:=IF(VOL>=1000 OR CLOSE*VOL*100>=200000,VOL,0);{我是以 成交金额大于 20 万  或者 成交数量大于 1000手 认为是大单}

{判断HBBD是卖出或是买入单}
{买入}
HMBBD:=IF((HBBD>0 AND  ((S<S1 AND BJ=BJ1 AND SJ=SJ1 )  OR  BJ>BJ1 OR SJ>SJ1 OR  CLOSE>REF(CLOSE,1)) AND BJ>0 )  OR (BJ=0 AND CLOSE>REF(CLOSE,1)),HBBD,0);
HMBBD:=IF(BJ=BJ1 AND B<B1,HMBBD-(B1-B),HMBBD);
{卖出}
HMBSD:=IF((HBBD>0 AND  (BJ<BJ1 OR (B<B1 AND BJ=BJ1 AND SJ=SJ1 ) OR SJ<SJ1 OR  CLOSE<REF(CLOSE,1) ) AND SJ>0)  OR (SJ=0 AND CLOSE<REF(CLOSE,1)),HBBD,0);
HMBSD:=IF(SJ=SJ1 AND S<S1,HMBSD-(S1-S),HMBSD);

{计算买入与卖出的单差}
MFVOL:(SUM(HMBBD,0)-SUM(HMBSD,0));


如果你仔细看你会发现这个指标有一个极为严重的问题，就是没有考虑在涨停与跌停时的买入与卖出，如何排除的问题，其实很简单，加几个条件就可以了，由于本人比较懒没写，希望有兴趣的可以去折腾折腾。