把dmi弄成一个选股指标_飞狐

飘带变红为买点

INPUT:N(21),M(6),M1(20);

TR1:=EMA(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:=EMA(IF(HD>0 AND HD>LD,HD,0),N);

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

PDI:= DMP*100/TR1;

MDI:= DMM*100/TR1;

ADX: EMA((PDI-MDI)/(MDI+PDI)*100,M)*2,LINETHICK1,COLOR000099;

ADXR:EMA(ADX,M),LINETHICK0,Color008000;

ADMA:EMA(ADX,M1),LINETHICK1,COLORCCCCCC,LAYER0;

OMD:(ADX-2*ADMA+ADXR)/2,LINETHICK0;

PARTLINE(110,1),ColorA6A600,LAYER0;

PARTLINE(0,1),Color008080,LAYER0;

PARTLINE(-110,1),ColorA6A600,LAYER0;

FILLRGN(ADX,ADXR,ADX>=ADXR),Color000044;

FILLRGN(ADX,ADXR,ADX<ADXR),Color004400;

STICKLINE(OMD>REF(OMD,1) AND OMD>0,0,OMD,4,0),COLOR4444FF;

STICKLINE(OMD>REF(OMD,1) AND OMD<0,0,OMD,4,0),COLORFF33FF;

STICKLINE(OMD<REF(OMD,1),0,OMD,4,0),COLOR66CC66;

PARTLINE(ADX,ADX>=ADXR),COLOR0000CC,LINETHICK1;

PARTLINE(ADX,ADX<ADXR),COLOR008800,LINETHICK1;

 

解答如下：

INPUT:N(21),M(6),M1(20);

TR1:=EMA(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:=EMA(IF(HD>0 AND HD>LD,HD,0),N);

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

PDI:=DMP*100/TR1;

MDI:=DMM*100/TR1;

ADX:=EMA((PDI-MDI)/(MDI+PDI)*100,M)*2;

ADXR:=EMA(ADX,M);

CROSS(ADX,ADXR);