苍狼MACD 源码

流行云

' L! W! c! J5 I1 c9 p

或许对某些同志会有帮助，继续贴上源码  

& `6 t2 Q6 [4 K
{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
; ^* F( ~- X0 G  e' R{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
" P; k  W  l' w1 RMACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
: }# Z% s. Z4 m  B5 f{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
0 p2 ~- N# i) ]3 _: _* s# U/ C# y) |FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
/ n% y) `3 M9 G: K短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
  x: Z' n, [( r* G+ }PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
3 k3 C% }/ O# i" ~4 v' y# KBB:="MACD.DEA#WEEK";
1 T. l/ }0 r0 o1 g" |DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
9 y. u# A: ^% M5 t( K9 U6 @8 |DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
{月金叉,死叉}
+ \3 I) ?6 q1 H: b& f! I" ICC:="MACD.DIFF#MONTH";
' d8 R( [( |$ _9 v! y9 ^7 ADD:="MACD.DEA#MONTH";
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
) m1 i. W8 y; T- C1 G{选股}
- [. w, k* d# PEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
+ C& e" B1 d! ?( T. Q0 _DRAWICON(出来,中均线,1);
; Z( U* Y$ a; S2 u# q) t( h
' z% {5 |0 T+ ?, y, @: L+ A
# k% x) Z! @9 k- O: O

axin302

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

流行云

axin302 发表于 2013-6-23 10:29
1 q5 b7 P8 c- _& G看起来不错，加上背离指标会更好

# e; s/ ?$ P0 W" o! U0 L
/ M% U6 m4 s% i" a8 O2 z
! k& m4 D, {/ H. E
8 X: H# T5 \; j) g  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！