DMA-QL钱龙趋向 示例模型

2013年6月20日 (四) 09:45的最后版本

   //-------智能交易公式--------------
   //该模型仅仅用来示范如何根据指标编写简单的模型
   //用户需要根据自己交易经验，进行修改后再实际应用!!!

   input:n(14,2,100),
     m(6),
     n0(20),
     m0(20);
	  
   //收盘价与最低价做差，最高价与前一周期收盘价做差，最低价与前一周期收盘价作差，在上述三个数据中取绝对值最大者，对该最大值做移动平均。
   TR1 := SMA(MAX(MAX(H-L,ABS(H-C[1])),ABS(L-C[1])),N,1);
   HD := H-H[1];//最高价与前一根K线最高价作差定义为HD
   LD := L[1]-L;//前一根K线最低价减去当前最低价
   DMP:= SMA(IIF(HD>0 and HD>LD,HD,0),N,1);//如果HD大于0并且HD>LD取HD否则取0，对该值做移动平均。
   DMM:= SMA(IIF(LD>0 and LD>HD,LD,0),N,1);//如果LD大于0并且LD>HD取LD否则取0，对该值做移动平均。
   PDI: DMP*100/TR1;
   MDI: DMM*100/TR1;
   //取(MDI与PDIN做差的绝对值)及(MDI及PDI的和)，差与和之间作比值并放大100倍，对该值做移动平均。
   ADX1: SMA(ABS(MDI-PDI)/(MDI+PDI)*100,N,1);
   ADXR:(ADX1+ADX1[M])/2;//ADX与前M个周期的ADX之和的一半定义为ADXR

   //PDI上穿MDI
   bEnterLong :=CROSS(PDI,MDI); 
   //N0周期内ADX1的最高值*(1-0.01*M0)上穿ADX1	
   bEnterShort :=CROSS(HHV(ADX1,N0)*(1-0.01*M0),ADX1);

   if bEnterLong then buy;//PDI上穿MDI，做多。
   if bEnterShort then SellShort;//ADX回落超过前N0周期内的M0%，做空。