欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件策略编写求助区 → 求助后台程式化交易公式编写

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有6186人关注过本帖树形打印复制链接

主题:求助后台程式化交易公式编写

帅哥哟,离线,有人找我吗?
26327756l
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/10 8:47:21 [显示全部帖子]

仅供参考

input:M(26,5,300,30),N(2,0.1,10,1);

MID :  MA(CLOSE,M);
UPPER: MID + N*STD(CLOSE,M);
LOWER: MID - N*STD(CLOSE,M);
//最新价上穿下轨时(持仓为零)或最新价高于开盘价时(持仓为零)即开多单,
if (cross(c,lower) or c>o) then tbuy(tholding=0,1);
//最新价上穿上轨时(持仓为零)或最新价低于开盘价时(持仓为零)即开空单。
if (cross(c,upper) or c<o) then tbuy(tholding=0,1);
//反手动作:在日内任何时间段,最新价高于或低于开仓价20点时做反手(包括当根K线内做反手)。
if c<TENTERPRICE+20*mindiff then
begin
tsell(holding>0,0);
tbuyshort(holding=0,1);
end

if c>TEXITPRICE+20*mindiff then
begin
tsellshort(holding<0,0);
tbuy(holding=0,1);
end

//清      仓:在14点58分全部平仓。
 if time>145800 then
 begin
 tsell(holding>0,0);
 tsellshort(holding<0,0);
 end

 

[此贴子已经被作者于2011-11-10 9:08:16编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
26327756l
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:黑侠 帖子:676 积分:2548 威望:0 精华:3 注册:2011/4/13 16:18:50
  发帖心情 Post By:2011/11/10 9:29:24 [显示全部帖子]

修改后


input:M(26,5,300,30),N(2,0.1,10,1);
MID := MA(CLOSE,M);
UPPER: MID + N*STD(CLOSE,M);
LOWER: MID - N*STD(CLOSE,M);
oo:=ref(o,BARSLAST(date<>ref(date,1)));
//最新价上穿下轨时(持仓为零)或最新价高于开盘价时(持仓为零)即开多单,
if (cross(c,lower) or c>oo) then tbuy(tholding=0,1,MKT);
//最新价上穿上轨时(持仓为零)或最新价低于开盘价时(持仓为零)即开空单。
if (cross(c,upper) or c<oo) then tbuy(tholding=0,1,MKT);
//反手动作:在日内任何时间段,最新价高于或低于开仓价20点时做反手(包括当根K线内做反手)。
if c>TENTERPRICE+20*mindiff and THOLDING>0 then
begin
tSELL(1,0,MKT),ORDERQUEUE;
tBUYSHORT(1, 1,MKT),ORDERQUEUE;
end
if c<TENTERPRICE-20*mindiff and THOLDING<0 then
begin
tSELLSHORT(1,0,MKT),ORDERQUEUE;
tBUY(1,1,MKT),ORDERQUEUE;
end


//清      仓:在14点58分全部平仓。
 if CURRENTTIME>145800 then
 begin
 tsell(tholding>0,0,MKT);
 tsellshort(tholding<0,0,MKT);
 end

 

[此贴子已经被作者于2011-11-10 9:36:59编辑过]

 回到顶部