咨詢內(nèi)容：

請(qǐng)老師幫忙改一下

老師，我要頂/底背離變色，紅綠柱不變色
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,5,0),COLORRED;
STICKLINE(MACD>0&&MACD<REF(MACD,1),0,MACD,5,0),COLORYELLOW;
STICKLINE(MACD<0&&MACD>REF(MACD,1),0,MACD,5,0),COLORGREEN;
STICKLINE(MACD<0&&MACD<REF(MACD,1),0,MACD,5,0),COLORBLUE;
?

?

?來源:程序化99網(wǎng)（ www.weiqiv.net.cn ）

博易技術(shù)人員： DIFF:EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:EMA(DIFF,9);
MACD:2*(DIFF-DEA),COLORSTICK;
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(CROSS(A1,0.5),0,MACD,2,0),COLORGREEN;
STICKLINE(CROSS(B1,0.5),0,MACD,2,0),COLORYELLOW; 來源 程序化久久網(wǎng)