2013-12-24 在线答疑时某客户要的当日亏损两次后禁止开仓的例

小马

Params
        Numeric Length(5);
        Numeric MN(2);                                // 最大亏损次数
Vars
        NumericSeries AvgValue;
        NumericSeries n_loss(0);        // 当日亏损次数
        NumericSeries myNetProfit;        // 累计的最大净利润
Begin
        AvgValue = AverageFC(Close,Length);       
       
        If(TrueDate(0) != TrueDate(1))
        {
                n_loss = 0;
        }
       
        If(MarketPosition != 1 And Close[1] > AvgValue[1] And n_loss < MN)
        {
                Buy(1,Open);
        }
        If(MarketPosition == 1 And Close[1] < AvgValue[1])
        {
                Sell(0,Open);               
        }

        myNetProfit = NetProfit;
        If(myNetProfit < myNetProfit[1]) n_loss = n_loss[1] + 1;
End