在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
$ P* g8 f" h/ e9 k4 ?" m' s+ y# }DEA:= EMA(DIF,9);$ \' @1 N( }8 \" `
MACD:= (DIF-DEA)*2;2 y' g( l8 w# G# r6 z4 {
均值:= SUM(ABS(MACD), 100)/100;* L$ P( l# n* X+ k% f- C4 j1 } X; R
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND , v9 |6 v8 ]6 }
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;6 Z" g% j' K3 A8 m6 S- S
金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
9 V0 t9 K: Y% T6 N6 }, p1 mREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
1 S6 W# h/ i$ ~1 f2 uAA1A:= BARSLAST(CROSS(DEA, DIF))+1;
! D2 d% E7 \: w" Z" k7 M0 pAA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);2 r5 r6 ?# ~( \3 g. y& f0 n/ O2 E
AA1:= IF(AA1B<AA1A, AA1B, AA1A);
2 e, [- A0 E5 I+ |7 j6 w* NAA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;" |5 ~" ~+ }% D- c( u* N9 D8 U' s9 j
AA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;3 A% {6 Q5 @0 V% H+ c
AA2:= IF(AA2B<AA2A, AA2B, AA2A);
9 \6 B# b. U$ p( U' RDIFZ~小值:= LLV(DIF, AA1+AA2);
! s! `4 H/ L2 g* N! z4 XDIFZ~小日:= LLVBARS(DIF, AA1+AA2);
8 B! w+ Q% H* m L7 ~DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
! [# ?9 d4 l6 J1 N$ \# WDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);$ J' `' d( A y2 s* D9 @4 d
DBL:= IF(DBL1=0, 0, DBL2);
6 d' K* ]+ Q- ^$ H% O9 j. q% ~* ZDBLJC: DBL AND (CROSS(DIF, DEA) OR 起死回生) AND DIF>REF(DIF, 1); 第一步 file:///C:\Users\NINGHO~1\AppData\Local\Temp\ksohtml\wps8353.tmp.jpg 第二步: file:///C:\Users\NINGHO~1\AppData\Local\Temp\ksohtml\wps8363.tmp.jpg 第三步: file:///C:\Users\NINGHO~1\AppData\Local\Temp\ksohtml\wps8374.tmp.jpg 第四步: file:///C:\Users\NINGHO~1\AppData\Local\Temp\ksohtml\wps8394.tmp.jpg 第五步: file:///C:\Users\NINGHO~1\AppData\Local\Temp\ksohtml\wps83A5.tmp.jpg 第六步: file:///C:\Users\NINGHO~1\AppData\Local\Temp\ksohtml\wps83B6.tmp.jpg 完成。
& h% w& [ n) C2 n: M) d
|