主题：[求助]这个新版的TBSAR指标，那个大侠可以帮我改成金字塔的

Params
 Numeric n(2);     //高低点通道的周期
 Numeric stepaf(0.02);   //加速因子的步长
 Numeric maxaf(0.2);    //加速因子的最大值
Vars
 NumericSeries hhn;    //高点通道
 NumericSeries lln;    //低点通道
 NumericSeries bysar;   //新版的SAR数值
 NumericSeries flag;    //涨跌趋势的标志。1为涨，-1为跌；
 NumericSeries byaf;    //新版的加速因子
Begin
 //计算高低点的通道
 hhn=Highest(High[1],n);
 lln=Lowest(Low[1],n);
 PlotNumeric("hhn",hhn);
 PlotNumeric("lln",lln);
 //因为TB运行机制之回溯，第一根BAR不画图。所以跳过不运行
 If(CurrentBar<1)
  Return;
 //从图表第二跟BAR开始作为SAR的起点。 
 If(CurrentBar==1)
  {
  If(Close>=Open)
   {
   flag=1;
   bysar=Low;
   byaf=0;
   }
  Else
   {
   flag=-1;
   bysar=High;
   byaf=0;
   }
  PlotNumeric("bysar",bysar);
  Commentary("flag"+Text(flag));
  return;
  }
 //涨势当中 
 If(flag==1 And CurrentBar>1)
  {
  //涨转跌
  If(Low[1]<bysar[1])
   {
   flag=-1;
   bysar=hhn;
   byaf=0;
   }
  //继续涨 
  Else
   {
   //高点通道创新高
   If(hhn>hhn[1] And byaf+stepaf<=maxaf)
    byaf=byaf+stepaf;
   //针对趋势开始的第一根BAR需要给出byaf初值 
   If(byaf<stepaf)
    byaf=stepaf;
   bysar=bysar[1]+byaf*(hhn-bysar[1]); 
   }
  PlotNumeric("bysar",bysar,0,Green);
  Commentary("flag"+Text(flag));
  return;
  }
 //跌势当中 
 If(flag==-1 And CurrentBar>1)
  {
  //跌转涨
  If(High[1]>bysar[1])
   {
   flag=1;
   bysar=lln;
   byaf=0;
   }
  //继续跌 
  Else
   {
   //低点通道创新低
   If(lln<lln[1] And byaf+stepaf<=maxaf)
    byaf=byaf+stepaf;
   //针对趋势开始的第一根BAR需要给出byaf初值 
   If(byaf<stepaf)
    byaf=stepaf;
   bysar=bysar[1]+byaf*(lln-bysar[1]); 
   }
  PlotNumeric("bysar",bysar,0,Red);
  Commentary("flag"+Text(flag));
  return;
  }
End