在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
2 `& x. b, e; f. xDEA:= EMA(DIF,9);* E& h# ]* n$ F2 P/ H/ Q5 e6 I x
MACD:= (DIF-DEA)*2;8 E6 |, D7 s9 s( W9 I: S
均值:= SUM(ABS(MACD), 100)/100;# w- F% f5 }; V X3 W) \2 p
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND 8 M- l5 a8 M9 K7 K
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;1 z0 S' H: J { I
金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
7 ?# j- Q* n% i3 d9 Y: DREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;- m8 M" C2 W3 b- i+ H
AA1A:= BARSLAST(CROSS(DEA, DIF))+1;1 ^7 v- d) V3 q9 g* Y& B2 r: p7 w
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999); i- Z& \& D- I$ Y& |( G# ^" x
AA1:= IF(AA1B<AA1A, AA1B, AA1A);
" n; s7 O5 F5 o& x5 eAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;/ E( R& |. F+ ~4 |* t3 _; O
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
2 P3 H6 f" ~0 j! f7 n: n1 _; GAA2:= IF(AA2B<AA2A, AA2B, AA2A);
0 b7 h2 g2 r! O/ E' QDIFZ~小值:= LLV(DIF, AA1+AA2);
6 P1 H; ^7 J8 N4 _DIFZ~小日:= LLVBARS(DIF, AA1+AA2);
6 Q! q/ h3 b$ }# |! U3 F" c$ h; J; iDBL1:= IF(DIFZ~小日<=AA1, 0, 1);+ p; Z: b4 }, i/ x' I( U# k
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);( d5 P8 H! r0 F! I3 z
DBL:= IF(DBL1=0, 0, DBL2);+ u( U" p8 z. a/ I/ v p
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 8 y3 Y* z8 g: z
|