苍狼MACD 源码

流行云

: e( U( t& _& N( ~" O, n
" Y+ ~" b; C1 V9 Z: L6 i, c4 O
% t5 ?  N# S: K或许对某些同志会有帮助，继续贴上源码  

2 Z" E7 G. K' {8 p( c
{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
5 M) \/ h0 B: U) j# ^3 p% m短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
- j) [8 C/ ~+ T' G- _9 s, cMACD:=2*(短波-短均线);
{中波}
- m: I8 a4 ]# {中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
$ `+ {7 o; o& O) W; B中均线:EMA(中波,M),COLORBLUE;
2 q  K9 i0 T) Z* f4 qMACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
0 i+ \( \$ y/ n% g1 {! K* T# |FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
4 `: y/ Z1 _$ uFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
9 e, W2 D3 s- g" [) [: qPARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
6 {( U" b8 X1 k: NPARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
. ~' y5 U& u5 i) m$ F5 d' G2 ABB:="MACD.DEA#WEEK";
  x+ \; o* I: L* m; f9 dDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
. ^; @$ o( b! ^, f5 Z7 hDD:="MACD.DEA#MONTH";
2 X  u. v! X* r& b/ E6 F3 dDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
, G* v% h7 s; G3 ]4 v5 [0 K! \6 o9 EDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
2 J+ W. h1 _. l2 p/ L, `- Z" _{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
4 w. @$ i4 d5 G- d2 S* y出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);

8 w) O9 P7 V0 z9 _1 Y+ @% c% r4 |5 m6 O
2 K% }# m/ ^1 G6 r+ B5 b

axin302

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

流行云

8 w+ F1 P3 u5 e; |' `% [2 |% v

axin302 发表于 2013-6-23 10:29
/ V$ _9 K5 _( h% K. x# X看起来不错，加上背离指标会更好

2 r/ Y8 `9 T" ~2 f

8 R5 l( ^% Z3 A0 t& R
4 |6 P. o. V) x  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
8 a6 N% H0 k2 i% R0 d5 o  v& v( z; f

axin302

真高手！