通达信脉冲MACD指标(源码)

0.4,COLORFF0000;
DIF:(EMA(CLOSE,12)-EMA(CLOSE,26));
DEA:EMA(DIF,9);
MACD:((DIF-DEA)*2),COLORSTICK;
A1:=((1.5*((((EXPMEMA(IF((((REF(LOW,1)-LOW)>0) AND ((REF(LOW,1)-LOW)>(HIGH-REF(HIGH,1)))),(REF(LOW,1)-LOW),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14)) + ((EXPMEMA(IF((((HIGH-REF(HIGH,1))>0) AND ((HIGH-REF(HIGH,1))>(REF(LOW,1)-LOW))),(HIGH-REF(HIGH,1)),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14)))-REF((((EXPMEMA(IF((((REF(LOW,1)-LOW)>0) AND ((REF(LOW,1)-LOW)>(HIGH-REF(HIGH,1)))),(REF(LOW,1)-LOW),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14)) + ((EXPMEMA(IF((((HIGH-REF(HIGH,1))>0) AND ((HIGH-REF(HIGH,1))>(REF(LOW,1)-LOW))),(HIGH-REF(HIGH,1)),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14))),1)))/(((EXPMEMA(IF((((REF(LOW,1)-LOW)>0) AND ((REF(LOW,1)-LOW)>(HIGH-REF(HIGH,1)))),(REF(LOW,1)-LOW),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14)) + ((EXPMEMA(IF((((HIGH-REF(HIGH,1))>0) AND ((HIGH-REF(HIGH,1))>(REF(LOW,1)-LOW))),(HIGH-REF(HIGH,1)),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14))));
脉冲:(MA((((A1*(MA(((EXPMEMA(IF((((REF(LOW,1)-LOW)>0) AND ((REF(LOW,1)-LOW)>(HIGH-REF(HIGH,1)))),(REF(LOW,1)-LOW),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14)),1)/((EXPMEMA(IF((((HIGH-REF(HIGH,1))>0) AND ((HIGH-REF(HIGH,1))>(REF(LOW,1)-LOW))),(HIGH-REF(HIGH,1)),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14))))*(((EXPMEMA(IF((((REF(LOW,1)-LOW)>0) AND ((REF(LOW,1)-LOW)>(HIGH-REF(HIGH,1)))),(REF(LOW,1)-LOW),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14))-((EXPMEMA(IF((((HIGH-REF(HIGH,1))>0) AND ((HIGH-REF(HIGH,1))>(REF(LOW,1)-LOW))),(HIGH-REF(HIGH,1)),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14))))/MA((((EXPMEMA(IF((((REF(LOW,1)-LOW)>0) AND ((REF(LOW,1)-LOW)>(HIGH-REF(HIGH,1)))),(REF(LOW,1)-LOW),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14))-((EXPMEMA(IF((((HIGH-REF(HIGH,1))>0) AND ((HIGH-REF(HIGH,1))>(REF(LOW,1)-LOW))),(HIGH-REF(HIGH,1)),0),14)*100)/EXPMEMA(MAX(MAX((HIGH-LOW),ABS((HIGH-REF(CLOSE,1)))),ABS((REF(CLOSE,1)-LOW))),14))),1)),1)*0.5);
{(DMI.PDI+DMI.MDI-REF(DMI.PDI+DMI.MDI,1))/(DMI.PDI+DMI.MDI)*1.5;};