主题：请高手将一个TB交易系统修改为金字塔交易系统

Begin
   

    MinPoint = MinMove*PriceScale;
    preDayHigh = HighD(1);
    preDayLow = LowD(1);
   
    range=((preDayHigh-preDayLow)/preDayLow)*100;
    If(range>Rangefilter2)
    {
    Return;
    }
 If(range<Rangefilter1)
 {
 Return;
 }
    If(Date!=Date[1])
    {
        DayOpen = Open;
        preDayRange = preDayHigh - preDayLow;
        If(preDayRange < Open*MinRange*0.01)
  preDayRange = Open*MinRange*0.01;
  bLongStoped = False;
     bShortStoped = False;
     HigherAfterEntry = High;
     LowerAfterEntry = Low;
  FailureCnts = 0;
    }Else
    {
        DayOpen = DayOpen[1];
        preDayRange = preDayRange[1];
     bLongStoped = bLongStoped[1];
     bShortStoped = bShortStoped[1];
  HigherAfterEntry = max(HigherAfterEntry[1],High[1]);
        LowerAfterEntry = min(LowerAfterEntry[1],Low[1]);
        If(BarsSinceEntry == 1)
        {
         //If (MarketPosition==1)
   HigherAfterEntry = AvgEntryPrice;
         //If (MarketPosition==-1)
   LowerAfterEntry = AvgEntryPrice;
        }
  FailureCnts = FailureCnts[1];
    }
    Commentary("FailureCnts="+Text(FailureCnts));
 Commentary("bLTrue","False"));
    Commentary("bShortStoped="+IIFString(bShortStoped,"True","False"));
 

 Commentary("HigherAfterEntry="+Text(HigherAfterEntry));
    Commentary("LowerAfterEntry="+Text(LowerAfterEntry));
 
 UpperBand = DayOpen + preDayRange*PercentOfRange;
 LowerBand = DayOpen - preDayRange*PercentOfRange;
 
 bInBoardRange = (Open < Q_LowerLimit + DayOpen*StopLossSet*0.02) Or ( Open > Q_UpperLimit - DayOpen*StopLossSet*0.02);
 
 If(Open == Q_UpperLimit) Sell(1,Open);
 If(Open == Q_LowerLimit) BuyToCover(Lots,Open);
 
 If(MarketPosition!=1 && High>=UpperBand && Time < LastTradeMins/100 && bLongStoped==False && FailureCnts < FailureLimit&&Time>(Begintradetime/100))
 {
  MyPrice = UpperBand;
  If(Open > MyPrice) MyPrice = Open+slip;
  Buy(Lots,MyPrice);
  bLongStoped = True;
  Return;
 }
 If(MarketPosition!=-1 && Low<=LowerBand && Time < LastTradeMins/100 && bShortStoped==False && FailureCnts < FailureLimit&&Time>(Begintradetime/100))
 {
  MyPrice = LowerBand;
  If(Open < MyPrice) MyPrice = Open-slip;
  SellShort(Lots,MyPrice);
  bShortStoped = True;
  Return;
 }
    If(MarketPosition==1)
    {
     If(HigherAfterEntry>=AvgEntryPrice+DayOpen*TrailingStart*0.01)
     {
      StopLine = HigherAfterEntry - DayOpen*TrailingStop*0.01;
     }Else // 止损
     {
      StopLine = AvgEntryPrice-DayOpen*StopLossSet*0.01;
     }
     If(Low <= StopLine)
     {
   If(PositionProfit < 0 ) FailureCnts = FailureCnts + 1;
      MyPrice = StopLine;
      If(Open < MyPrice) MyPrice = Open-slip;
      Sell(Lots,MyPrice);
   bLongStoped = True;
            Return;
     }
    }
 Else If(MarketPosition==-1)
    {
     If(LowerAfterEntry<=AvgEntryPrice-DayOpen*TrailingStart*0.01)
     {
      StopLine = LowerAfterEntry + DayOpen*TrailingStop*0.01;
     }Else // 止损
     {
         StopLine = AvgEntryPrice+DayOpen*StopLossSet*0.01;
  }
     If(High >= StopLine)
     {
   If(PositionProfit < 0 ) FailureCnts = FailureCnts + 1;
      MyPrice = StopLine;
      If(Open > MyPrice) MyPrice = Open+slip;
      BuyToCover(Lots,MyPrice);
   bShortStoped= True;
            Return;
     }
    }
 
 //突破前期高低点再次入场
 If(bLongStoped && MarketPosition==0 && High > HigherAfterEntry && Time < LastTradeMins/100  && FailureCnts < FailureLimit)
 {
  MyPrice = HigherAfterEntry + MinPoint;
  If(Open > MyPrice) MyPrice = Open+slip;
  Buy(Lots,MyPrice);
  bLongStoped = False;
  Return;
 }
 If(bShortStoped && MarketPosition==0 && Low < LowerAfterEntry && Time < LastTradeMins/100  && FailureCnts < FailureLimit)
 {
  MyPrice = LowerAfterEntry - MinPoint;
  If(Open < MyPrice) MyPrice = Open-slip;
  SellShort(Lots,MyPrice);
  bShortStoped= False;
  Return;
 }