哪位大神帮我看一下这个程序

FIERY

我的想法是：AMA（20）上捌 且价格向上突破AMA(20)线买入开仓，价格向下碰到AMA(20)卖出平仓；同样AMA(20)下捌 且价格向下突破AMA(20)线卖出开仓，价格向上碰到AMA(20)买入平仓；
我是一个刚学的菜鸟，以下程序请帮忙修正，万分感谢！
Params
        NumericSeries Price(1);
        Numeric EffRatioLength(20);
        Numeric FastAvgLength(2);
        Numeric SlowAvgLength(30);
Vars
        Numeric NetChg(0);
        Numeric TotChg(0);
        Numeric EffRatio(0);
        Numeric ScaledSFSqr(0);
        NumericSeries AMAValue;       
        Numeric SFDiff;

Begin
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] );
        }
        Return AMAValue;       
       
        If(Price >AMAValue && AMAValue[1] > AMAValue[2])
        {
                Buy(1,Open);
        }
       
        If(Price <AMAValue)
        {
                SellShort(1,Open);
        }
        If(Price <AMAValue && AMAValue[1] < AMAValue[2])
        {
                Sell(1,Open);
        }
        If(Price >AMAValue)
        {
                BuyToCover(1,Open);
        }
        PlotNumeric("AMA",AMAValue);
        PlotNumeric("PL",Portfolio_TotalProfit);
        PlotNumeric("AdpMa",AdaptiveMovAvg(Close,EffRatioLength,FastAvgLength,SlowAvgLength));
End

FIERY

大神们，出来活动一下，帮我修改一下。

zzzlondon

AMA有函数AdaptiveMovAvg，不需要自己写
Params

        Numeric EffRatioLength(20);
        Numeric FastAvgLength(2);
        Numeric SlowAvgLength(30);
Vars

        NumericSeries AMAValue;        


Begin
                AMAValue=AdaptiveMovAvg(Close,EffRatioLength,FastAvgLength,SlowAvgLength);
        
        If(close >AMAValue && AMAValue[1] > AMAValue[2])
        {
                Buy(1,close);
        }
        
        If(close <AMAValue)
        {
                SellShort(1,close);
        }
        If(close <AMAValue && AMAValue[1] < AMAValue[2])
        {
                Sell(1,close);
        }
        If(close >AMAValue)
        {
                BuyToCover(1,close);
        }
        PlotNumeric("AMA",AMAValue);

End

sorakiraa

1.参数里不能有序列变量，你的Price类型是错的，而且以你的意思Price将永远是1
2.判断曲线上拐不是上升。。。应该用(AMA[1]+AMA[3])/2>AMA[2]
3.平仓是BuyToCover(0,Open)和Sell(0,Open)
4.另外不知是不是你贴错了，你应该是先定义了一个AdaptiveMovAvg的函数，然后再调用，但是你的代码都混在了一起

你再看看吧

FIERY

大哥们，太感谢了。

FIERY

大哥们，这个程式为什么平仓时会出现多次信号，而且出现了信号一会还可能会消失，应该怎么改？谢谢！另外我这个程式会有哪些问题？菜鸟求解中！

Params

        Numeric EffRatioLength(20);
        Numeric FastAvgLength(2);
        Numeric SlowAvgLength(30);
Vars

        NumericSeries AMAValue;
Begin

AMAValue=AdaptiveMovAvg(Close,EffRatioLength,FastAvgLength,SlowAvgLength);

if(MarketPosition==0)
{
    If(Close >AMAValue&&(AMAValue[1]+AMAValue[3])/2>AMAValue[2])
            {
                    Buy(1,Open);
                        Return;
                }
       
        Else If(Close<AMAValue && (AMAValue[1]+AMAValue[3])/2<AMAValue[2])
            {
                    SellShort(1,Open);
                        Return;
                }
}
If(MarketPosition==-1)
{
     If(Close>=AMAValue)
             {
                 BuyToCover(1,open);
                 }
}
If(Marketposition==1)
{
     If(Close<=AMAValue)
             {
                 Sell(1,Open);
                 }
}
End