咨詢內容：

麻煩老師把這只指標修改到我們的軟件上面可以嗎謝謝

DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),NODRAW;
JC:=CROSS(DIFF,DEA);
SC:=CROSSDOWN(DIFF,DEA);
N1:=BARSLAST(JC)+1;
N2:=BARSLAST(SC)+1;

HH:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(H,N1));//上次MACD紅柱期間合約最大值
HH2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(HH,1));//上上次MACD紅柱期間合約最大值
MHD:=VALUEWHEN(CROSSDOWN(DIFF,DEA),HHV(MACD,N1));//上次MACD紅柱期間MACD最大值
MHD2:=VALUEWHEN(CROSSDOWN(DIFF,DEA),REF(MHD,1));//上上次MACD紅柱期間MACD最大值

LL:=VALUEWHEN(CROSS(DIFF,DEA),LLV(L,N2));
LL2:=VALUEWHEN(CROSS(DIFF,DEA),REF(LL,1));
MLD:=VALUEWHEN(CROSS(DIFF,DEA),LLV(MACD,N2));
MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1));

A:=MACD<0&&HH>HH2&&MHD<MHD2;//頂背離
B:=MACD>0&&LL<LL2&&MLD>MLD2;

A1:=BACKSET(A,HHVBARS(MACD,N1)+1);
A2:=BACKSET(A,HHVBARS(MACD,SUMBARS(JC,2))+1);
B1:=BACKSET(B,LLVBARS(MACD,N2)+1);
B2:=BACKSET(B,LLVBARS(MACD,SUMBARS(SC,2))+1);

DRAWTEXT(CROSS(A1,0.5),MACD,'頂背離'),VALIGN2,COLORRED;
DRAWTEXT(CROSS(B1,0.5),MACD,'底背離'),VALIGN0,COLORGREEN;
STICKLINE(MACD>0&&MACD>REF(MACD,1),0,MACD,COLORRED,0);
STICKLINE(MACD>0&&MACD<REF(MACD,1),0,MACD,COLORYELLOW,0);
STICKLINE(MACD<0&&MACD>REF(MACD,1),0,MACD,COLORGREEN,0);
STICKLINE(MACD<0&&MACD<REF(MACD,1),0,MACD,COLORBLUE,0);
?

?

?來源:程序化99網（ www.kzuj.com.cn ）

博易技術人員： DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),NODRAW;
JC:=CROSS(DIFF,DEA);
SC:=CROSS(DEA,DIFF);
N1:=BARSLAST(JC)+1;
N2:=BARSLAST(SC)+1;

HH:=VALUEWHEN(CROSS(DEA,DIFF),HHV(H,N1));//上次MACD紅柱期間合約最大值
HH2:=VALUEWHEN(CROSS(DEA,DIFF),REF(HH,1));//上上次MACD紅柱期間合約最大值
MHD:=VALUEWHEN(CROSS(DEA,DIFF),HHV(MACD,N1));//上次MACD紅柱期間MACD最大值
MHD2:=VALUEWHEN(CROSS(DEA,DIFF),REF(MHD,1));//上上次MACD紅柱期間MACD最大值

LL:=VALUEWHEN(CROSS(DIFF,DEA),LLV(L,N2));
LL2:=VALUEWHEN(CROSS(DIFF,DEA),REF(LL,1));
MLD:=VALUEWHEN(CROSS(DIFF,DEA),LLV(MACD,N2));
MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1));

A:=MACD<0&&HH>HH2&&MHD<MHD2;//頂背離
B:=MACD>0&&LL<LL2&&MLD>MLD2;

A1:=BACKSET(A,HHVBARS(MACD,N1)+1);
A2:=BACKSET(A,HHVBARS(MACD,SUMBARS(JC,2))+1);
B1:=BACKSET(B,LLVBARS(MACD,N2)+1);
B2:=BACKSET(B,LLVBARS(MACD,SUMBARS(SC,2))+1);

DRAWTEXT(CROSS(A1,0.5),MACD,'頂背離'),VALIGN2,COLORRED;
DRAWTEXT(CROSS(B1,0.5),MACD,'底背離'),VALIGN0,COLORGREEN;
STICKLINE(MACD>0&&MACD>REF(MACD,1),0,MACD,10,0),COLORRED;
STICKLINE(MACD>0&&MACD<REF(MACD,1),0,MACD,10,0),COLORYELLOW;
STICKLINE(MACD<0&&MACD>REF(MACD,1),0,MACD,10,0),COLORGREEN;
STICKLINE(MACD<0&&MACD<REF(MACD,1),0,MACD,10,0),COLORBLUE; 來源 程序化久久網