苍狼MACD 源码

流行云

% j+ N+ L  C5 t  ~! T* }5 H4 A% {

9 S  y7 i2 H8 _4 Q" P或许对某些同志会有帮助，继续贴上源码  

$ j* k; Z0 u' c) J! L* c& C" k
{苍狼MACD}
INPUT:N1(3,1,100),N2(10,1,100),N3(10,1,100),N4(20,1,100),M(9,1,100);
{短波}
+ k+ F  {' e2 M& z% J0 t短波EMA(C,N1)-EMA(C,N2))*1000,LINETHICK0,COLORRED;
. D3 j$ w* Q+ w' g) L  X  d  @2 I短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
# g/ N: L' h) H2 g7 i1 wMACD:=2*(短波-短均线);
{中波}
中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
, y& W: ^( H/ X' g% L" l& `MACD2:2*(中波-中均线),LINETHICK1;
STICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
7 t6 }4 f' `) V' w$ ]STICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
& _; k- T8 f$ Z& C  m{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
FILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
; O' q, a% W1 X/ @- U% j短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
  z# T- N! K: jBB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
0 w# C9 d# O' h% Q  d& h1 PDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
0 o/ k& S7 _9 t0 H{月金叉,死叉}
1 S! o# G) i8 y2 f6 {CC:="MACD.DIFF#MONTH";
' w* Z! d+ k% v2 o. z0 G/ R7 d9 KDD:="MACD.DEA#MONTH";
DRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
DRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
{选股}
" j% |3 I2 [- l# y+ MEE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);


1 X" p3 E/ q$ c. Q* H* j% W

axin302

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

流行云

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

& H4 H  I1 U$ E( d3 |
/ l4 m$ B9 E9 n
+ Y5 O3 |$ c' g; _
. }( g5 m  P% x  c0 {) V- J- a  U1 c  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
7 M3 f' x3 Q  A

axin302

真高手！