在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);4 T- M6 B& Z2 O# a
DEA:= EMA(DIF,9);3 X/ B: Z! D! i8 H
MACD:= (DIF-DEA)*2;
: h# d1 w# D6 _. k* }均值:= SUM(ABS(MACD), 100)/100;5 a" p, [: x. a+ a3 O9 k0 j
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
?' \# U, s4 K1 M2 U3 ^REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
" {/ M0 E$ E) _( {6 N) g0 C3 R金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
+ j$ ~4 p( Z' {! [" L" g3 x5 c# AREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
5 S G+ O8 X/ ?7 k, cAA1A:= BARSLAST(CROSS(DEA, DIF))+1;
: z5 R) A! i3 F# q9 gAA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
- h6 T' B4 J, v% H4 ` _# Y) eAA1:= IF(AA1B<AA1A, AA1B, AA1A);
4 Y; T/ R9 c, w# K! qAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;' w2 }5 A* ?2 U) V; Q
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;7 x/ T8 B. n @& q( S0 `
AA2:= IF(AA2B<AA2A, AA2B, AA2A);! ~. S Y7 P: W0 k
DIFZ~小值:= LLV(DIF, AA1+AA2);
# O$ g1 P- f8 F8 \+ lDIFZ~小日:= LLVBARS(DIF, AA1+AA2);' a& p- }8 F4 S* G3 o& ~$ z: ?
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
2 z7 S6 g# R7 [: A" IDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
- E* M* D6 e; iDBL:= IF(DBL1=0, 0, DBL2);
3 \/ E0 p' M0 X) K. ?: `' P" SDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
L, D) G- l x |