开拓者期货期权程序化系统交易论坛

标题: 急救啊，求管理帮忙写一个SAR，固定15分钟算一次结果 [打印本页]

作者: kspdjm 时间: 2012-1-18 12:47:30 标题: 急救啊，求管理帮忙写一个SAR，固定15分钟算一次结果

一点头绪没用啊，求管理帮忙指引一下啊

作者: 蔡宛宏 时间: 2012-1-18 13:17:29

不明白啥意思

作者: zzzlondon 时间: 2012-1-18 13:34:31

http://www.tradeblazer.net/forum/thread-17457-1-1.html

作者: kspdjm 时间: 2012-1-18 13:48:53

//------------------------------------------------------------------------
// 简称: SAR_system
// 名称:
// 类别: 公式应用
// 类型: 用户应用
// 输出: 穿堂风
//------------------------------------------------------------------------

Params
      Numeric AfStep(0.02);
      Numeric AfLimit(0.2) ;
      Numeric malen(120);
      Numeric stopLoss(1);
      Numeric BuyLots(1);
      Numeric offset(0);
Vars
      Numeric oParCl( 0 );
      Numeric oParOp( 0 );
      Numeric oPosition( 0 );
      Numeric oTransition( 0 );
      NumericSeries oParOp_s;
      Numeric oParOp_p;
      Numeric i_offset;
      Numeric ma;
      Bool bUpline;
      string strkey;
      string strValue;
      Numeric i_stopLoss;

Begin

      ma = Average(Open,malen);
      bUpline = Open>= ma;
      ParabolicSAR( AfStep, AfLimit, oParCl, oParOp, oPosition, oTransition ) ;
      oParOp_s = oParOp;
      oParOp_p = oParOp_s[1];
      i_offset = offset*MinMove*PriceScale;
      i_stopLoss = stopLoss*(OpenD(0)/100);

      Commentary("oParOp:"+Text(oParOp));
      Commentary("oTransition:"+Text(oTransition));
      Commentary("oPosition:"+Text(oPosition));
If(CurrentBar>malen)
{
      PlotNumeric("oParCl",oParCl);
      If(malen != 0)
      {
            PlotNumeric("ma",ma);
      }

      If(MarketPosition == 0)
      {
            If(malen == 0)
            {
                     bUpline = True;
            }

            If(oTransition == 1 and bUpline)
            {
                     Buy(BuyLots,Max(Open,oParOp_p)+i_offset);
                     Return;
            }

            If(malen == 0)
            {
                     bUpline = False;
            }

            If(oTransition == -1 and bUpline==False)
            {
                     SellShort(BuyLots,Min(Open,oParOp_p)-i_offset);
                     Return;
            }
      }

      If(MarketPosition == 1)
      {
            If(malen == 0)
            {
                     bUpline = False;
            }

            If(LastEntryPrice-Low>=i_stopLoss)
            {
                     Sell(BuyLots,Min(Open,LastEntryPrice-i_stopLoss)-i_offset);
                     Return;
            }
            If(oPosition == -1)
            {

                     If(oTransition == -1 and bUpline==False)
                     {
                              SellShort(BuyLots,Min(Open,oParOp_p)-i_offset);
                     }
                     Else
                     {
                              Sell(BuyLots,Min(Open,oParOp_p)-i_offset);
                     }
            }
      }

      If(MarketPosition == -1)
      {
            If(malen == 0)
            {
                     bUpline = True;
            }

            If(High-LastEntryPrice>=i_stopLoss)
            {
                     BuyToCover(BuyLots,Max(Open,LastEntryPrice+i_stopLoss)+i_offset);
                     Return;
            }
            If(oPosition == 1)
            {
                     If(oTransition == 1 and bUpline)
                     {
                              Buy(BuyLots,Max(Open,oParOp_p)+i_offset);
                     }
                     Else
                     {
                              BuyToCover(BuyLots,Max(Open,oParOp_p)+i_offset);
                     }
            }
      }
}
End

//------------------------------------------------------------------------
// 编译版本       GS2010.12.08
// 用户版本       2011/09/05 12:21
// 版权所有       穿堂风
// 更改声明       TradeBlazer Software保留对TradeBlazer平台
//                      每一版本的TrabeBlazer公式修改和重写的权利
//------------------------------------------------------------------------
看了这个指令，在这个原有基础上，只做判断出场规则，进场规则不变可以吗？

作者: kspdjm 时间: 2012-1-18 13:54:42

其实想请教高手帮忙写一个跨周期的SAR函数，在追涨杀跌置顶帖子中有人提到过，但是追涨杀跌老师没写，有高手一起研究一下吗。

作者: yml6363 时间: 2012-7-3 23:14:21

支持下。。。

作者: 公楚南杰 时间: 2012-7-14 19:30:08

kspdjm 发表于 2012-1-18 13:48
//------------------------------------------------------------------------
// 简称: SAR_system
// 名 ...

如将原码导入却居然无法按SAR指标买卖，是否有问题？

欢迎光临开拓者期货期权程序化系统交易论坛 (http://bbs.tb18.net/)