克罗均线 代码

liudong

克罗将多年的交易经验尽心了简化的指标量化，在上升趋势中，只持有多头头寸，或不入市。不持有空头头寸。在下降趋势中，只持有空头头寸，或不入市。不持有多头头寸。克罗先生使用4，9，18三条均线为参数的三均线系统。用易盛程序化写出测试代码如下（交易时要做改动）：

//------------------------------------------------------------------------
// 简称:kljx
// 名称:克罗均线
// 类别: 交易指令
// 类型: 用户应用
//------------------------------------------------------------------------
Params         
Numeric TradeUint(1); //下单手数
Vars               
NumericSeries ma4;
NumericSeries ma9;
NumericSeries ma18;
bool duo(False); //多头成立
Bool pduo(False);//平多
Bool kong(False);//空头成立
Bool pkong(False);//平空
Begin               
ma4=Average(close,4);
ma9=Average(close,9);
ma18=Average(close,18);
PlotNumeric("ma4",ma4);
PlotNumeric("ma9",ma9);
PlotNumeric("ma18",ma18);
duo=Close>ma4 and ma4>ma9 and ma9>ma18;
pduo=ma4<ma9;
kong=Close<ma4 and ma4<ma9 and ma9<ma18;
pkong=ma4>ma9;
  if (duo and MarketPosition!=1)
     {
                 // Buy(TradeUint,Q_AskPrice + MinMove * PriceScale*2);
                 Buy(TradeUint,Close);
         };
  if (kong and MarketPosition!=-1)
     {
                  // SellShort(TradeUint,Q_BidPrice-MinMove* PriceScale*2);
                  SellShort(TradeUint,Close);
         };
  IF (pduo and MarketPosition==1 )
     {
            // Sell(TradeUint,Q_BidPrice-MinMove* PriceScale*2);  
                Sell(TradeUint,Close);       
         }         ;
  IF (pkong and MarketPosition==-1)
     {
            // BuyToCover(TradeUint,Q_AskPrice+MinMove* PriceScale*2);        
                 BuyToCover(TradeUint,Close);
         };         




End



在沪胶上测试效果如下：

liudong

只是按照书本上克罗先生的原意写的而已，没有改动。