開拓者 TB 三均線交易系統，請大家和高手修改、完善、提升

作者：開拓者 TB 來源：cxh99.com 發布時間：2013年03月11日

三均線系統語言

一、       模型構想：小時圖
三個簡單移動平均作比較，4小時，9小時，18小時。
①       買入：4小時均線上穿18小時均線；
②       賣出：4小時均線下穿18小時均線。

二、       模型文字語言
1.       開、平倉條件
（1）當前無持倉
a. 當4小時均線上穿18小時均線；下一根K線以開盤價開多倉；
b. 當4小時均線下穿18小時均線；下一根K線以開盤價開空倉。
（2）當前持多倉
a. 4小時均線下穿9小時均線，下一根K線以開盤價平倉。
（3）當前持空倉
a. 4小時均線上穿9小時均線，下一根K線以開盤價平倉。
2.       持倉數量：為總資金的30%
3.       沒有止損

三、       模型語言編輯(源代碼)：

Params
      Numeric FourLength(4);  //短期均線參數4
      Numeric NineLength(9);  //短期均線參數9
      Numeric EighteenLength(18);  //短期均線參數18
Vars
      NumericSeries MA4;  //短期均線4
      NumericSeries MA9;  //短期均線9
      NumericSeries MA18;  //短期均線18
      Numeric TradeUnits;  //可交易的合約數量
      Numeric Trademoney;  //允許交易的金額
      Numeric Contractprice;  //單張合約金額
Begin
      MA4 = Average(Close, FourLength);
      MA9 = Average(Close, NineLength);
      MA18 = Average(Close, EighteenLength);
//程序化交易 www.tumamayizhan.com
      If(MarketPosition == 0)  //無倉位
      {
            Trademoney = 0.3*CurrentCapital();
            Contractprice = ContractUnit*nextopen;
            TradeUnits = IntPart(Trademoney/Contractprice);

            If(crossover(MA4,MA18))  // 4小時均線上穿18小時均線
            {
                     Buy(TradeUnits, nextopen, true);  //開多倉
                     SetGlobalVar(0, nextopen);
            }Else If(crossunder(MA4,MA18))  // 4小時均線下穿18小時均線
            {
                     SellShort(TradeUnits, nextopen, true); //開空倉
                     SetGlobalVar(1, nextopen);
            }

      }Else IF(MarketPosition == 1) //有多倉
      {
            If(crossunder(MA4,MA9))  //4小時均線下穿9小時均線
            {
                           sell(TradeUnits, nextopen, true);//平多倉
            }
      }Else IF (MarketPosition == -1) //有空倉
      {
            If(crossover(MA4,MA9))  // 4小時均線上穿9小時均線
            {
                           BuyToCover(TradeUnits, nextopen, true);//平空倉
            }
      }
End