将DMI改成选股公式

编写要求：

求PDI在穿越其它线，而在其它3条线之上源码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;MDI: DMM*100/TR;ADX: EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);ADXR:EXPMEMA(ADX,M);(N 2 90 14) (M 2 60 6 )

解答：

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;
MDI:=DMM*100/TR;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:=EXPMEMA(ADX,M);
PDI=MAX(PDI,MAX(MDI,MAX(ADX,ADXR)));
{N 2 90 14) (M 2 60 6 };