[通达信] 精典之极-------DMI

 今天是元宵节，总想发表些什么，就把研究多年、实战之用的精典指标用法贡献了，祝各位元宵快乐，新的一年投资顺利，也祝创幻更加兴隆，越办越好。
N1:=21;
LC:=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORFF0000;
IF(RSI1>53,RSI1,DRAWNULL),COLORRED,LINETHICK1;
DRAWICON(CROSS(RSI1,53),53-1,11);
TR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);
PDI: DMP*100/TR,COLORFFFFFF;
MDI: DMM*100/TR,COLOR00FFFF;
ADX: EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2;
ADXR:EXPMEMA(ADX,M),COLOR00FF00,LINETHICK2;
{一，MDI必须在下方，PDI在下方无效，二、PDI趋势向上。三、必须在PDI及MDI中间金叉 }
T1:=CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1)
AND  BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1);
DRAWICON(T1,ADXR,1);
{ADX  ADXI同时上穿MDI }
T2:=CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI;
DRAWICON(T2,MDI,17);


二选股公式如下
TR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);
PDI:= DMP*100/TR,COLORFFFFFF;
MDI:= DMM*100/TR,COLOR00FFFF;
ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2;
ADXR:=EXPMEMA(ADX,M),COLOR00FF00,LINETHICK2;
{一，MDI必须在下方，PDI在下方无效，二、PDI趋势向上。三、必须在PDI及MDI中间金叉 }
DYNAINFO(9)>0 AND CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1)
AND  BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1);


TR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),N);
PDI:= DMP*100/TR,COLORFFFFFF;
MDI:= DMM*100/TR,COLOR00FFFF;
ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2;
ADXR:=EXPMEMA(ADX,M),COLOR00FF00,LINETHICK2;
DYNAINFO(9)>0 AND CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI;

飞狐公式在69搂及72楼，由zyyz_2002改编及提供，在此特别鸣谢！
大智慧LEVEL2在78楼及81楼，由zyyz_2002改编及提供，在此特别鸣谢！n14  m6

参数别忘了填，不然通不过。    

[ 本帖最后由 飞翔1 于 2010-3-1 08:02 编辑 ] 69楼N:=14;
M:=6;
N1:=21;
LC:=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORFF0000;
PARTLINE(RSI1>53,RSI1),COLORRED,LINETHICK1;
DRAWICON(CROSS(RSI1,53),53-1,11);
TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0&&LD>HD,LD,0),N);
PDI: DMP*100/TR1,COLORFFFFFF;
MDI: DMM*100/TR1,COLOR00FFFF;
ADX: EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2;
ADXR:EMA(ADX,M),COLOR00FF00,LINETHICK2;
{一，MDI必须在下方，PDI在下方无效，二、PDI趋势向上。三、必须在PDI及MDI中间金叉 }
T1:=CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1)
AND  BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1);
DRAWICON(T1,ADXR,1);
{ADX  ADXI同时上穿MDI }
T2:=CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI;
DRAWICON(T2,MDI,4);


以上飞狐的附图公式，选股公式我再改。

[ 本帖最后由 zyyz_2002 于 2010-2-28 23:15 编辑 ]       72楼  以下为飞狐两个选股公式。有果果的帮我加点哦。哈哈哈
N:=14;
M:=6;
TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0&&LD>HD,LD,0),N);
PDI:= DMP*100/TR1,COLORFFFFFF;
MDI:= DMM*100/TR1,COLOR00FFFF;
ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2;
ADXR:=EMA(ADX,M),COLOR00FF00,LINETHICK2;
{一，MDI必须在下方，PDI在下方无效，二、PDI趋势向上。三、必须在PDI及MDI中间金叉 }
DYNAINFO(9)>0 AND CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1)
AND  BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1);

N:=14;
M:=6;
TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0&&HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0&&LD>HD,LD,0),N);
PDI:= DMP*100/TR1,COLORFFFFFF;
MDI:= DMM*100/TR1,COLOR00FFFF;
ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2;
ADXR:=EMA(ADX,M),COLOR00FF00,LINETHICK2;
DYNAINFO(9)>0 AND CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI;

[ 本帖最后由 zyyz_2002 于 2010-2-28 23:12 编辑 ] 78楼以下是大智慧LEVEL2的副图：

N:=14;
M:=6;
N1:=21;
LC:=REF(CLOSE,1);
RSI1:SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100,COLORFF0000;
PARTLINE(RSI1>53,RSI1),COLORRED,LINETHICK1;
DRAWICON(CROSS(RSI1,53),53-1,11);
TR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0 and HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0 and LD>HD,LD,0),N);
PDI: DMP*100/TR,COLORFFFFFF;
MDI: DMM*100/TR,COLOR00FFFF;
ADX: EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M),COLOR0000FF,LINETHICK2;
ADXR:EMA(ADX,M),COLOR00FF00,LINETHICK2;
{一，MDI必须在下方，PDI在下方无效，二、PDI趋势向上。三、必须在PDI及MDI中间金叉 }
T1:=CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1)
AND  BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1);
DRAWICON(T1,ADXR,1);
{ADX  ADXI同时上穿MDI }
T2:=CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI;
DRAWICON(T2,MDI,5);

[ 本帖最后由 zyyz_2002 于 2010-2-28 23:17 编辑 ]  81楼以下是大智慧LEVEL2 两个选股公式

N:=14;
M:=6;
TR1:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N);
PDI:= DMP*100/TR1;
MDI:= DMM*100/TR1;
ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:=EMA(ADX,M);
{一，MDI必须在下方，PDI在下方无效，二、PDI趋势向上。三、必须在PDI及MDI中间金叉 }
DYNAINFO(9)>0 AND CROSS(ADX,ADXR) AND PDI>MDI AND PDI>REF(PDI,1)
AND  BETWEEN(ADXR,MDI,PDI) AND ADX>REF(ADX,1) AND ADXR>REF(ADXR,1);


N:=14;
M:=6;
TR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:=EMA(ADX,M);
DYNAINFO(9)>0 AND CROSS(ADX,MDI) AND CROSS(ADXR,MDI) AND PDI>MDI;  看对了吗？谢谢！

还有600825 新华传媒 09.12.31日。

[ 本帖最后由 梦大小姐 于 2010-3-1 01:25 编辑 ]感谢飞翔
为论坛提倡的分享精神所做的再次奉献

也对公式说下看法：
１．地量是最早的信号-------对立柱量及现在的DMI都是提前的
２．DMI的选股早已有此理念．
３．公式死的，人是活的，选股条件会限制了你肉眼自己看到的股,例如：６０１１０７

[ 本帖最后由 阿抄伯 于 2010-3-14 18:30 编辑 ]