苍狼MACD 源码

流行云

/ s9 `0 I5 i# b0 ~* P0 u# _, N
2 k. K3 l- q# Z$ {
或许对某些同志会有帮助，继续贴上源码  
4 ^* c1 V, ?2 C" C) C2 M

* G$ i' s% M7 a; c{苍狼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;
* z/ u, D, m. @% m短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
) O4 f- h' D& w* R2 p1 \中均线:EMA(中波,M),COLORBLUE;
7 c. O# Q& _- L8 VMACD2:2*(中波-中均线),LINETHICK1;
% w0 Z# j+ |9 v2 ~& xSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
9 _) [# }" d% {% S- C; |{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
/ r4 K3 `1 k' NFILLRGN(中波<中均线,中波,中均线),COLORBLUE;
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
/ a: P- T3 }* a% y5 H& K& YAA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
2 y8 \) Y5 a6 d3 iDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
- g& w8 ^$ [/ }- Z' p" gDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
7 e) @0 X1 R! N$ l, S6 C: r{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
  b) [# f6 n8 \( G$ i) X  Y! \# O. bDD:="MACD.DEA#MONTH";
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
0 B3 S; ?7 N3 }/ I+ p" qDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);
+ v! U4 P  V. _- z
! [4 B( s, h& u6 ~- X2 y2 L
- [* b! s  K1 p: _. ~7 I

axin302

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

流行云

6 N5 I$ I1 W5 y

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

9 O% s% ?. K! T' C- A

# d$ J6 L$ I. v: l- l
: a+ S: O) \' G; K, `  X$ A5 a  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！