求高手将此通达信指标转成博易大师可以用指标 谢谢！博易大师指标

Question

通达信一根线搞定DMI指标公式源码如下:
MTR:=EXPMEMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EXPMEMA(IF(HD>0&&HD>LD,HD,0),14);
DMM:=EXPMEMA(IF(LD>0&&LD>HD,LD,0),14);
PDI:= DMP*100/MTR;
MDI:= DMM*100/MTR;
DM:=PDI-MDI,NODRAW;
TRR1:=EMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),14);
DMP1:=EMA(IF(HD>0 && HD>LD,HD,0),14);
DMM1:=EMA(IF(LD>0 && LD>HD,LD,0),14);
ADX0:=EMA((DMP1-DMM1)/(DMP1+DMM1)*100,6);
ADXR0:=EMA(ADX0,6);
PDI1:=DMP1/TRR1*100;
MDI1:=DMM1/TRR1*100;
DM1:=PDI1-MDI1;
AAJ:=(3*ADX0-2*ADXR0);
MAAD:=(ADX0-ADXR0),NODRAW;
ADX:=EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,6),COLORFF00FF; ADXR:EXPMEMA(ADX,6),POINTDOT,LINETHICK7,COLORGREEN;
IF(DM>0,ADXR,DRAWNULL),POINTDOT,LINETHICK7,COLORRED;
助涨:DRAWICON(DM>0 AND ADX>ADXR AND ADX>20,ADXR,15);
助跌:DRAWICON(DM<0 AND ADX>ADXR AND ADX>20,ADXR,12);
DRAWICON(CROSS(ADXR0,ADX0) AND ADXR0>60 ,ADXR*1.2,8);
DRAWICON(CROSS(ADXR0,ADX0) AND ADXR0<60 ,ADXR*1.4,2);
20,COLORYELLOW,DOTLINE;
60,COLORGREEN,DOTLINE;

Answer 1

MTR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),14);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),14);
PDI:=DMP*100/MTR;
MDI:=DMM*100/MTR;
DM:=PDI-MDI;
TRR1:=EMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),14);
DMP1:=EMA(IF(HD>0 AND HD>LD,HD,0),14);
DMM1:=EMA(IF(LD>0 AND LD>HD,LD,0),14);
ADX0:=EMA((DMP1-DMM1)/(DMP1+DMM1)*100,6);
ADXR0:=EMA(ADX0,6);
PDI1:=DMP1/TRR1*100;
MDI1:=DMM1/TRR1*100;
DM1:=PDI1-MDI1;
AAJ:=(3*ADX0-2*ADXR0);
MAAD:=(ADX0-ADXR0);
ADX:=EMA(ABS(MDI-PDI)/(MDI+PDI)*100,6),COLORFF00FF;
ADXR:EMA(ADX,6),POINTDOT,LINETHICK7,COLORYELLOW;
DRAWICON(DM>0 AND ADX>ADXR AND ADX>20,ADXR,15);
DRAWICON(DM<0 AND ADX>ADXR AND ADX>20,ADXR,12);
DRAWICON(CROSS(ADXR0,ADX0) AND ADXR0>60 ,ADXR*1.2,8);
DRAWICON(CROSS(ADXR0,ADX0) AND ADXR0<60 ,ADXR*1.4,2);
20,COLORYELLOW,POINTDOT;
60,COLORGREEN,POINTDOT;
{测试通过,满意请采纳,有问题请追问}

Answer 2

MTR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),14);

HD :=HIGH-REF(HIGH,1);

LD :=REF(LOW,1)-LOW;

DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),14);

DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),14);

PDI:= DMP*100/MTR;

MDI:= DMM*100/MTR;

DM:=PDI-MDI;

TRR1:=EMA(MAX(MAX(H-L,ABS(H-REF(C,1))),ABS(REF(C,1)-L)),14);

DMP1:=EMA(IF(HD>0 AND HD>LD,HD,0),14);

DMM1:=EMA(IF(LD>0  AND LD>HD,LD,0),14);

ADX0:=EMA((DMP1-DMM1)/(DMP1+DMM1)*100,6);

ADXR0:=EMA(ADX0,6);

ADX:=EMA(ABS(MDI-PDI)/(MDI+PDI)*100,6);

ADXR:EMA(ADX,6),POINTDOT,LINETHICK5,COLORGREEN;

 PARTLINE(DM>0,ADXR),POINTDOT,LINETHICK6,COLORRED;

{助涨:}DRAWICON(DM>0 AND ADX>ADXR AND ADX>20,ADXR,10);

{助跌:}DRAWICON(DM<0 AND ADX>ADXR AND ADX>20,ADXR,9);

DRAWICON(CROSS(ADXR0,ADX0) AND ADXR0>60 ,ADXR*1.2,2);

DRAWICON(CROSS(ADXR0,ADX0) AND ADXR0<60 ,ADXR*1.4,5);

20,COLORYELLOW,POINTDOT;

60,COLORGREEN,POINTDOT;

追问

谢谢高手的回复。

Answer 3

“证券统计排行网”里有个股诊断功能，里面有效的分析了大盘及个股压力位支撑位及消息面分析，一切都是免费的。