在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
$ h4 {: v, N9 J1 N% W6 B M! L2 {0 gDEA:= EMA(DIF,9);4 \" \6 H$ J# p9 y! g
MACD:= (DIF-DEA)*2;2 c! T" ]6 \+ d5 Z2 }
均值:= SUM(ABS(MACD), 100)/100;) p6 j% R0 o+ L+ r
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND 6 `9 d: K4 f4 o- s
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
$ n' q: ? c" S$ P金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
# G( g# K7 y3 R5 i& A& ?REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
5 G2 G9 l! \* Q6 S( ]7 n6 AAA1A:= BARSLAST(CROSS(DEA, DIF))+1;) G5 P' D; M0 l( a; Y
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);5 F9 i/ c" D" g" F5 w+ I6 C7 {6 {+ E
AA1:= IF(AA1B<AA1A, AA1B, AA1A);
5 k: t8 m4 y5 U, K0 K0 zAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;6 O# a2 a$ p4 n. F E7 W
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
) x* g) n- `. {& Y1 IAA2:= IF(AA2B<AA2A, AA2B, AA2A);
8 K: C* x" p I+ `8 |DIFZ~小值:= LLV(DIF, AA1+AA2);& ~. w, U' ~" ~6 ^! s2 @: Y
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);
4 \- o" T6 k0 C5 k) W+ V& K5 P( J6 p' p% ADBL1:= IF(DIFZ~小日<=AA1, 0, 1);9 }; f U8 J% w, w" ~. B8 d/ ^2 f2 ]/ v
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);: m. H9 `! E" C2 N
DBL:= IF(DBL1=0, 0, DBL2);
4 G; o5 c) P8 b: sDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 , ^# F! y8 b+ Q+ ~+ M0 @9 t( H
|