在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
( f$ {5 {$ m0 j8 e9 I6 ]! KDEA:= EMA(DIF,9);
. m: |) e% N2 }5 `% g/ A2 ?MACD:= (DIF-DEA)*2;
& z% L( p4 x* G3 n' t均值:= SUM(ABS(MACD), 100)/100;
V2 c! A7 p9 J4 ]. @3 }起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
0 z+ N, f6 U7 CREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
$ g, [4 h! O2 U2 V金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND 0 t0 a3 \1 W; C6 a: b
REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
7 W' z8 ]! n+ X; D0 I: c. qAA1A:= BARSLAST(CROSS(DEA, DIF))+1;% ~' C: B1 w3 a+ a& L0 ]; C
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999); r3 W. x' F3 @ \' K, y2 A
AA1:= IF(AA1B<AA1A, AA1B, AA1A);
) ?. M$ T6 @# eAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;4 Y& V6 h+ G7 B/ Y7 B
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
8 r& q5 a: W2 b k( jAA2:= IF(AA2B<AA2A, AA2B, AA2A);* G5 C5 G4 V @9 m! V$ K$ y2 @
DIFZ~小值:= LLV(DIF, AA1+AA2);
* Z5 w4 ~8 ~8 G3 J/ ^; kDIFZ~小日:= LLVBARS(DIF, AA1+AA2);
, l6 c! K$ x0 ~! uDBL1:= IF(DIFZ~小日<=AA1, 0, 1);
v1 D2 y% l% \9 g0 b) h7 w- L( wDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
# t9 f' ]# u7 r# c- @# C- fDBL:= IF(DBL1=0, 0, DBL2);
9 f+ i$ a7 u, V* E lDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 8 s( S( ?' O2 X6 L8 H) t9 \, _
|