苍狼MACD 源码

流行云

" l+ x' M: `- S. z* c" s或许对某些同志会有帮助，继续贴上源码  

  L% @/ {! W: D) |% P8 j% `+ Y
{苍狼MACD}
) X* [3 `( T+ l- a, B2 uINPUT: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;
短均线:EMA(短波,M),LINETHICK0,COLORCYAN;
MACD:=2*(短波-短均线);
{中波}
/ _, ~0 i# N9 l, x/ j中波EMA(C,N3)-EMA(C,N4))*1000,COLORYELLOW;
中均线:EMA(中波,M),COLORBLUE;
6 n4 _+ B7 t# B8 P/ VMACD2:2*(中波-中均线),LINETHICK1;
" k) {3 z8 M1 J# H7 [+ `+ }+ J" XSTICKLINE(MACD2>=0,MACD2,0,2,1),COLORMAGENTA;
& X5 Z+ y, u. }, }8 MSTICKLINE(MACD2<0,MACD2,0,2,1),COLORWHITE;
{绘图}
- Q) K% a4 z7 y! T) Q+ ~% |FILLRGN(中波>=中均线,中波,中均线),COLORYELLOW;
FILLRGN(中波<中均线,中波,中均线),COLORBLUE;
( N6 G" T% C  _4 `& i. h{FILLRGN(短波>=短均线,短波,短均线),COLORRED;
  C' N# U1 }. f7 ^% ~0 T: BFILLRGN(短波<短均线,短波,短均线),COLORGREEN;}
4 }6 y3 V$ G: I0 d短均线,LINETHICK2,COLORCYAN;
PARTLINE(短波>=短均线,短波),COLORRED,LINETHICK2;
PARTLINE(短波<短均线,短波),COLORGREEN,LINETHICK2;
{周金叉,死叉}
AA:="MACD.DIFF#WEEK";
" t/ T8 R+ t0 s% L2 c' i1 QBB:="MACD.DEA#WEEK";
DRAWTEXT(CROSS(AA,BB),0,'▲周金叉'),ALIGN5,COLORRED;
4 J, s% Y7 R/ z$ J3 bDRAWTEXT(CROSS(BB,AA),0,'◆周死叉'),ALIGN4,COLORBLUE;
* F8 X! ~! ?6 X! S3 G9 e" t{月金叉,死叉}
CC:="MACD.DIFF#MONTH";
4 C0 T( `$ i& o# k% y/ F% yDD:="MACD.DEA#MONTH";
% n; n+ ~' g- y  TDRAWTEXT(CROSS(CC,DD),0,'●月金叉'),ALIGN5,COLORRED;
- Z1 X6 @4 L* V* P" L) UDRAWTEXT(CROSS(DD,CC),0,'○月死叉'),ALIGN4,COLORBLUE;
4 t0 m2 z4 z# G. i2 H{选股}
EE:=CROSS(中波,中均线) AND MACD2>REF(MACD2,1) AND 短波>=REF(短波,1) AND 中均线>=REF(中均线,1);
( L# z% q. v2 w7 t- n2 C3 H出来:FILTER(EE,10);
DRAWICON(出来,中均线,1);
8 @; u: e8 w) @5 K! ^

/ j, I% h9 s% L8 D& s( V( K! v

axin302

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

流行云

) A/ t( P4 Q# V. X4 p" o* D/ n

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

- Q$ [' ]8 k( C+ I/ a4 j, a2 {


  Q' O, D1 v3 H- F  先加上均线，对应着，背离指标再找找    30分钟级别。。  60分钟级别
; i5 p5 a4 S- o

axin302

真高手！