将(WR、DMI)同图公式改成大智慧

编写要求：

解答：

?网友求助：

求老师将(WR、DMI)同图公式改成大智慧公式
参数n：日线以上可取7或14，分钟图可取40。
源码：
{DMI}
MTR:=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/MTR;
MDI: DMM*100/MTR;
DRAWBAND(PDI,RGB(100,0,50),MDI,RGB(256,96,96));
ADX:EXPMEMA((PDI-MDI)/(PDI+MDI)*100,N),COLORFF00FF;
ADXR:EXPMEMA(ADX,N/2),COLOR00FF00;
{LTSH}
WR:100-100*(HHV(HIGH,40)-CLOSE)/(HHV(HIGH,40)-LLV(LOW,40)),COLORFFFFFF,LINETHICK2;
见顶:100,COLOR0000FF,LINETHICK2;
见底:0,COLOR00FF00,LINETHICK2;
STICKLINE(WR=100,101,110,5,0),COLOR0000FF;
STICKLINE(WR=0,101,110,5,0),COLOR00FF00;
STICKLINE(WR<100 AND WR>=99,101,110,5,1),COLOR00FFFF;
STICKLINE(WR<=0.6 AND WR>0,101,110,5,0),COLOR00FFFF;