关于DMI指标

wgs2008

文华财经上有一个DMI指标，在TB上没有，
按照文华的程序完全翻译过来，发现结果相差非常大。不知道是啥原因。

Params
Numeric N(14);
Numeric M(6);
Vars
NumericSeries TR;
NumericSeries HD;
NumericSeries LD;
NumericSeries DMP;
NumericSeries DMM;
NumericSeries PDI;
NumericSeries MDI;
NumericSeries ADX;
NumericSeries ADXR;
Begin
TR = Summation(MAX(MAX(High-Low,ABS(High-Close[1])),ABS(low-Close[1])),N);
HD = High-High[1];
LD = low[1]-low;
DMP= Summation(IIF(HD>0 && HD>LD,HD,0),N);
DMM= Summation(IIF(LD>0 && LD>HD,LD,0),N);
PDI= DMP*100/TR;
MDI= DMM*100/TR;
ADX= AverageFC(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR= (ADX+ADX[M])/2;

PlotNumeric(" PDI",PDI);
PlotNumeric("MDI",MDI);
PlotNumeric("ADX",ADX);
PlotNumeric("ADXR",ADXR);

End



注：以下是文华的程序  参数 N =14, M = 6

TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 && HD>LD,HD,0),N);
DMM:= SUM(IF(LD>0 && LD>HD,LD,0),N);
PDI: DMP*100/TR;
MDI: DMM*100/TR;
ADX: MA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR: (ADX+REF(ADX,M))/2;

[ 本帖最后由 wgs2008 于 2010-5-3 18:09 编辑 ]

wgs2008

没问题了，是我搞错了参数。

[ 本帖最后由 wgs2008 于 2010-5-3 18:11 编辑 ]

wahaya

你好，我也想在TB中实现DMI指标，按照你的写法，我的ADX和ADXR怎么显示不了，请指标！能否贴出源码，谢谢

阳光普照

wahaya 发表于 2012-9-23 21:39
你好，我也想在TB中实现DMI指标，按照你的写法，我的ADX和ADXR怎么显示不了，请指标！能否贴出源码，谢谢 ...

显示不了，是因为除数为0的情形可能出现

mosquitog

阳光普照 发表于 2012-9-24 12:07
显示不了，是因为除数为0的情形可能出现

LZ 如果MDI和PDI都为0（即除数为0）的话，怎么取值呢？