在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
& o7 S3 U) e1 }. }+ y2 U1 HDEA:= EMA(DIF,9);
9 D# p1 c0 ]/ ]/ J T- JMACD:= (DIF-DEA)*2; b+ e: R4 C6 F/ L3 k4 i# C( r# @+ E
均值:= SUM(ABS(MACD), 100)/100;
) v- q3 [! z# L' [: c" ^. b起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
" e$ f( y, C' Q! _0 E0 oREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
; j T3 |) j7 e4 n金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
[% i& P- Q9 r. G% R2 G$ H" Z* MREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
- T* k" f, ^) H9 V* y2 JAA1A:= BARSLAST(CROSS(DEA, DIF))+1;! E, E) Y' h% A
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
' R$ a% Y8 L8 o* xAA1:= IF(AA1B<AA1A, AA1B, AA1A);2 b4 f- w4 u3 b6 v2 @% D1 d3 y
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
) p! f4 _; w( A) k7 EAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
1 z* f l& r: D# K' h- FAA2:= IF(AA2B<AA2A, AA2B, AA2A);
+ t% ~% o1 ^6 q) S9 ]7 `) A, t2 `DIFZ~小值:= LLV(DIF, AA1+AA2);8 m4 M2 J8 ]5 r. v, D
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);
; [* F0 L3 U2 M3 h5 i4 Z- @DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
- [* X9 g" t/ ~/ BDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
. M3 j% l) y% K9 d& ]DBL:= IF(DBL1=0, 0, DBL2);# G4 N$ x2 U1 H3 R& P. T) D
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 6 U) q) S( O) G/ P
|