在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
3 X) ?) P+ T* [' y7 m MDEA:= EMA(DIF,9);& O9 ?+ F) G2 N1 D! |3 G6 p$ e" T( C7 y
MACD:= (DIF-DEA)*2;
* ^3 z8 c/ O- l8 s! p5 U均值:= SUM(ABS(MACD), 100)/100;, Z3 Z8 I: Z8 N2 y) m
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND " w0 I7 @- Z0 t, k
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;7 U4 R! c" L0 A M
金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
7 m R- @( y0 W4 l# u+ I7 P) CREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;3 W% a' w0 u- o( A& O
AA1A:= BARSLAST(CROSS(DEA, DIF))+1;$ e- j( \) ` ] D
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
- P/ w' J. B6 s' wAA1:= IF(AA1B<AA1A, AA1B, AA1A);( I1 u" [6 x" N# `$ ?# {' _# v
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
# g$ X/ o1 l2 l$ FAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;& i/ i1 l$ r7 |) [8 e; G
AA2:= IF(AA2B<AA2A, AA2B, AA2A);. Z& P# G7 W. ^8 a) G
DIFZ~小值:= LLV(DIF, AA1+AA2);
9 J4 Z- O0 y2 V8 r) FDIFZ~小日:= LLVBARS(DIF, AA1+AA2);
! U4 {3 l X) d/ }: o' Z6 S3 fDBL1:= IF(DIFZ~小日<=AA1, 0, 1);
4 F9 h3 O. ?, l4 GDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
- G u% g! v5 uDBL:= IF(DBL1=0, 0, DBL2);
; @# I7 {" R+ \DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
; J5 J) H& B" }. I% b
|