在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
) ?8 N& I) E' S. u( M- {6 gDEA:= EMA(DIF,9); e& B( z% T4 {. C
MACD:= (DIF-DEA)*2;
+ m, |& ~! s0 q9 v( U) l均值:= SUM(ABS(MACD), 100)/100;) E7 g1 g) g- I8 P
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
' V/ l+ s# c) E0 w4 rREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
0 v) N, W4 q9 w2 S' Q& @2 B v金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
, x9 n$ t7 f/ c# a/ cREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
3 ^ Z) I7 ?. t7 OAA1A:= BARSLAST(CROSS(DEA, DIF))+1;4 Z3 s( t1 s1 I, b- T: {
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
! ]" F9 b/ u1 d5 V) l) IAA1:= IF(AA1B<AA1A, AA1B, AA1A);
8 O# M" L0 z Q% p) FAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
I5 s5 @% t. K9 z- uAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
+ i% a( p6 j, H7 L$ P; h9 CAA2:= IF(AA2B<AA2A, AA2B, AA2A);
6 e3 V* s k7 L8 [. V$ F! XDIFZ~小值:= LLV(DIF, AA1+AA2);* q/ P1 E8 r1 T1 [& D+ Z6 a
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);
, b7 `5 @ o$ h" ]3 pDBL1:= IF(DIFZ~小日<=AA1, 0, 1);( ?: d7 N: C* d# w" Z; Q/ ?
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);' f( ?! g4 n2 i: m$ u
DBL:= IF(DBL1=0, 0, DBL2);
- V: W. f- v9 GDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
6 k6 L6 x( P* o1 D( g3 p, U+ Z4 B
|