请老师将SAR转为TBQ

Params
    Numeric Length1(4);
    Numeric Step(2);
    Numeric MValue(2);
Vars
    NumericSeries Step1;
    NumericSeries MValue1;
    NumericSeries SARLine;
          Numeric AA;
          Numeric BB;
          NumericSeries SAR红;
          NumericSeries SAR绿;

Begin
    Step1 = Step / 100;
    MValue1 = MValue / 10;
    SARLine = Sar(Length1,Step1,MValue1);//,Circledot;//Length个周期的抛物转向，步长为Step1，极限值为MValue1.
    //PlotLine("SARLine",SARLine,Red,Circledot);
    //PlotLine("SARLine",-SARLine,Cyan,Circledot);
          AA=IIF(SARLine<0,ABS(SARLine),InvalidNumeric);//青点
          BB=IIF(SARLine>0,SARLine,InvalidNumeric);//红点
          PlotLine("SARLine",BB,Red,Circledot,1);
          PlotLine("SARLine",AA,Cyan,Circledot,1);

        SAR红=CROSSUP(SARLINE,0)||SARLINE>0;//SAR上穿||SAR>0
        SAR绿=CROSSDOWN(SARLINE,0)||SARLINE<0;//SAR下穿||SAR<0

End