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


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

   

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


  共有6050人关注过本帖平板打印复制链接

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

帅哥哟,离线,有人找我吗?
26327756l
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

 回到顶部