分享一个股指程序IF_5min

yebenli

一个做多模块，一个做空模块，同时运行就可以减少回撤。

1.   
   
2. Params
   
3.         Numeric Lots(1);
   
4. 
   
5. Vars
   
6.         NumericSeries length(20);
   
7.         NumericSeries UpBand;
   
8.         NumericSeries DnBand;
   
9.         NumericSeries MidBand;
   
10. 
    
11. Begin
    
12. 
    
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;
    
25. 
    
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.         }
    
38. 
    
39.         //出场
    
40.         if( MarketPosition>0 && L<=midband && BarsSinceEntry>=1 )
    
41.         {
    
42.                 Sell(Lots,Min(O,midband));
    
43.         }
    
44.         Commentary("length="+Text(Length));
    
45. 
    
46. End

复制代码

1. Params
   
2.         Numeric Lots(1);
   
3. Vars
   
4.         NumericSeries length(20);
   
5.         NumericSeries UpBand;
   
6.         NumericSeries DnBand;
   
7.         NumericSeries MidBand;
   
8. 
   
9. Begin
   
10.        
    
11. 
    
12. 
    
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.         {
    
29. 
    
30.                 If ( C[1]<DnBand[1] && C[2]<DnBand[2]  && L<=L[1])
    
31.                 {
    
32.                         SellShort(Lots,Min(O,L[1]) );
    
33.                 }
    
34.         }
    
35. 
    
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

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