在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);. `6 p6 g a3 b+ |
DEA:= EMA(DIF,9);
& j0 z2 @5 \8 [/ Y Q xMACD:= (DIF-DEA)*2;' f" R3 u. _$ E& h# d- y
均值:= SUM(ABS(MACD), 100)/100; q& e1 u) z# B0 p: ?( H' @3 B8 t
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND $ W/ Q3 }/ p7 `2 `
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
, G& q0 k: q/ R7 K/ \" W u6 A7 v! O金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
/ Q% K+ F0 `: U2 F* R; s+ ZREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
! [! g; a% u* T# [AA1A:= BARSLAST(CROSS(DEA, DIF))+1;1 ?+ W/ W$ X. U# u/ G1 a
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
, q6 m5 p' L* ], O6 P5 t* q" G. g! QAA1:= IF(AA1B<AA1A, AA1B, AA1A);
% t1 `; _/ z f9 lAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;7 N$ K4 R7 F1 L6 A
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
; o/ w* ~/ P: F" w' U tAA2:= IF(AA2B<AA2A, AA2B, AA2A);0 ]0 d( ^& R, R5 t. _! C9 ?
DIFZ~小值:= LLV(DIF, AA1+AA2);
# f4 \# Q7 ?2 C2 R. B& ZDIFZ~小日:= LLVBARS(DIF, AA1+AA2);/ {- v. b8 f3 K4 G3 O3 A% ^* j
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);- g) Y; G1 i8 g' E1 d! M) ~! V
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
+ Z+ `5 c4 Q& E$ o2 MDBL:= IF(DBL1=0, 0, DBL2);4 }- ^ p6 q2 h% ]( S
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
& ~5 v) b4 i. F- Q
|