公布一个超级好用的股指实盘策略源码

任任任

Params
  Numeric Length(30); //N 30                     
  Numeric SlowLength(10);   //M1
  Numeric SmoothLength(10);  //M2
  Numeric lots(1);
  Numeric offset(2);
  Numeric Stoploss(40);

Vars
NumericSeries HighestValue;                                
NumericSeries LowestValue;                                       
NumericSeries KValue;//TB中的K值
NumericSeries DValue;//TB中的K值
NumericSeries RSV;        
NumericSeries K1;//正规的K值
NumericSeries D1;//正规的D值
Numeric i_offset;//程序化交易
Numeric BuyPosition;
Numeric SellPosition;
Numeric myEntryPrice;                  
Numeric myExitPrice;     

Begin
{
       HighestValue = HighestFC(High, Length);
       LowestValue = LowestFC(Low, Length);
       RSV = (Close-LowestValue)/(HighestValue-LowestValue)*100;
       K1 = SMA(RSV,SlowLength,1);
       D1 = SMA(K1,SmoothLength,1);                 
       KValue = SummationFC(Close - LowestValue,SlowLength)/SummationFC(HighestValue-LowestValue,SlowLength)*100;
       DValue = AverageFC(KValue,SmoothLength);
       PlotNumeric("RSV",RSV);

if(MarketPosition == 0)
{
     if(K1 > D1)
     {
         buy(lots,high);  //<---原来这里用的buy(lots,close[1]);
         Return;
     }  
}         
   else if (MarketPosition == 1) //平多
   {
     if(K1 < D1)
         {
           sell(lots,open);//<--这里用的是sell(lots,close);
                   Return;//程序化交易 www.cxh99.com
         }
   }
  //止损
        If(MarketPosition == 1)
        {
                If(Low < EntryPrice - StopLoss * MinMove*PriceScale)
                {
                        myExitPrice = EntryPrice - (StopLoss+1) * MinMove*PriceScale;
                        myExitPrice = max(low,myExitPrice);
                        Sell(lots,myExitPrice);
                }
        }
        Else If(MarketPosition == -1)
        {
                If(High > EntryPrice + StopLoss * MinMove*PriceScale)
                {
                        myExitPrice = EntryPrice + (StopLoss+1) * MinMove*PriceScale;
                        myExitPrice = min(high,myExitPrice);
                        BuyToCover(lots,myExitPrice);
                }
        }      
}
end

sunrains

谢谢分享

无心

偷了很多价格
不能用的

任任任

无心 发表于 2013-2-28 11:40
偷了很多价格
不能用的

只是提供思路
实盘还有待改进

2687799

If(Date!=Date[1]   )
    {
        
    }Else

这里缺代码么？

天崖

偷了很多价格
不能用的

趋势跟踪

太复杂了吧，但思路非常好！

89578251

无心 发表于 2013-2-28 11:40
偷了很多价格
不能用的

偷了很多价格，是什么意思？

89578251

天崖 发表于 2013-2-28 16:42
偷了很多价格
不能用的

偷了很多价格，是什么意思？

耗子居士

哎，都上免费的了