苍狼MACD 源码

流行云

$ p: g) @6 n: t7 v5 B或许对某些同志会有帮助，继续贴上源码  
: N& H8 S  U9 q% k/ n+ E
+ n1 F1 v$ o7 r( |
2 V$ R- ]0 \7 p  s2 q  ^0 W3 L{苍狼MACD}
/ \- }8 {0 |9 eINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
( ]; m! m( P8 S$ L: H9 E{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
$ t, u0 _8 a0 o短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
: s0 A4 ?. T  a: w5 u3 z: V{中波}
/ b% S  }' J6 I3 P" m9 t中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
* M  z, N) b: H, R6 y7 C- a: S4 f( |. eSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
8 A- b! P! }7 ?$ z+ o3 C0 P; k{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
0 C5 H0 d; K( I+ R短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
3 g" b2 `- V: c, {$ g{周金叉,死叉}
) i4 j8 o; T/ A$ U8 |0 l/ hAA:="MACD.DIFF#WEEK";
, a' ^3 ~3 k0 S' V& H1 Z9 W5 _BB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
% g) }5 m2 s* h4 s, [6 j9 QDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
5 }/ d4 B/ D" D. I9 fDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
  N3 s+ {- X4 X* B- P/ g8 pDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
9 r7 l+ f8 j4 }5 B{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
* d" n' o* s: |$ s4 G* \DRAWICON(出来,中均线,1);
! X  v# p5 n/ K* r  U2 ^  L# v
% P3 z8 ?+ D: t' ^) L5 e! o) J0 I
. a) F- [3 Y5 g* k& t! Y2 @% [. ~

axin302

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

流行云

1 A9 S& w* \8 Z  o. J) D

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

  h7 j" P2 A8 A! w/ o
# p3 O+ {. n+ t6 Y, E

, N6 F/ w2 t5 i$ d7 b9 H3 c  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
" I# B. G; w% U; k

axin302

真高手！