苍狼MACD 源码

流行云

, T: f0 L7 f6 Q* @
/ p& ^! K5 q# n$ T4 e* }8 j或许对某些同志会有帮助，继续贴上源码  

; A$ X4 k, P: o
$ k( J$ ?; i  r{苍狼MACD}
" y8 F" w1 E3 |% k, |4 A; QINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
0 ]2 n% j9 m) f% C{短波}
% \6 ~- r9 ^% h6 n; N短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
9 M3 [4 w8 G4 B9 i4 c$ N+ S短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
{中波}
  h+ L. \1 `2 i. r  L# y中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
: u9 b/ u) t$ b3 x中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
( D7 Z( S- G) {7 VSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
; r( b9 O0 I+ Y6 d/ s" J{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
3 F, r& p, S4 g0 A6 M/ Z, E{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
$ h. F2 L! @& z" ?2 zBB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
6 K. g, k$ X$ {  ^3 DDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
5 [$ @" p3 E$ _; o{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
' m" H& J; u; @8 Z4 @+ ?; zDD:="MACD.DEA#MONTH";
) q7 P6 R: @+ \2 k8 ?" w# k: m5 ?% |DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
! Y: S& I  O6 q2 q1 E{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);

axin302

看起来不错，加上背离指标会更好

流行云

/ k) p/ k* o9 g2 O

axin302 发表于 2013-6-23 10:29
看起来不错，加上背离指标会更好

' `! x. O4 \) b  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！