在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
8 V4 t+ [! P; \+ j) u0 V! n) U& zDEA:= EMA(DIF,9);
7 l* ?# W+ |2 z5 cMACD:= (DIF-DEA)*2;( K$ q: M8 F" L& H) W7 v. S
均值:= SUM(ABS(MACD), 100)/100;
% q( V2 g6 w8 q, t6 `8 R9 D起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND # X( L3 Q" Q8 [9 U8 Z6 O
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;0 q* L ~8 W x$ g" a r% ^ s: L' K
金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND " w l% }% E7 `. Y" W9 L7 h; A
REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;, o7 ]9 s) W- Z: M* m. c" c
AA1A:= BARSLAST(CROSS(DEA, DIF))+1;
# M' ?& u3 S' H" N3 r3 L3 ^AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
' v' k4 L6 ?+ C5 r) `! T% qAA1:= IF(AA1B<AA1A, AA1B, AA1A);4 O) B1 a9 c' X! t7 b8 V0 G, w
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;9 N- ?2 s- D+ C) ?
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
, T% i, d. ^7 v: fAA2:= IF(AA2B<AA2A, AA2B, AA2A);
1 e% K/ W- V0 k8 b, l* ^DIFZ~小值:= LLV(DIF, AA1+AA2);( ?" w9 X. E# f5 h5 T7 e
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);; t1 R1 y m; g9 ?* R% { H7 ~( M
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);9 T5 o% x6 k1 h5 _1 P$ a! q
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
- `0 Z; N8 W6 pDBL:= IF(DBL1=0, 0, DBL2);# j$ y( ^; G6 O# M g; b* e
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 8 q6 f' C4 F2 E% U2 ~6 B- a+ Y
|