苍狼MACD 源码

流行云

! ?7 [3 R: v" e( L3 ]9 Z

8 J7 `  ?, N  j* ^) F/ X! X1 z或许对某些同志会有帮助，继续贴上源码  

) M0 p; r8 O2 Y" U+ ?
{苍狼MACD}
- q8 G* J8 B, U( t6 a% HINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
% O# i# b( ]/ a{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
0 a1 |6 C% K3 D, C( ?' B短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
1 Q+ h) [% A1 f  ~7 R# m" K{中波}
2 B+ J: }! C) o% h. |中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
5 k& E$ D# _8 X1 z4 j9 G. Q$ \MACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
% K, _% z. M6 A{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
2 J9 z% d. ~( V8 e  Q8 P/ u5 U$ |PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
6 f# m, d) v3 y, b2 I: W+ o{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
  l7 v; E4 Q+ y4 p' c; `9 I  F, hBB:="MACD.DEA#WEEK";
: R7 L2 {( ~1 j4 R1 \DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
1 ~! L1 z( I2 x% N4 Q, C, lDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
1 A+ J; O* ^2 x{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
0 F3 j" s" j) i$ R+ X  C, gDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
% d8 c9 i; R) {9 X* @出来:FILTER(EE,10);
5 H# [0 ?( i* Q( u$ rDRAWICON(出来,中均线,1);

4 c3 W9 q+ P6 F# e4 y$ E) F  {

axin302

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

流行云

axin302 发表于 2013-6-23 10:29
" g; Z8 F) [+ M6 C看起来不错，加上背离指标会更好

" ?: G9 ^: ]" P' e7 U9 D4 e9 x3 k

  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！