苍狼MACD 源码

流行云

! ?  j+ [! T2 l
1 r0 L" }7 ^' A4 M& f9 R1 }
, }/ B1 t' @3 m) q3 ?( l或许对某些同志会有帮助，继续贴上源码  


{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
  u+ i, K, V0 p& d1 i* \( h短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
) c6 h0 M" S; {0 i/ M3 F- WMACD:=2*(短波-短均线);
/ P; z/ w3 R: F0 c( k2 }# P{中波}
2 @8 h) W# C. A4 U. n1 L中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
MACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
. F8 ^& n8 H9 a; U+ rSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
2 S4 y, W, H0 v1 R( C9 ]1 D{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
9 d9 S7 \& Y- Q3 P6 `' \FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
" W; ]. \; W" L  TPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
! t9 Q9 y3 ?: `; t3 dBB:="MACD.DEA#WEEK";
" ~1 @2 |8 K" {/ Z6 L  Q5 U6 p% DDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
3 |8 C, h# z& ]( w0 ]DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
0 }/ Q! A+ I3 j6 uDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
+ l0 F" z& m* R+ R( ^( X  m{选股}
0 C7 }# j  D  Z* J; H* v2 \+ f# tEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
& n! L! [; F- Q$ d! p2 L出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);

6 f3 c% _7 D, }
  B/ T! t" H/ L3 v- h- z7 m

axin302

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

流行云

/ S7 f. U+ T, Y1 S

axin302 发表于 2013-6-23 10:29
+ z% D+ \- S3 X( U8 w看起来不错，加上背离指标会更好

4 f7 v7 W  _7 ?* V
9 K8 k, T2 z: e/ x9 U' t% B
' h5 F- A8 K* e; X4 H2 p9 Q
* u" [7 |6 ~+ H8 ^7 b1 Y, s  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
1 A5 [2 G# `) D! e: D* }

axin302

真高手！