在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);9 N% e) H) G, d( ?! }% q0 m3 B
DEA:= EMA(DIF,9);1 p* r: y- ^ Y" l( B
MACD:= (DIF-DEA)*2;
3 _! Z9 p ?( ?# K c, l& d均值:= SUM(ABS(MACD), 100)/100;8 R$ X4 M; v, y' X9 V; Z
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
; M2 [- k2 M4 I1 f- G7 I/ sREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;# o1 [) d9 E: u& f1 p! {1 U/ Q4 t' s. p
金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
4 v& |* ~ u% V" Z% r- {REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;# V& P* F. s ?6 F
AA1A:= BARSLAST(CROSS(DEA, DIF))+1;
8 W5 A6 a9 t4 k2 T1 ~2 n `. R0 ?AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);( g% P9 I, n" O
AA1:= IF(AA1B<AA1A, AA1B, AA1A);: E8 K/ I+ W* r
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
8 m8 U1 D! j' a1 jAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
: A: M3 T" [/ s/ bAA2:= IF(AA2B<AA2A, AA2B, AA2A);
) y* u) W v% ~: R$ Y, T0 T6 gDIFZ~小值:= LLV(DIF, AA1+AA2);
! w9 X7 l x- R$ ]* SDIFZ~小日:= LLVBARS(DIF, AA1+AA2);
1 C+ ]+ d, N# HDBL1:= IF(DIFZ~小日<=AA1, 0, 1);1 B: X* ~1 _1 k
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);' {& q0 D+ ^9 Z S- q9 D
DBL:= IF(DBL1=0, 0, DBL2);% }( n, h4 d0 e
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
8 ]6 d& A% y8 | U& R' k
|