在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);6 h' H0 ?, q5 S. |
DEA:= EMA(DIF,9);
) B# J# H l4 Q5 Q5 EMACD:= (DIF-DEA)*2;
8 w8 c' Q/ i, U5 H$ e- a8 r/ F均值:= SUM(ABS(MACD), 100)/100;
4 ^) e6 K: K4 p/ }起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND
. x: O F2 u& |7 gREF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
c. E6 e# w' `$ [0 { h! z金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
s2 f4 w5 U! l |# c# \' {REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
. n7 T! J1 Y) j7 aAA1A:= BARSLAST(CROSS(DEA, DIF))+1;7 U# N; u+ ~7 g" e& M" n9 U
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);
; s" b+ N, s, LAA1:= IF(AA1B<AA1A, AA1B, AA1A);
3 s) m* K( ~. T b1 a6 ]8 D: CAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1; y2 X* x V' }) _/ a
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
$ D2 G" W( [* x* _8 X3 J: E; }AA2:= IF(AA2B<AA2A, AA2B, AA2A);5 A3 R" a! V" T( N
DIFZ~小值:= LLV(DIF, AA1+AA2);
/ `, a/ Y m3 ^8 O; IDIFZ~小日:= LLVBARS(DIF, AA1+AA2);5 s+ }4 G. X m' ^1 @: A# y
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);0 H6 j6 B5 W9 P, F: x' P) B& ~
DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
! G, `; i+ B' v* W3 JDBL:= IF(DBL1=0, 0, DBL2);+ w: h: a. M3 h- ^3 a; l
DBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步
% ]) d: q6 w! l6 j- I4 c( F
|