MACD编写一下老师 (文华财经WH6赢顺V6.7)

DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);

DEA:=EMA(DIFF,9);

MACD:=2*(DIFF-DEA),COLORSTICK;

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));//上次MACD绿柱期间合约最小值

LL2:=VALUEWHEN(CROSS(DIFF,DEA),REF(LL,1));//上上次MACD绿柱期间合约最小值

MLD:=VALUEWHEN(CROSS(DIFF,DEA),LLV(MACD,N2));//上次MACD绿柱期间MACD最小值

MLD2:=VALUEWHEN(CROSS(DIFF,DEA),REF(MLD,1));//上上次MACD绿柱期间MACD最小值

N22:=VALUEWHEN(CROSS(DIFF,DEA),HHV(MACD,MLD2));

AA:=CROSS(DIFF>DEA&&MLD>MLD2&&HH<HH2&&MACD>REF(HHV(MACD,SUMBARS(N1=1,2)),N2),0.5);

BB:=CROSS(DIFF<DEA&&MHD<MHD2&&LL>LL2&&MACD<REF(LLV(MACD,SUMBARS(N2=1,2)),N1),0.5);

AA1:=COUNT(AA,N1)=1&&AA;

BB1:=COUNT(BB,N1)=1&&BB;

SS1:=BACKSET(AA1,N2);

SS2:=BACKSET(BB1,N1);

DRAWSL(AA1,H,0,-BARSLAST(CROSS(SS1,0.5)),0,COLORRED);

DRAWSL(AA1,VALUEWHEN(SC,L),0,-BARSLAST(CROSS(SS1,0.5)),0,COLORRED);

DRAWLINE(AA1,H,1,VALUEWHEN(SC,L),COLORRED);

DRAWLINE3(AA1,REF(L,N2-1),N2-1,1,H,N2-1,0),COLORRED;

DRAWSL(BB1,H,0,-BARSLAST(CROSS(SS2,0.5)),0,COLORGREEN);

DRAWSL(BB1,VALUEWHEN(JC,L),0,-BARSLAST(CROSS(SS2,0.5)),0,COLORGREEN);

DRAWLINE(BB1,H,1,VALUEWHEN(JC,L),COLORGREEN);

DRAWLINE3(BB1,REF(L,N1-1),N1-1,1,H,N1-1,0),COLORGREEN;