開拓者股指3分鐘日內，支撐阻力位突破交易策略源碼

作者：開拓者 TB 來源：cxh99.com 發布時間：2012年12月04日

咨詢內容：

//-----------------------------------------------------------------------
// 簡稱: 50050402
// 名稱: 支撐阻力位突破
// 類別: 公式應用
// 類型: 用戶應用{程序化交易}
//------------------------------------------------------------------------
Params
      Numeric lostmove(0.20);

Numeric N(0.70);

Vars

     Numeric NetChg(0);
      Numeric TotChg(0);
      NumericSeries EffRatio(0);
NumericSeries AMAValue;                //定義效率指數

      NumericSeries HighVanlue(0);          //定義高點阻力位；
      NumericSeries LowVanlue(0);          //定義低點支撐位；

NumericSeries HigherVanlue(0);       //較高高點；
NumericSeries LowerVanlue(0);          //較低低點；

Numeric ATR;

Begin

   //計算ATR
   ATR = AvgTrueRange(20);

   //定義AMA（自適應曲線）
      if(CurrentBar == 0)
      {
      AMAValue = close;
      }Else
      {
            NetChg = Abs( close - close[10] );
      TotChg = Summation( Abs( close - close[1] ), 10);
      EffRatio = IIF(TotChg > 0, NetChg / TotChg, 0);
      }

//三點清零
If(Time==0.1515)
{
HighVanlue=0;
LowVanlue=0;
}

//定義阻力支撐位
If(Time>0.0930)
{
      If(high[3]>high[4]&&High[3]>High[5]&&high[3]>high[2] &&high[3]>high[1])
   {
   HighVanlue=high[3];
   }

      If(low[3]<low[4]&&Low[3]<Low[5] &&low[3]<low[2] &&low[3]<low[1])
   {
   LowVanlue=low[3];
   }
}Else
{
   HighVanlue=Highest(High,BarsSinceToday);
   LowVanlue=Lowest(Low,BarsSinceToday);
}

//比較較高的高點，較低的低點；
HigherVanlue = Max(HighVanlue,HighVanlue[1]);
LowerVanlue = Min(LowVanlue,LowVanlue[1]);

//平倉

   //盤中6000止損
   If(MarketPosition==1&&close<EntryPrice-20)
   {
      Sell(1,EntryPrice-20);
PlotString("Vol","金額止損",Low,Red);
   }

   If(MarketPosition==-1&&Close>EntryPrice+20)
   {
      BuyToCover(1,EntryPrice+20);
PlotString("Vol","金額止損",Low,Red);
   }


   //順勢平倉
   //平多單
   If(MarketPosition==1&&Low<LowVanlue-lostmove)
   {
   if(Open<LowVanlue-lostmove)
   {
      Sell(1,Open-lostmove);
   PlotString("Vol","破低",Low,Red);
   }Else
   {
   Sell(1,LowVanlue-lostmove);
   PlotString("Vol","破低",Low,Red);
   }
   }

   //平空單
   If(MarketPosition==-1&&High>HighVanlue+lostmove)
   {
      If(Open>HighVanlue+lostmove)
{
   BuyToCover(1,Open+lostmove);
   PlotString("Vol","破高",Low,Red);
}Else
{
      BuyToCover(1,HighVanlue+lostmove);
PlotString("Vol","破高",Low,Red);
}
   }

   //回撤止損
   IF(MarketPosition==1&&Close<Highest(High,BarsSinceEntry)-4*ATR)
   {
      Sell(1,Close);
PlotString("Vol","ATR",Low,Red);
   }

   If(MarketPosition==-1&&Close>Lowest(Low,BarsSinceEntry)+4*ATR)
   {
      BuyToCover(1,Close);
PlotString("Vol","ATR",Low,Red);
   }


//開倉
//順勢突破開倉
If(0.0930<Time&&Time<0.1430)
{
   If(MarketPosition!=1&&Close>HigherVanlue+lostmove&&EffRatio>N)
   {
   Buy(1,Close);
   }

   If(MarketPosition!=-1&&Close<LowerVanlue-lostmove&&EffRatio>N)
   {
   SellShort(1,Close);
   }
}

   //收盤平倉
   If(MarketPosition==1&&Time>=0.1509)
   {
   Sell(1,Close);
   PlotString("Vol","收盤平倉",Low,Red);
   }

   If(MarketPosition==-1&&Time>=0.1509)
   {
   BuyToCover(1,Close);
   PlotString("Vol","收盤平倉",Low,Red);
   }

End

//------------------------------------------------------------------------
// 編譯版本 GS2010.12.08
// 用戶版本 2012/02/08 14:07
// 版權所有 lzy990100887{程序化交易}
// 更改聲明 TradeBlazer Software保留對TradeBlazer平臺
// 每一版本的TrabeBlazer公式修改和重寫的權利
//------------------------------------------------------------------------

網友點評： 雖然錯誤很多
但思路還是不錯的
加工了一個絕大部分品種通用的模型