在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
! y+ m/ H7 W# L) S5 h$ T q: DDEA:= EMA(DIF,9);$ ]3 Y% Y+ u2 W! i1 u4 `$ V
MACD:= (DIF-DEA)*2;" H8 P+ [7 y# u% H0 o# r
均值:= SUM(ABS(MACD), 100)/100;
) ~3 B% S& W& M' i起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
9 a' O- v# f6 {9 e# R( |) nREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;4 F3 N7 p6 y; A9 n5 r
金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND # Z7 h* Z! l1 [( m" ^7 \4 A
REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;. i1 F: ?9 ?" D$ w
AA1A:= BARSLAST(CROSS(DEA, DIF))+1;! [+ ?! T6 k( e- P. y$ W6 p
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
5 d0 q8 W4 D2 ]3 |AA1:= IF(AA1B<AA1A, AA1B, AA1A);0 Y6 V: f* h1 b" P) |: c
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
: M4 U3 ^ o" X, C: D2 DAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
" @( ^0 l6 ~) p7 t8 u1 c' l0 g7 F+ sAA2:= IF(AA2B<AA2A, AA2B, AA2A);( F/ J" U' D' K; x& t3 S& H
DIFZ~小值:= LLV(DIF, AA1+AA2);, R' k) x: V( l! O6 `
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);$ h4 R, ?% r) U* `( h
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);$ T3 K$ ]* k4 A8 a1 A
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0); n* L# E0 D+ B1 v
DBL:= IF(DBL1=0, 0, DBL2);3 y6 ~- W: @ k
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
8 {7 m- z' c: f- A4 _
|