- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2007-4-4
|
|
原帖由 lymanqun 于 2007-3-18 18:59 发表 
好了,一般精度的就用马来兄的公式,高精度的就用你刚才的公式:
分笔大额
Var1:=AMOUNT/VOL/100;
Var2:=REF(ASKPRICE(1),1);
Var3:=REF(BIDPRICE(1),1);
Var4:=(Var2-Var3)*0.35;
Var5:=IF(Var1>= ...
如果说要精确的计算分笔大额,小弟觉得应该采用如下公式,这样才是每一笔的成交精确金额,原来的是先求和再*c,修改后是每一笔金额之和,大家觉得呢?:
分笔大额
Var1:=AMOUNT/VOL/100;
Var2:=REF(ASKPRICE(1),1);
Var3:=REF(BIDPRICE(1),1);
Var4:=(Var2-Var3)*0.35;
Var5:=IF(Var1>=Var2-Var4,VOL,IF(Var1<Var2-Var4 AND Var1>Var3+Var4,BUYVOL,0));
Var6:=IF(Var1<=Var3+Var4,VOL,IF(Var1<Var2-Var4 AND Var1>Var3+Var4,SELLVOL,0));
J: SUM(Var5,0);
大单买量:SUM(IF(AMOUNT>=50000,Var5*c,0),0);{新}
大单买量:SUM(IF(AMOUNT>=50000,Var5,0),0)*c;{老}
T: SUM(Var6,0);
大单卖量:SUM(IF(AMOUNT>=50000,Var6*c,0),0);{新}
大单卖量:SUM(IF(AMOUNT>=50000,Var6,0),0)*c;{老}
Var2;
P: Var1;
Var3;
VOL, VOLSTICK;
U: EMA(J-T,3);
Var7:=BARSLAST(CLOSE>REF(CLOSE,1));
Var8:=BARSLAST(CLOSE<REF(CLOSE,1));
Var9:=SUM(IF(REF(CLOSE,Var7)<=CLOSE,VOL,0),0);
VarA:=SUM(IF(REF(CLOSE,Var8)>=CLOSE,VOL,0),0);
U1: EMA(Var9-VarA,3);
[ 本帖最后由 zhbsystem888 于 2007-4-14 20:58 编辑 ] |
|
|