在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
0 u+ g+ f3 u) [DEA:= EMA(DIF,9);3 `: P8 y- K" X/ [8 m& c
MACD:= (DIF-DEA)*2;
V% @/ ^, I( g- m$ b9 U" q均值:= SUM(ABS(MACD), 100)/100;, }3 U" b- k" A9 V" T
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
5 S0 _4 ]+ F' uREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
' {; L o9 b6 Q9 l( j N金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND - n# y3 [4 o M
REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;' X% \! G. o" `5 \# s
AA1A:= BARSLAST(CROSS(DEA, DIF))+1;, _/ s: ~: b: F3 r3 A+ E5 T! ^
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);! e! E5 N# n9 t. e
AA1:= IF(AA1B<AA1A, AA1B, AA1A);
. p/ g% p, f1 ?/ v! sAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
, h1 N9 O0 i% Z# SAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;% K6 R! t% C \6 Y
AA2:= IF(AA2B<AA2A, AA2B, AA2A);6 g: f. J. t' l. M, e
DIFZ~小值:= LLV(DIF, AA1+AA2);: Q5 W' @% b' S3 r+ j
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);
0 t2 \2 t( F, Z0 k, D% t/ |) m D# A; _DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
' `6 c N1 x+ L7 E" zDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
# n$ P" n( c4 s- }0 nDBL:= IF(DBL1=0, 0, DBL2);7 P4 i0 F Z# x8 w* W: T* G
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
" M" D6 w; [- O, r5 O$ S |