苍狼MACD 源码

流行云

9 p4 m/ K9 Q: L5 k
. B$ k* x3 \, U$ [  A
或许对某些同志会有帮助，继续贴上源码  
) D. m( F+ ]/ I- w& J

{苍狼MACD}
, g2 h& K/ n) s3 ^/ B7 w' FINPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
$ q0 c' O: Q4 s8 p{短波}
短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
{中波}
. x3 B+ }& R9 A1 Z3 u; z中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
" ~" Q$ R9 z0 A$ M: G# q中均线:EMA(中波,M),COLORBLUE;
" F5 w3 J( A' n& k- b, A* uMACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
! @: \7 \/ g  I9 i0 A2 M# oFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
, R) Z, Y* q0 Y6 e) |! EFILLRGN(中波<中均线,中波,中均线),COLORBLUE;
: G  @2 ^/ S' i/ O6 r( ^{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
3 V( {( W. A& x' `' v" yFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
0 C# j. A$ Q+ j/ |1 Z/ |& ~AA:="MACD.DIFF#WEEK";
# Z& J, n( q$ q( z( pBB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
1 Y8 f3 n! ]9 d( m{月金叉,死叉}
, c6 b) }6 Z3 I  S0 W/ ^+ g$ J9 h  nCC:="MACD.DIFF#MONTH";
DD:="MACD.DEA#MONTH";
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
{选股}
7 V& Z1 I- `8 w' Z% l2 @4 @$ XEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
& b: y* G3 y# {: h% Y. a出来:FILTER(EE,10);
' X  Y. @* A, WDRAWICON(出来,中均线,1);
2 }) f, y3 y6 W  r
* V2 Q: r1 ~, u7 ~: ?/ M5 w. [+ ^

axin302

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

流行云

, a3 I- l9 U( I( K3 w$ P6 Z

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

2 y) F; A8 S: P# T/ Z
: b% R4 ^1 b; R* P. |
& Z; O! z0 u! ^- R  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别

axin302

真高手！