在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);2 i* G" U+ D6 `- X7 N( ?- `" v* e
DEA:= EMA(DIF,9);5 S) n' D3 q+ Z
MACD:= (DIF-DEA)*2;4 S8 }# h! K+ p4 y+ ^
均值:= SUM(ABS(MACD), 100)/100;) [, x0 Y7 g3 h$ N4 D- [
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND ; P0 ]9 ?" q. {* Y) \- }1 s
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
% w4 R( G) e& l( M金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND 8 Q2 V- D, l u8 @
REF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
7 {4 w, n' m$ J( o! R- AAA1A:= BARSLAST(CROSS(DEA, DIF))+1; j$ P# ~) z7 q+ Q- e! W
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);8 A, a- g9 d" M+ j! c( F& A
AA1:= IF(AA1B<AA1A, AA1B, AA1A);) l, u% y) o k. h. D
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
& c2 l( w# T0 bAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;! z% @" [ W9 A; w5 D
AA2:= IF(AA2B<AA2A, AA2B, AA2A);0 v! g5 b' `5 {+ E! V/ V: z
DIFZ~小值:= LLV(DIF, AA1+AA2);
( [ u9 z# V, Z9 x) `4 h8 TDIFZ~小日:= LLVBARS(DIF, AA1+AA2);
A6 `- F- q' Q" V2 ], Y5 W S) XDBL1:= IF(DIFZ~小日<=AA1, 0, 1);
2 Z7 } o4 O' i5 ^DBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
i6 T2 D8 F# j# K! VDBL:= IF(DBL1=0, 0, DBL2);
' v# n1 k2 Z4 q, d C; m4 d4 f2 I) gDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 第二步 第三步 第四步 第五步 第六步 # V h$ k! s# C% q; B8 ^
|