哪位大神能幫小弟改一下這個ADX的代碼，ADX還想算不出來

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

咨詢內容： 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
TB技術人員： TR = Summation(MAX(MAX(High-Low,ABS(High-Close[1])),ABS(low-Close[1])),N); 把這個位置分開寫
TB客服： max多分幾次
網友回復： 我寫過，找不到在哪里了。
網友回復： HD = High-High[1];
LD = low[1]-low;
這里沒有任何限制，會在某段行情中出現全負數情況
后面會計算出
DMP= Summation(IIF(HD>0 && HD>LD,HD,0),N);==0
DMM= Summation(IIF(LD>0 && LD>HD,LD,0),N);==0

結果就會出錯