在主图上右键点MACD的“修改当前指标公式” 然后拷如下列程序,名字自命名,我命名的是“MACD=背离” DIF:= EMA(CLOSE,12)-EMA(CLOSE,26);
1 v9 H# i/ d, v2 ^# v1 S+ bDEA:= EMA(DIF,9);
5 Q) [6 M" R$ I& GMACD:= (DIF-DEA)*2;
' ~" ~( ~% B# ?" {% C, n均值:= SUM(ABS(MACD), 100)/100;: w" m, w, O5 M; G* J* J: \
起死回生:= REF(MACD, 2) > REF(MACD, 1) AND REF(MACD, 1) < 均值*0.1 AND ( g8 E2 j2 d% C# [% W( s
REF(MACD, 1)>=0 AND REF(MACD, 1) < MACD;
: x% Z$ S& d0 ^) V" ~金叉失败:= REF(MACD, 2) < REF(MACD, 1) AND REF(MACD, 1) > 0-均值*0.1 AND
& B$ K8 O' v# u: @$ I* v/ r8 iREF(MACD, 1)<=0 AND REF(MACD, 1) > MACD;
+ P. r9 U A: |6 \: {8 y8 cAA1A:= BARSLAST(CROSS(DEA, DIF))+1;, D6 q. _+ K; ]. D5 k1 @
AA1B:= IF(起死回生 OR 金叉失败, BARSLAST(起死回生 OR 金叉失败)+3, 99999);9 j0 z: K# H: Z% @; `4 P: j
AA1:= IF(AA1B<AA1A, AA1B, AA1A);2 D8 S5 ?- e& E8 i/ L
AA2A:= REF(BARSLAST(CROSS(DEA, DIF)), AA1)+1;
- D8 G1 q3 z4 D( b: mAA2B:= IF(REF(起死回生 OR 金叉失败, AA1), REF(BARSLAST(起死回生 OR 金叉失败), AA1), 99999)+3;
4 |% [7 @- q$ s: k& }! e3 B. EAA2:= IF(AA2B<AA2A, AA2B, AA2A);
" I7 O9 c- Q1 Z$ d7 {- r; UDIFZ~小值:= LLV(DIF, AA1+AA2);6 {) U1 h$ Q, J( }9 \
DIFZ~小日:= LLVBARS(DIF, AA1+AA2);. M- D" a% G4 \, |* T
DBL1:= IF(DIFZ~小日<=AA1, 0, 1);
3 C8 A7 O2 J1 r2 B3 SDBL2:= IF(DBL1=1 AND C<REF(C, DIFZ~小日) AND DIF>REF(DIF, DIFZ~小日), 1, 0);
: i1 S% }6 _8 G1 xDBL:= IF(DBL1=0, 0, DBL2);
f! Y$ u! ?+ v( r- X. o6 ODBLJC: 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 完成。
+ d; l; O' G, l9 A' _, T/ p* H' G
|