DMI金死叉指标 (源码)

大智慧DMI金死叉指标公式股票软件源码如下:

N:=14;M:=6;ADXP:=1;
TR:= SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),N);
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),N);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),N);
PDI: DMP*100/TR;
MDI: DMM*100/TR;
ADX: MA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:(ADX+REF(ADX,M))/2;
CD0:20;
CD1:40;
TD0:60;
TD1:80;
DRAWTEXT(CROSS( PDI,CD0), CD0,'★金'), COLORMAGENTA ;
{www.gpxiazai.com 股票软件下载网_大智慧股票指标公式}
DRAWTEXT(CROSS( TD0,PDI), PDI,'★死'), COLORBLUE;
DRAWTEXT(CROSS( ADX,CD0), CD0,'★金'), COLORMAGENTA;
DRAWTEXT(CROSS( TD0,ADX), ADX,'★死'), COLORBLUE;
DRAWTEXT(CROSS( PDI,MDI), MDI,'★金'), COLORYELLOW ;
DRAWTEXT(CROSS( MDI,PDI), PDI,'★死'), COLORGREEN;
DRAWTEXT(CROSS( ADX,ADXP), ADXP,'★金'), COLOR000999 ;
DRAWTEXT(CROSS( ADXP,ADX), ADX,'★死'), COLORCYAN;
DRAWTEXTABS(0,5,'PDI线上穿20介入,下破60急出手。'),COLORBLUE;
DRAWTEXTABS(0,20,'ADX线上穿20介入,下破60急出手。'),COLORCYAN;