在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
4 R! y7 F! `5 D3 nDEA:= EMA(DIF,9);7 n0 [% K* ^4 X
MACD:= (DIF-DEA)*2;0 \3 M8 [/ H. L; ~0 c, F }" W c
均值:= SUM(ABS(MACD), 100)/100;3 G- I, x( K/ t" ^0 `
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
' j, K: |0 d% @/ T& e/ \REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
5 U4 C$ ?' Q+ F( U. D# l' ?. N! A金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
: X. G* ?/ H& E( t) VREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
* ]* `7 T/ U6 q4 g$ BAA1A:= BARSLAST(CROSS(DEA, DIF))+1;
! ?; M) p+ O, ~3 r+ e J0 S% jAA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);% e! t* v' F; {+ O6 O. w8 t
AA1:= IF(AA1B<AA1A, AA1B, AA1A);0 W( P7 w* ~# t1 O/ v- A. u7 J
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;* m" ? z+ g ^ Y6 s: T
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
, P$ _- t4 x4 I6 t4 oAA2:= IF(AA2B<AA2A, AA2B, AA2A);4 V8 T6 L: Y) I2 l5 K; Y- ]3 K
DIFZ~小值:= LLV(DIF, AA1+AA2);
& O# m3 J9 ?" Q# ^1 }* KDIFZ~小日:= LLVBARS(DIF, AA1+AA2);" W* f2 J' d& P A7 q. e% n) l& Z
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
, f& q6 ~* d$ DDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
; l3 C" V9 y+ I a0 M( @DBL:= IF(DBL1=0, 0, DBL2);4 I' o+ j* C+ C1 b7 B; w; [4 a f/ t; q3 l
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
9 K8 p9 k' U0 M$ W, Y: P; `5 \
|