软件名称：[B]MACD和KDJ主图－（源码）[/B]
软件类型：国产软件
运行环境：Win2000/WinXP/Win2003/WinVista
软件语言：简体中文
授权方式：共享软件
软件大小：3.00 KB
官方主页：Home Page
更新时间：2010-05-02 04:11:44
软件简介:

研究公式无数，最终觉得还是系统自带的最经典，便尝试将MACD和KDJ结合起来，在主图显示，便于看长做短。为保持图的简洁，MACD用彩带表示，KDJ隐去一条线，这样看起来舒服些。
布林也很不错，加入后用星线表示压力和支撑。效果图如下:



源码如下：

{MACD和KDJ主图}
INPUT:N(18),S(26),P(12),M(9);
DRAWGBK(CLOSE=CLOSE,COLORRGB(80,130,130),COLORRGB(30,30,60),1);
A:=EMA(CLOSE,S);
T:=EMA(CLOSE,P);
B:=EMA(A,M);
T1:=EMA(T,M);
DEA:=EMA(T-(T1-T),2),COLORFF8866,LINETHICK2;
DIFF:=DEA-EMA(((A-B)-(T-T1)),1)*6,COLORFFFF66,LINETHICK2;
FILLRGN(DIFF>DEA,DEA,DIFF),COLORBROWN;
FILLRGN(DIFF<DEA,DEA,DIFF),COLORGRAY;

RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9));
RSV2:=(RSV1-0.5)/5*EMA(C,20);
RSVK:=SMA(RSV2,3,1);
RSVD:=SMA(RSVK,3,1);
RSVJ:=RSVK*3-RSVD*2;
K:=RSVK+EMA(C,20),COLORWHITE;
D:RSVD+EMA(C,20),COLORYELLOW;
J:RSVJ+EMA(C,20),COLORMAGENTA;

{K线}
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),LOW,HIGH,0.1,0),colorred;
STICKLINE(CLOSE>OPEN or CLOSE=OPEN and CLOSE>REF(CLOSE,1),OPEN,CLOSE,4,0),colorred;
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),LOW,HIGH,0.1,0),color00ff00;
STICKLINE(CLOSE<OPEN or CLOSE=OPEN and CLOSE<=REF(CLOSE,1),OPEN,CLOSE,4,0),color00ff00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3.5,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2.5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1.5,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0.5,0 ),COLOR00FF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF00FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3.5,0) ,COLORFF22FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF44FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2.5,0) ,COLORFF66FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFF88FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1.5,0) ,COLORFF99FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFAAFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0.5,0) ,COLORFFBBFF;

{涨跌停}

ZDF:=(C-REF(C,1))/REF(C,1)*100;
{STICKLINE(ZDF>9.8,O,C,4,0),COLORFF00FF;
STICKLINE(ZDF<-9.8,O,C,4,0),COLORBLUE;}
STICKLINE(ZDF>9.8,CLOSE,O,2.8,0),COLOR000055;
STICKLINE(ZDF>9.8,CLOSE,O,2,0),COLOR000088;
STICKLINE(ZDF>9.8,CLOSE,O,1.5,0),COLOR0000AA;
STICKLINE(ZDF>9.8,CLOSE,O,1,0),COLOR0000CC;
STICKLINE(ZDF>9.8,CLOSE,O,0.5,0),COLOR0000EE;
STICKLINE(ZDF<-9.8,O,C,2.8,0),COLOR555500;
STICKLINE(ZDF<-9.8,CLOSE,O,2,0),COLOR888800;
STICKLINE(ZDF<-9.8,CLOSE,O,1.5,0),COLORAAAA00;
STICKLINE(ZDF<-9.8,CLOSE,O,0.5,0),COLORCCCC00;
STICKLINE(ZDF<-9.8,CLOSE,O,1,0),COLOREEEE00;

BOLL:=EMA(C,20);
UPPER:BOLL+2*STD(CLOSE,20),CROSSDOT,COLORRED;
LOWER:BOLL-2*STD(CLOSE,20),CROSSDOT,COLORWHITE;

 

[url=http://www.70822.com/soft/sort013/sort02/down-19580.html]MACD和KDJ主图－（源码）[/url]