以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  如下代码请转为金字塔模型  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=71786)

--  作者:qwe8899
--  发布时间:2014/11/7 12:55:32
--  如下代码请转为金字塔模型
老师好.如下文华代码请帮转为金字塔模型.谢谢!

C1:=VALUEWHEN(DATE<>REF(DATE,1),REF(C,1)); 
H1:=VALUEWHEN(DATE<>REF(DATE,1),REF(H,1)); 
L1:=VALUEWHEN(DATE<>REF(DATE,1),REF(L,1)); 
CF:=MAX((H1-C1),(C1-L1))*4;
 //昨日高点减去收盘  和  昨日收盘减去低点 两者中大的数值 乘以3
O1:=VALUEWHEN(DATE<>REF(DATE,1),O); 
C>O1+CF,BPK;
 //收盘大于今日开盘+ CF  买入
C<O1-CF,SPK;
//收盘低于今日开盘- CF  卖出

HH:=HHV(H,BARSBK+1);
//买开仓位置到现在最高价
LL:=LLV(L,BARSSK+1);
//卖开仓位置到现在最低价
TIME>=0930&&C>=LL+L*9/1000,BP;
//最高阶回撤1%止损
TIME>=0930&&C<=HH-HH*9/1000,SP;
//最高阶回撤1%止损
TIME>=1500,SP;
TIME>=1500,BP;

AUTOFILTER;

--  作者:jinzhe
--  发布时间:2014/11/7 13:12:10
--  
处理中,请稍等
--  作者:pyd
--  发布时间:2014/11/7 13:42:04
--  


C1:=VALUEWHEN(DATE<>REF(DATE,1),REF(C,1));
H1:=VALUEWHEN(DATE<>REF(DATE,1),REF(H,1));
L1:=VALUEWHEN(DATE<>REF(DATE,1),REF(L,1));
CF:=MAX((H1-C1),(C1-L1))*4;
 //昨日高点减去收盘  和  昨日收盘减去低点 两者中大的数值 乘以3
O1:=VALUEWHEN(DATE<>REF(DATE,1),O);
if C>O1+CF then BEGIN
SELLSHORT(holding<0,holding,market);
buy(holding=0,1,market);
end
 //收盘大于今日开盘+ CF  买入
if C<O1-CF then begin
 sell(holding>0,holding,market);
 buyshort(holding=0,1,market);
 end
//收盘低于今日开盘- CF  卖出


HH:=HHV(H,enterbars+1);
//买开仓位置到现在最高价
LL:=LLV(L,exitbars+1);
//卖开仓位置到现在最低价
if TIME>=0930 and C>=LL+L*9/1000 then SELLSHORT(holding<0,holding,market);
//最高阶回撤1%止损
if TIME>=0930 and C<=HH-HH*9/1000 then sell(holding>0,holding,market);
//最高阶回撤1%止损
if TIME>=1500 then sell(holding>0,holding,market);
if TIME>=1500 then SELLSHORT(holding<0,holding,market);


 


--  作者:qwe8899
--  发布时间:2014/11/7 13:57:35
--  
1楼乱开仓呢
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20141107135228.png
图片点击可在新窗口打开查看

--  作者:jinzhe
--  发布时间:2014/11/7 14:12:57
--  
根据你的原来的代码翻译过来的,如果觉得不对,请修改原来的代码
--  作者:qwe8899
--  发布时间:2014/11/7 15:20:33
--  
在文华上运行不会这样乱开平呢
--  作者:jinzhe
--  发布时间:2014/11/7 15:35:25
--  
那么就是两款软件的差异了,同样的代码造成了不同的结果