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

标题: 分享一个股指程序IF_5min [打印本页]
作者: yebenli    时间: 2014-9-17 16:26:41     标题: 分享一个股指程序IF_5min

本帖最后由 yebenli 于 2014-9-17 16:42 编辑

一个做多模块，一个做空模块，同时运行就可以减少回撤。
[attach]30296[/attach]
  1.   
  2. Params
  3.         Numeric Lots(1);

  5. Vars
  6.         NumericSeries length(20);
  7.         NumericSeries UpBand;
  8.         NumericSeries DnBand;
  9.         NumericSeries MidBand;

  11. Begin

  13.         IF(MarketPosition==0)
  14.         {
  15.                 Length=20;
  16.         }
  17.         IF(MarketPosition<>0)
  18.         {
  19.                 Length=Min(120,length+1);
  20.         }
  21.        
  22.         UpBand=Highest(High[1],Length);
  23.         DnBand=Lowest(Low[1],Length);
  24.         MidBand=(UpBand+Dnband)/2;

  26.         PlotNumeric("UpBand",UpBand);
  27.         PlotNumeric("DnBand",DnBand);
  28.         PlotNumeric("MidBand",MidBand);
  29.        
  30.         if( MarketPosition==0 )
  31.         {
  32.                 If ( C[1]>UpBand[1] && C[2]>UpBand[2] && H>=H[1])
  33.                 {
  34.                         Buy(Lots,Max(O,H[1]) );
  35.                 }
  36.           
  37.         }

  39.         //出场
  40.         if( MarketPosition>0 && L<=midband && BarsSinceEntry>=1 )
  41.         {
  42.                 Sell(Lots,Min(O,midband));
  43.         }
  44.         Commentary("length="+Text(Length));

  46. End
复制代码
  1. Params
  2.         Numeric Lots(1);
  3. Vars
  4.         NumericSeries length(20);
  5.         NumericSeries UpBand;
  6.         NumericSeries DnBand;
  7.         NumericSeries MidBand;

  9. Begin
  10.        


  13.         IF(MarketPosition==0)
  14.         {
  15.                 Length=20;
  16.         }
  17.         IF(MarketPosition<>0)
  18.         {
  19.                 Length=Min(120,length+1);
  20.         }
  21.         UpBand=Highest(High[1],Length);
  22.         DnBand=Lowest(Low[1],Length);
  23.         MidBand=(UpBand+Dnband)/2;
  24.         PlotNumeric("UpBand",UpBand);
  25.         PlotNumeric("DnBand",DnBand);
  26.         PlotNumeric("MidBand",MidBand);
  27.         if( MarketPosition==0  )
  28.         {

  30.                 If ( C[1]<DnBand[1] && C[2]<DnBand[2]  && L<=L[1])
  31.                 {
  32.                         SellShort(Lots,Min(O,L[1]) );
  33.                 }
  34.         }

  36.         if( MarketPosition<0 && H>=midband && BarsSinceEntry>=1 )
  37.         {
  38.                 BuyToCover(Lots,Max(O,midband));
  39.         }
  40.         Commentary("length="+Text(Length));
  41.          
  42. End
复制代码
作者: zhc1234    时间: 2014-9-21 01:03:04

这个程序比较简单，但过滤效果还不错，赞一个！



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