在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);3 `( B m2 U& h! {
DEA:= EMA(DIF,9);, @- m; V/ i$ T& M
MACD:= (DIF-DEA)*2;
3 `0 j8 f# s; S1 G6 m均值:= SUM(ABS(MACD), 100)/100;& _, \, o5 b: m4 v$ p5 p3 V' ~; W
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND + Q7 T: \$ Q6 F5 V3 ~6 \4 {2 J, T
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
( D# |/ Z% h1 \金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
4 k1 y" x+ T+ _& G( J% t& AREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;# X; [6 @9 L( X/ F3 o$ M1 J4 C0 [
AA1A:= BARSLAST(CROSS(DEA, DIF))+1;
, ^- Q' S! J2 u- qAA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);- J, A, [( x8 U! L1 r7 i
AA1:= IF(AA1B<AA1A, AA1B, AA1A);
, n) D" h( i$ iAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
2 O- Z" }; k2 A" q. K2 \ |/ HAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;/ X; A0 Z" f! ]( f5 [0 N6 y0 h
AA2:= IF(AA2B<AA2A, AA2B, AA2A);3 P8 u# M0 b- _" X" x) L6 j' X
DIFZ~小值:= LLV(DIF, AA1+AA2);# |- l0 ^. _; J1 h2 Z! f1 O; a. ]
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);, H- l" a* n3 M% ^
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
9 \) E0 ?$ i! G2 m, l9 ?& p) BDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);- Q. a" ?- P2 X- X
DBL:= IF(DBL1=0, 0, DBL2);
5 Y: `6 e* [: zDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
0 E* i5 G; B& S; c7 `: e! E2 O
|