苍狼MACD 源码

流行云

6 ?+ l9 ^3 c5 e7 R' J" V, ~
) M* E* ~1 |; x; B, b
或许对某些同志会有帮助，继续贴上源码  

' a& S$ q' {4 c
3 y# N. }) x' z{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
6 ]+ @( r8 R8 M6 G" K. ?9 Q短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
' D/ C$ E4 k# lMACD:=2*(短波-短均线);
{中波}
7 ~- J5 [! L9 V# u5 a" W中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
4 A: v" K2 ~* AMACD2:2*(中波-中均线),LINETHICK1;
* h8 A9 ^/ e3 I) T" WSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
4 q( @+ N6 D, Y& \0 Z( w( |" x/ X{绘图}
! D( O5 v& v, w! N0 A6 q4 AFILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
8 D( _5 }& w6 i: ~# a& `3 |1 i4 lPARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
3 Y, t! `7 M! M; k# a# j{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
BB:="MACD.DEA#WEEK";
! r2 F& A  L- @6 T- HDRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
1 X. P$ M" l- E. L9 c: L7 q/ d! M0 UDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
& ]; Q! W5 W4 C' y* O{月金叉,死叉}
- J  @) d& e4 ]- m& kCC:="MACD.DIFF#MONTH";
' W) ]5 B% h& B+ X) x; bDD:="MACD.DEA#MONTH";
2 C4 [1 w9 G% t* u( eDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
, O9 k# p1 W# [, tDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
{选股}
( m% Y9 c' @# ~EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
$ k5 O( ~' ]; k3 R& i; _: Q( mDRAWICON(出来,中均线,1);
- I' A+ B5 ?3 b) L7 Z8 T

0 G8 g- W# v/ y$ V$ s' _" ?. P

axin302

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

流行云

; Z& i( \& R" m8 [1 j4 f: `- R

axin302 发表于 2013-6-23 10:29
- C5 ]6 l% K! ^5 J8 Q# b看起来不错，加上背离指标会更好

& R7 x2 B) g7 L. z. C. w; I) s! k


  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
" [9 C9 i2 o( i8 Z1 P9 C% L

axin302

真高手！