设为首页收藏本站

 找回密码
 注册
查看: 3785|回复: 2
打印 上一主题 下一主题

请高手看看这个系统代码错在哪里,跨周期引用atr [复制链接]

Rank: 5Rank: 5

精华
0
UID
13821
积分
672
帖子
36
主题
18
阅读权限
60
注册时间
2010-7-6
最后登录
2013-1-6
跳转到指定楼层
1#
发表于 2010-7-18 21:36:19 |只看该作者 |倒序浏览
基本思路:
1分钟上跨周期提取日线的均线和ATR
如果当天开盘价大于日线50日均线,在开盘价开多仓
如果当天开盘价小于日线50日均线,在开盘价开空仓
以日线50日ATR的n分之一进行跟踪止损

//------------------------------------------------------------------------
// 简称: Kangmodel
// 名称: kang'smodel
// 类别: 交易指令
// 类型: 其他
// 输出:
//------------------------------------------------------------------------
Params
       Numeric n(3);
          
  
Vars
           Numeric StopLine;
           Numeric MyPrice;
          Numeric TrailingStop;
          Numeric MinPoint;
          Numericseries HigherAfterEntry;
          Numericserie Lowerafterentry;
Begin
     MinPoint=MinMove*PriceScale;
     If(BarsSinceEntry==1)
     {
           HigerAfterEntry=AvgEntryPrice;
           LowerAfterEntry=HigherAfterEntry;
      }Else If(BarsSinceEntry>1)
      {
          HigherAfterEntry=Max(HigherAfterEntry[1],High[1]);
          LowerAfterEntry=Min(LowerAfterEntry[1],Low[1]);     
      }
     Commentary("HigherAfterEntry="+Text(HigherAfterEntry));
     Commentary("LowerAfterEntry="+Text(LowerAfterEntry));
     TrailingStop=TruedayRange(50)/n;
     If(MarketPosition!=1&&OpenD(0)>AverageFC(CloseD,50))
     {
              Myprice=openD(0);
              Buy(1,Myprice);
              Return;
      }
     If(MarketPosition!=-1&&OpenD(0)<AverageFC(CloseD,50))
     {
              Myprice=openD(0);
              Sellshort(1,Myprice);
              Return;
      }
      If(MarketPosition==1)
      {
           If(Low<=HigherAfterEntry-TrailingStop}
           {
               MyPrice=HigherAfterEntry-TrailingStop;
               If(Open<MyPrice)MyPrice=Open;
               Sell(1,MyPrice);
            }
        }Else If(MarketPosition==-1)
        {
             If(High>=LowerAfterEntry+TrailingStop;
             {
                MyPrice=LowerAfterEntry+TrailingStop;
                If(Open>MyPrice)MyPrice=Open;
                BuyToCover(1,MyPrice);
              }
          }
           SetExitOnClose;
End

//------------------------------------------------------------------------
// 编译版本        GS2004.06.12
// 用户版本        2010/07/18 19:10
// 版权所有        oliverzrl
// 更改声明        TradeBlazer Software保留对TradeBlazer平台
//                        每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------

用户

Rank: 5Rank: 5

精华
0
UID
13821
积分
672
帖子
36
主题
18
阅读权限
60
注册时间
2010-7-6
最后登录
2013-1-6
2#
发表于 2010-7-18 21:38:04 |只看该作者
Ps希望一天只开仓一次仓就是在开盘的时候,不需要反手

使用道具 举报

Rank: 2

精华
0
UID
13884
积分
59
帖子
19
主题
0
阅读权限
30
注册时间
2010-7-8
最后登录
2014-5-11
3#
发表于 2011-12-9 13:34:55 |只看该作者
跨周期提取日线数据的时候需要使用数据引用函数啊

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

bottom

静态版|手机版|联系我们|交易开拓者 ( 粤ICP备07044698   

GMT+8, 2024-5-10 13:07

Powered by Discuz! X2 LicensedChrome插件扩展

© 2011-2012 交易开拓者 Inc.

回顶部