苍狼MACD 源码

流行云

) D# w4 H7 ~# j" W: _/ J$ [

3 z) `6 O/ }8 V2 v或许对某些同志会有帮助，继续贴上源码  
% W1 C- g) }" }1 k

{苍狼MACD}
3 n; A, ]: `  m  b# \INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
. _# N6 o: U) J0 F0 n{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
- A. J& T" L) o+ k/ OMACD:=2*(短波-短均线);
{中波}
( l0 O' D: a) `& G7 Y9 c中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
6 W) W6 n5 J* J3 m. K中均线:EMA(中波,M),COLORBLUE;
2 }6 ^7 i+ ?3 U/ W5 {MACD2:2*(中波-中均线),LINETHICK1;
# o2 C4 i1 j: w& l7 bSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
4 p2 r7 k+ o) r. I+ o9 v7 P& wSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
* X5 g% B# Z0 O4 Q( e) u/ IFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
0 [1 }8 o+ W& Z' x2 Q0 cFILLRGN(中波<中均线,中波,中均线),COLORBLUE;
$ O! g  y+ p; j+ r1 @- {0 v{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
, U% |3 L0 Y0 \  k4 x6 dPARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
# ~" `& Z- r( Q  O; }% QAA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
' D/ ~4 T. j4 a! w% x; JDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
5 M$ m! M- Z* x9 |DD:="MACD.DEA#MONTH";
: m5 D; A; y' Y) z3 @* U; j5 ZDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
1 A5 e  @! X6 [: t* ^' [: s0 rDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
6 q/ N9 {0 I$ q: l{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
# [0 z0 g. ~  M% _7 e% g, L- LDRAWICON(出来,中均线,1);
% U9 B, i- A; L( w
2 e$ M" Z! `) X9 p6 W3 \$ o7 ?
& Z( z3 \$ ?; C2 ^$ ]" F

axin302

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

流行云

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

/ s4 n! D0 v$ h" Z, G
& r/ k# b3 |8 c& Y# `% U+ c
' \6 c% U& e# j/ f" E  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！