这个自适应均线程序哪里有问题，请老师改写一下，谢谢

Params

  Series<Numeric> Price(1); //数值型序列值

Numeric EffRatioLength(10); //自适应周期数

Numeric FastAvgLength(2); //短周期数

Numeric SlowAvgLength(30); //长周期数

//系统相关

Numeric ConfirmPeriod(3); //确认均线趋势次数

Numeric StdMultiplier(1); //过滤器百分比

//交易相关

Numeric Slipes(2); //滑点

Vars

//AMA相关

Numeric STDLen(0); //标准差长度

Numeric PriceSTD(0);

Numeric STDRatio(1); //进入标准差的倍数

Bool LongIndicator(True);

Bool ShortIndicator(True);

Numeric i;

Numeric NetChg(0);

Numeric TotChg(0);

Numeric EffRatio(0);

Numeric ScaledSFSqr(0);

Series<Numeric> AMAValue;

Numeric SFDiff;

Events

OnBar(ArrayRef<Integer> indexs)

{

  if(CurrentBar == 0)

  {

AMAValue = Price;

}Else

{

NetChg = Abs( Price - Price[EffRatioLength] );

TotChg = Summation( Abs( Price - Price[1] ), EffRatioLength );

EffRatio = IIF(TotChg > 0, NetChg / TotChg, 0);

SFDiff = 2 / ( FastAvgLength + 1 ) - 2 / ( SlowAvgLength + 1 );

ScaledSFSqr = Sqr( 2 / ( SlowAvgLength + 1 ) + EffRatio * SFDiff );

AMAValue = AMAValue[1] + ScaledSFSqr * ( Price - AMAValue[1] );

}

  STDLen=SlowAvgLength;

  PriceSTD=StandardDev(Close[1],STDLen);

//当不持多仓的情况下，如果做多条件满足，则做多

  If(MarketPosition <>1 && AMAValue[1]-Lowest(AMAValue[1],ConfirmPeriod) > PriceSTD*STDRatio*StdMultiplier/100 )

  {

    Buy(0,Open+Slipes);

    PlotString ("top","jdc",Portfolio_TotalProfit,Red);

  }

//当不持空仓的情况下，如果做空条件满足，则做空

  If(MarketPosition <>-1 && Highest(AMAValue[1],ConfirmPeriod)-AMAValue[1] > PriceSTD*STDRatio*StdMultiplier/100 )

   {

     SellShort(0,Open-Slipes);

    PlotString ("top","jkc",Portfolio_TotalProfit,Red);

   }

   PlotNumeric("PL",Portfolio_TotalProfit);

}