举报
衰king
{1.已修改。同时满足‘PDI上穿MDI 与ADX 上穿ADXR’的金叉选股 } N:=14;MM:=6; 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; ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM); ADXR:=EXPMEMA(ADX,MM); CROSS(PDI,MDI) AND CROSS(ADX,ADXR); --------------------------------------------------------------- {2.PDI上穿MDI 形成金叉选股} N:=14;MM:=6; 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; ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM); ADXR:=EXPMEMA(ADX,MM); CROSS(PDI,MDI) ; ---------------------------------------------- {3.ADX 上穿ADXR 形成金叉选股} N:=14;MM:=6; 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; ADX:= EXPMEMA(ABS(MDI-PDI)/(MDI+PDI)*100,MM); ADXR:=EXPMEMA(ADX,MM); CROSS(ADX,ADXR); ------------------------------------------------------------------ {说明:}以上3种情况我都给你写出了,你视自己的偏好使用。