苍狼MACD 源码

流行云

2 F! D: j$ k( F0 t8 b
" F8 J+ E% y  J8 Z0 i
或许对某些同志会有帮助，继续贴上源码  


{苍狼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*(短波-短均线);
* Z+ U% E8 m7 y$ }1 q{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
0 W/ \2 ^1 R. x8 m$ p/ pSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
9 {" J# k- B* K* m{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
. b8 _& Y! T& @1 |( V5 {FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
' a) j3 g6 `: ]9 }* wFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
4 _$ j; G: u0 D6 k& b& z短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
0 m( Z/ a5 E& B, e# W- Q4 o! KBB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
) z- W2 p9 a  Z3 T* q9 q  z; oDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
9 k5 L/ @8 L0 A{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
/ z- }9 m7 s  s. yDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
! P% b: t% H* _1 V( t3 {{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);

+ G5 S9 z( o! B& m+ j2 o. D
$ O5 w6 B" e1 w" d. i; a  [

axin302

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

流行云

axin302 发表于 2013-6-23 10:29
3 A0 l6 M& J6 [% a. e7 \+ L( ]看起来不错，加上背离指标会更好

, u  y) a$ c8 b7 @& W/ [


  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
( W4 m, z# \* y. L: c

axin302

真高手！