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


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件交易策略发布专区 → [源码]基于关键反转日的趋势策略,无未来函数,信号绝不闪烁

   

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


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

主题:[源码]基于关键反转日的趋势策略,无未来函数,信号绝不闪烁

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


加好友 发短信
等级:新手上路 帖子:19 积分:154 威望:0 精华:0 注册:2010/5/24 11:09:28
  发帖心情 Post By:2012/10/25 14:34:56 [显示全部帖子]

这个策略可能是从TB改过来的,有很多函数意思与金字塔不同,改动以后的代码可能是这个样子的,有什么不对的还请各位指出。

//------------------------------------------------------------------------
// 简称: FZR
// 名称: FZR
// 类别: 公式应用
// 类型: 用户应用
// 作者: blue810204
//------------------------------------------------------------------------

input:lots(1,0,100,1);

variable:N1=1;

        i_offset:=N1*MINDIFF;
       
        D1 := llv(REF(Low,2),22);                //求1个月最低价
        D2 := hhv(REF(High,2),22);               //求1个月最高价
   
        D3 := IntPart(0.008*ref(Open,1));            //昨日开盘价的0.8%
       
        Condition1 := (REF(LOW,1)<=D1 OR REF(LOW,2)<=D1 OR REF(LOW,3)<=D1)    And (REF(Open,1)-REF(CLOSE,1))>=D3;    //判断反转日,由多转空
        Condition2 := (REF(HIGH,1)>=D2 OR REF(HIGH,2)<=D2 OR REF(HIGH,3)<=D2) And (REF(CLOSE,1)-REF(Open,1))>=D3;    //判断反转日,由空转多

       

        if Condition2 then
        begin
             if holding=0 then
             BEGIN
                 buy(1,lots,limitr,(Open+i_offset));
             end
    
             if holding<0 then
               begin
                   SELLSHORT(1,0,limitr,(Open+i_offset));
                   buy(1,lots,limitr,(Open+i_offset));
              end
        end

        if Condition1 then
        begin
             if holding=0 then
             BEGIN
                 BUYSHORT(1,lots,limitr,(Open-i_offset));
             end

             if holding>0 then
               begin
                   SELL(1,0,limitr,(Open-i_offset));
                   BUYSHORT(1,lots,limitr,(Open-i_offset));
              end
        end


//资产:asset,noaxis,colorred,linethick2;

//------------------------------------------------------------------------
// 编译版本    金字塔2.93
// 用户版本    2012/10/08 09:03
// 版权所有    BLUE810204
// 更改声明    引用请注明出处



查看使用道具详细信息
获赠金币帖,共获得 0 个金币
 回到顶部