在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
) C w* V3 s) VDEA:= EMA(DIF,9);+ [6 ]( j* R& a. W( e
MACD:= (DIF-DEA)*2;* @8 p" s& Q" N: K
均值:= SUM(ABS(MACD), 100)/100;
- C, I5 a9 z7 Z1 e$ }起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
5 q/ }2 }' {. N2 K/ I, p' ]& wREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
; m+ _: |! \6 z; U0 i1 {金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
7 }$ j, I" }6 C9 Y7 W- EREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
4 N2 p# K' b, O+ O! ~4 _AA1A:= BARSLAST(CROSS(DEA, DIF))+1;1 x0 o) }$ h3 Z" D3 Q
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);) G. a6 d( I& y, n1 Z- d
AA1:= IF(AA1B<AA1A, AA1B, AA1A);
1 R2 i2 t& g" Y4 J3 _7 [AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
+ s" g9 A: m9 h+ jAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
) Z) f+ p8 U# dAA2:= IF(AA2B<AA2A, AA2B, AA2A);/ A8 z& _' Z: {% r
DIFZ~小值:= LLV(DIF, AA1+AA2);
( Y X/ k) K, y9 p9 TDIFZ~小日:= LLVBARS(DIF, AA1+AA2);3 c/ m( X. Q+ @+ B6 d
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
+ {: x# p s6 E2 P0 |- D: xDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);$ x; k% }, o( {# v* r7 x
DBL:= IF(DBL1=0, 0, DBL2);
8 l$ O$ k& R/ E- r" lDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 p8 X0 e) e9 j X- s7 Z
|