苍狼MACD 源码

流行云

( B& V4 K* D  g6 u0 E6 P4 A
或许对某些同志会有帮助，继续贴上源码  


4 A4 O0 ~/ ]6 F1 V" K{苍狼MACD}
) _# j" @- o7 W  `: S9 aINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
& K# e6 b& e. z$ F短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
7 c( c( [( C: V( w1 a5 }! N& g{中波}
% p. L' j* K2 F* A& `4 @; k中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
9 x: ?7 a" F, O3 z) G; ~MACD2:2*(中波-中均线),LINETHICK1;
  n3 S* J: O' e  J. F  BSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
. h7 L. o% n8 y7 s{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
) t( m5 H$ X9 E4 ~7 TDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
  {5 M$ s( v) ~# ?3 xDD:="MACD.DEA#MONTH";
. w7 J2 c; G# z5 qDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
9 F9 w2 e- J0 ?, v+ _$ n{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
" ]! b, q8 z( v/ U) Y出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);
: k6 ?7 X  Y+ ]0 X; ~

axin302

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

流行云

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

. G" L$ e0 a* }
' m: _% ?. O4 d1 \& x1 j
' D6 P3 \0 ~9 r+ K) S0 D& b- G  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！