在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
1 F( t% n) v$ B/ n) @DEA:= EMA(DIF,9);4 I0 d+ u. V% E# f3 f' V
MACD:= (DIF-DEA)*2;
8 @ G- ?( V( W+ S均值:= SUM(ABS(MACD), 100)/100;
6 c0 E$ Q0 o5 R0 Y i m+ G1 _3 ~起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND . \. s- w* s" @3 s5 }0 k9 g/ D: F
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
( g- R0 n+ v, H! i" p/ N5 R金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND ) s# i' B% P7 Q( V0 w) O* @
REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;" W1 f+ I7 D# ?! m+ W
AA1A:= BARSLAST(CROSS(DEA, DIF))+1;
* q$ H& K. L" Z$ iAA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
! X) L3 J; J1 B4 BAA1:= IF(AA1B<AA1A, AA1B, AA1A);
' w- \+ k! I6 ~4 d: M0 y$ KAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;: ?, c* J' [# o0 l C4 d8 @
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;& I4 n, G/ n$ P8 Y- r" z% A, c
AA2:= IF(AA2B<AA2A, AA2B, AA2A);/ |% x1 W! @5 F
DIFZ~小值:= LLV(DIF, AA1+AA2); @, V) b- Y! {
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);
- S. j2 G1 i$ h$ l6 eDBL1:= IF(DIFZ~小日<=AA1, 0, 1);* a3 n# i2 |) R; @7 M6 P
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
% }/ Z& S9 O1 S: G3 H5 ]" ?DBL:= IF(DBL1=0, 0, DBL2);# ^, t6 c7 k. G3 o& f5 I- W
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 , r6 h9 ^4 N$ M2 G+ e) p3 y
|