在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
/ {8 S/ V# B2 ?" E8 y- h: TDEA:= EMA(DIF,9);. t5 U% |0 K `" r9 Y$ E1 M
MACD:= (DIF-DEA)*2;3 x# v& p4 N2 w. _4 ~. M. T+ b
均值:= SUM(ABS(MACD), 100)/100;
. t( }) T. a( l4 |0 a. { D- f起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
4 m) P& O- ^) E) { \" dREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
i, j( A0 `: R& ~+ u金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND - V2 c& ~0 c2 u6 z( t
REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
! l8 x' U' F: ?/ g$ rAA1A:= BARSLAST(CROSS(DEA, DIF))+1;
: A' Q v/ G& O$ `AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
# U! W' i1 o7 ^8 HAA1:= IF(AA1B<AA1A, AA1B, AA1A);
& Y. w4 T( g1 g9 U0 \2 ^. CAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
# V2 I# m. V' `" IAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
# E2 a* z' A! m% m! U; UAA2:= IF(AA2B<AA2A, AA2B, AA2A);
- R- D4 y% O) d/ N" vDIFZ~小值:= LLV(DIF, AA1+AA2);- V, S9 _* }( R, w0 G0 K: V
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);
5 y) ?+ \& t. i) l' p I# DDBL1:= IF(DIFZ~小日<=AA1, 0, 1);1 C" F6 u* V, v/ {4 `5 ^' t
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
% R3 ~0 y Z: r; X. f' a/ h* CDBL:= IF(DBL1=0, 0, DBL2);0 u: s5 Z, X: l. L8 Q' G
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
& O- e C) l9 S
|