苍狼MACD 源码

流行云

: S  \9 X2 W, x" r. j% i9 @1 Y2 _
2 c' ?% y: ?% M+ M  x# N. j或许对某些同志会有帮助，继续贴上源码  


' m+ F  `% i9 w9 k3 J9 u% V{苍狼MACD}
$ w: T* M- S2 }. xINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
, R. b. L1 f9 P& A6 O1 H{短波}
, v0 P/ D9 H( H, O! O短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
# H8 P/ X1 I: y, p( n- p, o" J! w; t短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
0 K9 ^0 |% |' K{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
& G8 P% ?$ ?# Q8 b3 R! w- |/ lMACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
, F- t# a$ X9 a6 p4 V# E{绘图}
3 Q& |* F% Q2 G' IFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
) Q' |2 d1 D! D. I* kFILLRGN(中波<中均线,中波,中均线),COLORBLUE;
' y* c4 {+ J' ^' u% e# v; K2 z{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
: n2 }- K0 l5 A2 G/ ^FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
; l9 W& g: ?( |3 O" a8 L: h/ a{周金叉,死叉}
  I7 j; S1 _9 q9 m0 G/ p& A+ ^AA:="MACD.DIFF#WEEK";
1 `" ?. B- W$ t9 o2 T' wBB:="MACD.DEA#WEEK";
' L* I7 a. Q* [2 c) K& z0 iDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
' E6 t1 L2 v! E0 c/ U2 D2 X% ?% ^- ADRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
, r3 c1 d$ X5 U: W9 c. e9 N{月金叉,死叉}
+ u$ `- r& s- [# u% g+ k9 U- |CC:="MACD.DIFF#MONTH";
6 i1 W/ L3 {$ h. A- T0 M. HDD:="MACD.DEA#MONTH";
% S+ ~  U5 z3 @8 dDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
. q& g$ q* y' Q/ {, O: D{选股}
; j) |$ B2 ^% B* e& YEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
2 a+ C! V  ~/ ?; ?) W# {出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);


/ \5 Q% z7 q; I1 W

axin302

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

流行云

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

/ m* ^7 t# P4 K

  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
0 P+ d* ?' s4 I8 {0 O7 O

axin302

真高手！