在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
/ f/ n! f) Y( E$ gDEA:= EMA(DIF,9);
% c2 `. M! s: O# y6 K7 d4 g7 _MACD:= (DIF-DEA)*2;
. a% K: K) e0 u8 c V! p+ c+ C均值:= SUM(ABS(MACD), 100)/100;
( v2 l3 z* g! m: |/ C+ i起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
8 ^8 c8 i# M8 W# n) _* TREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;& s3 R6 ~& V- l! G# }
金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND " H4 Q% e# l+ |& [' H; l: R! r
REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
1 z/ s+ F4 H2 OAA1A:= BARSLAST(CROSS(DEA, DIF))+1;
, Y1 g: v5 L/ R |5 AAA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
, U1 b( A* X( _& H( VAA1:= IF(AA1B<AA1A, AA1B, AA1A);3 Q; ^- K( H/ P$ T1 W* J
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
" e1 E; J) L' p( ?7 `7 t% j( H" hAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;. X. C" K1 q; H
AA2:= IF(AA2B<AA2A, AA2B, AA2A);$ V; H, V. w' e
DIFZ~小值:= LLV(DIF, AA1+AA2);9 a" ^& b5 |9 \# u$ G
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);, ? a" t; m, e& ^. h
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);6 ^9 n4 @2 Y! E0 A
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
$ x$ I/ e' E1 k5 }* q# i! ]9 g' d, SDBL:= IF(DBL1=0, 0, DBL2);
, N3 Z7 E# q6 qDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 8 c) n0 U- ]' H+ E
|