在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);4 V3 F B' k( R! o- h2 C2 a
DEA:= EMA(DIF,9);: P( t5 U3 {; l* f2 j
MACD:= (DIF-DEA)*2;3 W+ z/ h* C# k9 }$ ]8 P- i B
均值:= SUM(ABS(MACD), 100)/100;! p. l/ s* \! X7 n) O
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND * ~2 V" I+ b3 I$ N3 T0 E- F& T2 i( `
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
3 j; K* Q; Z" y: i# `, l金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
+ ?9 B8 f, x# q; \) [8 ^REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
: d g, H: e7 X9 [3 fAA1A:= BARSLAST(CROSS(DEA, DIF))+1;2 Y. B& z& T# ^5 L3 F0 V
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
6 t$ S3 ?% \" P$ c' @% ?+ NAA1:= IF(AA1B<AA1A, AA1B, AA1A);/ M( F0 b& g# Q* z2 g3 W+ }
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;5 w' q( ^2 B, { Q
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;3 P- E9 r0 Y4 G' L2 P: n3 q: M& M0 M) t
AA2:= IF(AA2B<AA2A, AA2B, AA2A);
& @: c2 t1 Z1 ]7 NDIFZ~小值:= LLV(DIF, AA1+AA2);
V- \& q/ l0 g& a5 x. g( TDIFZ~小日:= LLVBARS(DIF, AA1+AA2); e* x$ D: M, c W; W& q6 L
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
4 u: \. W' ^! o7 c4 {# F9 P1 IDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
( Q( `7 B5 p0 F/ Y) ^* mDBL:= IF(DBL1=0, 0, DBL2);5 P6 A$ ^4 X0 u$ | x* Y4 t( l/ C6 E
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
, K0 Q) O: x- `: n1 B6 W
|