MACD变色(通达信):
! P, ^) N8 R+ W3 p8 gDIF1:=EMA(CLOSE,7)-EMA(CLOSE,19),COLORWHITE;
: f9 s0 L F/ P0 r9 }' \: G7 r |+ cDEA1:=EMA(DIF1,9);
0 d. ]: f( B( L: r9 NMACD1:=(DIF1-DEA1)*2,COLORSTICK;
5 U& `7 Q6 ^2 p) oSTICKLINE(MACD1>REF(MACD1,1) AND MACD1>0,0,MACD1,0,0),COLORRED;+ @( T! k+ S, P0 H$ x
STICKLINE(MACD10,0,MACD1,0,0),COLORYELLOW;% ^" l* r# R: y/ x6 Q# R
STICKLINE(MACD1MA(DIF1,4),DIF1,DRAWNULL),COLORRED;
/ [: W! X, A' t, m* h' r' u弱:IF(DEA1>MA(DEA1,4),DEA1,DRAWNULL),COLORMAGENTA;
7 Y/ _7 j/ N: q) A5 a流畅盘(亿):CAPITAL/1000000,LINETHICK0,NODRAW,COLORWHITE;
# W7 p: W- O; q- p每股净资产:FINANCE(34),LINETHICK0,NODRAW,COLORGREEN;1 M# {3 Z4 ?2 L4 }0 y
年收益:FINANCE(33),LINETHICK0,NODRAW,COLORMAGENTA;
; I/ @' |4 ?6 i' F) b换手:VOL/CAPITAL*100,LINETHICK0,NODRAW,COLORCYAN;6 E- X8 G+ r, U# o0 R4 y' W3 j
用法:买入时不消等金叉出现,只要DIF由绿变红时(激进的可在MACD长绿柱变紫色时)到场;卖出也不必等死叉才卖,' q4 f7 E, h& u9 h/ R) A- \% W N
只要DIF由红变绿就可卖出(激进者可在MACD长红柱变黄色时卖出)。发起用60分钟(激进者可用30分钟)图来操纵。
* l' e3 V# a( A( P: W/ u. }0 L 9 L7 M8 M' @; L+ w0 q3 S, d
优化更新,交易点更为精确!并有MACD,KDJ,RSI顶底背离提示。: ?: D$ U) x: A" ^2 s V4 A
源码如下:
4 j5 ~6 I6 \; u( d e _DIFF:EMA(CLOSE,7) - EMA(CLOSE,19);' M- L5 u7 G- J, @9 Z7 o! g0 f! j
DEA:EMA(DIFF,9);
1 f6 P" `3 f3 ~/ N6 _$ eMACD:2*(DIFF-DEA),COLORSTICK;, }% m5 r1 E1 ~# l. A8 n7 l
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));4 j3 f& _( W2 n# y: O8 N
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)C AND REF("KDJ.K"(9,3,3),A2+1)C AND REF("RSI.RSI1"(6,12,24),A3+1)0,-0.1,0),COLORRED,POINTDOT;2 D1 q# ?1 h% o: G
KDJ底背:IF(B2>0,-0.1,0),COLORFF00FF,POINTDOT;
3 @. {& ~$ j' `! K+ ~RSI底背:IF(B3>0,-0.1,0),COLORYELLOW,POINTDOT;9 j% @6 q3 C2 L4 h
MACD顶背:IF(D1>0,0.1,0),COLOR00FF00,POINTDOT;4 i8 ]5 G- K$ {5 O# ~8 X6 P
KDJ顶背:IF(D2>0,0.1,0),COLORFFCC66,POINTDOT;
( ~$ L/ Z0 x& U2 q8 W: k& DRSI顶背:IF(D3>0,0.1,0),COLORWHITE,POINTDOT;
4 q1 B7 N: E& k/ S% ]8 q( `STICKLINE(B1>0,-0.1,0,2,0),COLORRED;
- g% a) W; @ K* ^ f H2 PSTICKLINE(B2>0,-0.1,0,2,0),COLORFF00FF;
% Q% u' o* a( j" ~! d3 wSTICKLINE(B3>0,-0.1,0,2,0),COLORYELLOW;; ~% O H* c8 ^: {. S
STICKLINE(D1>0,0.1,0,2,0),COLOR00FF00;
8 V: ]2 V% K j* `STICKLINE(D2>0,0.1,0,2,0),COLORFFCC66;
: N p$ H8 f0 O6 P, e/ RSTICKLINE(D3>0,0.1,0,2,0),COLORWHITE;8 c3 A( S8 ?& g$ Q& I
STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,0,0),COLORRED;
7 |: k8 E5 M% pSTICKLINE(MACD0,0,MACD,0,0),COLORYELLOW;* H9 V1 b# q/ S% \: ]0 D: B
STICKLINE(MACDMA(DIFF,2),DIFF,DRAWNULL),COLORRED;, H4 }& r- C) d1 q. F2 J
弱:IF(DEA>MA(DEA,2),DEA,DRAWNULL),COLORMAGENTA; |