软件名称:[B]金牛KDJ指标[/B]
软件类型:国产软件
运行环境:Win9X/2000/XP/2003/
软件语言:简体中文
授权方式:解密版
软件大小:3.00 KB
官方主页:Home Page
更新时间:2009-01-27 08:52:44
软件简介:
送鼠迎牛,奉献一个金牛KDJ指标
祝朋友们新的一年,新的进步!
DRAWGBK(v>1,COLORRGB(0,0,0),COLORRGB(40,80,100),1);
日K:ma("kdj.k",1),PRECISION2,COLORaa99cc,linethick;
日D:ma("kdj.d",1),linethick,PRECISION2,COLORCYAN;
日j:ma("kdj.j",1),linethick,PRECISION2,COLORBROWN;
FILLRGN(日K>=日D,日K,日D),COLORaa99cc;
FILLRGN(日K<日D,日K,日D),Color008080;
FILLRGN(日j>=日k,日K,日j),COLORBROWN;
FILLRGN(日j<日k,日K,日j),COLORCYAN;
STICKLINE(c>0,80,80,3,0),COLORBLUE,LINEDOT;
STICKLINE(c>0,50,50,3,0),COLORffffff,LINEDOT;
动力:sma(ma((c-ref(c,1))/ref(c,1),5)*100,2,1)*5,LINETHICK,PRECISION2,ColorFF;
FILLRGN(动力>0,动力,0),Color000080;
FILLRGN(动力<0,动力,0),COLORGRAY;
PARTLINE(动力>REF(动力,1),0),COLORff,linethick2;
周j:FORCAST("KDJ13.j2#WEEK",13),PRECISION2;
周je:wma(周j,5),PRECISION2;
周k:ma("KDJ13.k2#WEEK",5),linethick,PRECISION2,colorFF8800;
周d:=ma("KDJ13.d2#WEEK",5),linethick,PRECISION2,color661ffd;
STICKLINE(周k<=周d,周k,周d,4,0),colorFF7700;STICKLINE(周k<=周d,周k,周d,3.5,0),colorFF8800;
STICKLINE(周k<=周d,周k,周d,3,0),colorFF9900;STICKLINE(周k<=周d,周k,周d,2.5,0),colorFFAA00;
STICKLINE(周k<=周d,周k,周d,2,0),colorFFBB00;STICKLINE(周k<=周d,周k,周d,1.5,0),colorFFCC00;
STICKLINE(周k<=周d,周k,周d,1,0),colorFFDD00;STICKLINE(周k<=周d,周k,周d,0.5,0),colorFFEE00;
STICKLINE(周k>周d,周k,周d,4,0),color131ffd;STICKLINE(周k>周d,周k,周d,3.5,0),color661ffd;
STICKLINE(周k>周d,周k,周d,3,0),COLOR5050FF;STICKLINE(周k>周d,周k,周d,2.5,0),COLOR5F5FFF;
STICKLINE(周k>周d,周k,周d,2,0),COLOR6C6CFF;STICKLINE(周k>周d,周k,周d,1.5,0),COLOR7E7EFF;
STICKLINE(周k>周d,周k,周d,1,0),COLOR9D9DFF;STICKLINE(周k>周d,周k,周d,0.5,0),COLORAFAFFF;
STICKLINE(周k>周d and 周k<=ref(周k,1),周k,(周d),4,0),COLORWHITE;
STICKLINE(周k<=周d and 周k>ref(周k,1),周d,(周k),4,0),COLORYELLOW;
diff:=ema(c,12)-ema(c,26);
DIFR:(diff-LLV(diff,9))/(HHV(diff,9)-LLV(diff,9))*100,ColorC080FF,PRECISION2;
PARTLINE(DIFR<REF(DIFR,1),DIFR),Color008080,LINETHICK1;
PARTLINE(周j<=REF(周j,1),周j),LINETHICK1,color009900;
PARTLINE(周j>REF(周j,1),周j),LINETHICK1,ColorFF;
PARTLINE(周je<=REF(周je,1),周je),LINETHICK1,colorFF9999;
PARTLINE(周je>REF(周je,1),周je),LINETHICK1,color99FF;
周金叉:IF(CROSS(周j,周k),0,-20),colorred;
DRAWTEXT(周金叉>-20,10,'周\n金'),colorred;
下面是引用指标:
{KDJ13}
RSV2:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K2:SMA(RSV2,3,1);
D2:SMA(K2,3,1);
J2:3*K2-2*D2;
DRAWGBK(v>1,COLORRGB(0,0,0),COLORRGB(40,80,100),1);
日K:ma("kdj.k",1),PRECISION2,COLORaa99cc,linethick;
日D:ma("kdj.d",1),linethick,PRECISION2,COLORCYAN;
日j:ma("kdj.j",1),linethick,PRECISION2,COLORBROWN;
FILLRGN(日K>=日D,日K,日D),COLORaa99cc;
FILLRGN(日K<日D,日K,日D),Color008080;
FILLRGN(日j>=日k,日K,日j),COLORBROWN;
FILLRGN(日j<日k,日K,日j),COLORCYAN;
STICKLINE(c>0,80,80,3,0),COLORBLUE,LINEDOT;
STICKLINE(c>0,50,50,3,0),COLORffffff,LINEDOT;
动力:sma(ma((c-ref(c,1))/ref(c,1),5)*100,2,1)*5,LINETHICK,PRECISION2,ColorFF;
FILLRGN(动力>0,动力,0),Color000080;
FILLRGN(动力<0,动力,0),COLORGRAY;
PARTLINE(动力>REF(动力,1),0),COLORff,linethick2;
周j:FORCAST("KDJ13.j2#WEEK",13),PRECISION2;
周je:wma(周j,5),PRECISION2;
周k:ma("KDJ13.k2#WEEK",5),linethick,PRECISION2,colorFF8800;
周d:=ma("KDJ13.d2#WEEK",5),linethick,PRECISION2,color661ffd;
STICKLINE(周k<=周d,周k,周d,4,0),colorFF7700;STICKLINE(周k<=周d,周k,周d,3.5,0),colorFF8800;
STICKLINE(周k<=周d,周k,周d,3,0),colorFF9900;STICKLINE(周k<=周d,周k,周d,2.5,0),colorFFAA00;
STICKLINE(周k<=周d,周k,周d,2,0),colorFFBB00;STICKLINE(周k<=周d,周k,周d,1.5,0),colorFFCC00;
STICKLINE(周k<=周d,周k,周d,1,0),colorFFDD00;STICKLINE(周k<=周d,周k,周d,0.5,0),colorFFEE00;
STICKLINE(周k>周d,周k,周d,4,0),color131ffd;STICKLINE(周k>周d,周k,周d,3.5,0),color661ffd;
STICKLINE(周k>周d,周k,周d,3,0),COLOR5050FF;STICKLINE(周k>周d,周k,周d,2.5,0),COLOR5F5FFF;
STICKLINE(周k>周d,周k,周d,2,0),COLOR6C6CFF;STICKLINE(周k>周d,周k,周d,1.5,0),COLOR7E7EFF;
STICKLINE(周k>周d,周k,周d,1,0),COLOR9D9DFF;STICKLINE(周k>周d,周k,周d,0.5,0),COLORAFAFFF;
STICKLINE(周k>周d and 周k<=ref(周k,1),周k,(周d),4,0),COLORWHITE;
STICKLINE(周k<=周d and 周k>ref(周k,1),周d,(周k),4,0),COLORYELLOW;
diff:=ema(c,12)-ema(c,26);
DIFR:(diff-LLV(diff,9))/(HHV(diff,9)-LLV(diff,9))*100,ColorC080FF,PRECISION2;
PARTLINE(DIFR<REF(DIFR,1),DIFR),Color008080,LINETHICK1;
PARTLINE(周j<=REF(周j,1),周j),LINETHICK1,color009900;
PARTLINE(周j>REF(周j,1),周j),LINETHICK1,ColorFF;
PARTLINE(周je<=REF(周je,1),周je),LINETHICK1,colorFF9999;
PARTLINE(周je>REF(周je,1),周je),LINETHICK1,color99FF;
周金叉:IF(CROSS(周j,周k),0,-20),colorred;
DRAWTEXT(周金叉>-20,10,'周\n金'),colorred;
下面是引用指标:
{KDJ13}
RSV2:=(CLOSE-LLV(LOW,13))/(HHV(HIGH,13)-LLV(LOW,13))*100;
K2:SMA(RSV2,3,1);
D2:SMA(K2,3,1);
J2:3*K2-2*D2;
[url=http://www.70822.com/soft/sort013/sort02/down-5885.html]金牛KDJ指标[/url]