黑棒佳丽、VIP级的黑棒佳丽指标策略返回

温馨提示：您下载的指标源码仅供学习交流，据此入市风险自负！

----------------------------------------------------------------

Params
      Numeric PercentOfRange(0.8);
      Numeric ExitOnCloseMins(14.55);
      Numeric MinRange(0.2);
      Numeric LastTradeMins(14.00);
      Numeric BeginTradeMins(9.00);
      Numeric Lots(1);
      Numeric Stoplossset(1);
Vars
      NumericSeries DayOpen;
      NumericSeries preDayRange;
      NumericSeries HigherAfterEntry;
      NumericSeries LowerAfterEntry;
      Numeric preDayHigh;
      Numeric preDayLow;
      Numeric UpperBand;
      Numeric LowerBand;
      Numeric MyPrice;
      Numeric StopLine;
Begin
      DayOpen=OpenD(0);
      preDayHigh=HighD(1);
      preDayLow=LowD(1);
      preDayRange=HighD(1)-LowD(1);
      UpperBand=DayOpen+preDayRange*PercentOfRange;
      LowerBand=Dayopen-preDayRange*PercentOfRange;
     If(BarsSinceEntry==1)
     { HigherAfterEntry=AvgEntryPrice;
         LowerAfterEntry=HigherAfterEntry;
      }Else If(BarsSinceEntry>1)
     {   HigherAfterEntry=max (HigherAfterEntry[1],High[1]);
          LowerAfterEntry=min(LowerAfterEntry[1],Low[1]);     }
     If(Date!=Date[1])
     {DayOpen=Open;
      preDayRange=preDayHigh-preDayLow;
      If(preDayRange<Open*MinRange*0.01)
         PreDayRange=Open*MinRange*0.01;
      }Else
      {DayOpen=DayOpen[1];
       preDayRange=preDayRange[1];       }
     If(MarketPosition!=1&&High>=UpperBand&&Time<LastTradeMins/100)
     {        Myprice=UpperBand;
              If(Open>Myprice)Myprice=Open;
              Buy(1,Myprice);
              Return;      }
      If(MarketPosition!=1&&Low<=LowerBand&&Time<LastTradeMins/100)
     {      Myprice=LowerBand;
              If(Open<Myprice)Myprice=Open;
              Sellshort(1,Myprice);
              Return;      }
      If(MarketPosition==1)
      {   StopLine=UpperBand-DayOpen*StopLossSet*0.01;
             If(Low<=StopLine)
             {  MyPrice=StopLine;
                  If(Open<MyPrice)MyPrice=Open;
                  BuyToCover(Lots,MyPrice);
              }       }
      
      If(Time>=ExitOnCloseMins/100)
      {      Sell(1,Open);
               BuyToCover(1,Open);    }

End

----------------------------------------------------------------

注：请用下载工具下载为TXT记事本文件，请勿在浏览器中打开，代码将不完整！
更多指标公式及量化投资策略请访问 [ 西部汇市 ] 指标公式源码栏目。
使用可实战型指标及自动交易模型请联系微信:46416815