苍狼MACD 源码

流行云

5 T* o/ I, D( c
4 O% p6 ^# Z* y8 U% l+ b5 J! o
- T; k; m, o' U0 P或许对某些同志会有帮助，继续贴上源码  
  @# W* d% |% A; x. H, c

{苍狼MACD}
( `  y8 S# g3 @' g5 q/ M7 GINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
$ H& d. ^+ f5 S: y1 e{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
1 O9 \! Z; y0 {. A- ^MACD:=2*(短波-短均线);
{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
2 i) o+ d! e) u$ q# b5 B中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
7 q& t# g: w0 v" j- ASTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
1 h+ l% u# f. Q( M{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
! G) n) t, i" Q+ ~; p短均线,LINETHICK2,COLORCYAN;
7 X5 }, L3 v/ d" R: jPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
; Z7 g3 ^1 T, A# P* Z7 [{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
8 k2 n6 w  k* P! y: vDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
3 U8 L2 i8 i3 i: E" GDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
6 O3 x# H2 B, kDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
" C% T3 P1 x" R, u# E3 vDRAWICON(出来,中均线,1);
9 \+ C6 l+ P. n, q
7 ^) o3 V% u9 v% Q/ p  ]7 z# I
1 @- \: ]  l4 n- F8 G; k

axin302

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

流行云

; i+ }7 ?' S1 b/ C* c" w

axin302 发表于 2013-6-23 10:29
. M' u1 }+ a) _5 c+ Z6 A看起来不错，加上背离指标会更好

( [8 a8 ~$ N, P0 ~

5 p2 Y! P$ E6 F% V4 A, S
  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
5 b0 [* t3 d" _( L+ M

axin302

真高手！