把CCI,KDJ,RSI三个经典叠加到主图上.没什么特别你看好就下载
-
相关简介:把CCI,KDJ,RSI三个经典叠加到主图上.没什么特别你看好就下载.下面是叠加KDJ的源码,请你参考.你会编辑可以自己来做的.其他都放在压缩软件里了.都是源码---------还得加一句:祝你端午节 阖家欢乐.节后发财----------- 你下载的【REFX.DLL】文件就放在大智慧的文件夹里就可以了.没有这个DLL文件就不会显示那个【买卖的粗线】也就少了个你买卖的参考. DRAWGBKlast(c0,strip(RGB(0,0,80),RGB(0,20,20),0)); X:=BARSLA
-
文章来源:股海网作者:股海网发布时间:2016-06-12浏览次数:
把CCI,KDJ,RSI三个经典叠加到主图上.没什么特别你看好就下载.下面是叠加KDJ的源码,请你参考.你会编辑可以自己来做的.其他都放在压缩软件里了.都是源码---------还得加一句:祝你端午节 阖家欢乐.节后发财-----------
你下载的【REFX.DLL】文件就放在大智慧的文件夹里就可以了.没有这个DLL文件就不会显示那个【买卖的粗线】也就少了个你买卖的参考.
DRAWGBKlast(c>0,strip(RGB(0,0,80),RGB(0,20,20),0));
X:=BARSLAST(DISPSTATUS=1)+1;
DRAWTEXTABS(600,10,'■叠加KDJ现在可见K线:【'+NUMTOSTRN(X,0)+'天】'),Color00FFFF,LINETHICK3;
流通盘大小:=FINANCE2(37)/1000000*100;
DRAWTEXTABS(30,15,'▓流通盘:---◆'+NUMTOSTRN(流通盘大小,2)+'亿◆---'+''),LINETHICK3,COLOR00ffff;
每股收益:=FINANCE2(3);
每股市盈率:=DYNAINFO(39);
每股净资产:=FINANCE2(4);
销售毛利率:=FINANCE2(12);
主营收入同比:=FINANCE2(11);
净利润同比增长:=FINANCE2(10);
DRAWTEXTABS(160,35,'★每股收益:'+NUMTOSTRN(每股收益,2)+'元'),COLOR00FF00;
DRAWTEXTABS(160,50,'★每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),COLORRED;
DRAWTEXTABS(160,65,'★每股净资产:'+NUMTOSTRN(每股净资产,2)+'元'),COLOR0099FF;
DRAWTEXTABS(2,35,'★销售毛利率:'+NUMTOSTRN(销售毛利率,1)+'%'),LINETHICK1,COLOR0099FF;
DRAWTEXTABS(2,50,'★主营收入同比增长:'+NUMTOSTRN(主营收入同比,1)+'%'),LINETHICK1,ColorYELLOW;
DRAWTEXTABS(2,65,'★净利润同比增长:'+NUMTOSTRN(净利润同比增长,1)+'%'),LINETHICK1,COLOR00FF00;
{-------K线变色-------}
{K线变色}
STICKLINE(CLOSE>=OPEN,OPEN,LOW,0.5,0 ),COLOR0000ff,LAYER0;
STICKLINE(CLOSE>=OPEN,CLOSE,HIGH,0.5,0 ),COLOR0000ff,LAYER0;
STICKLINE(CLOSE<OPEN,OPEN,LOW,0.5,0 ),COLOR00ff00,LAYER7;
STICKLINE(CLOSE<OPEN,CLOSE,HIGH,0.5,0 ),COLOR00ff00,LAYER7;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR002200;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR004400;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR006600;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00DD00;
STICKLINE(close>open,close,open,8,0) ,COLORFF00FF;
STICKLINE(close>open,close,open,7,0) ,COLORFF22FF;
STICKLINE(close>open,close,open,6,0) ,COLORFF44FF;
STICKLINE(close>open,close,open,5,0) ,COLORFF66FF;
STICKLINE(close>open,close,open,4,0) ,COLORFF88FF;
STICKLINE(close>open,close,open,3,0) ,COLORFF99FF;
STICKLINE(close>open,close,open,2,0) ,COLORFFAAFF;
STICKLINE(close>open,close,open,1,0) ,COLORFFBBFF;
STICKLINE(close>open,close,open,0,0) ,COLORFFBBFF;
{【卖买】------卖买轨道------}
PC:=FORCAST((2*C+H+L)/4,5);
P:=HHVALL(BARPOS)-BARPOS+1;
KN:=7; {----------099引 KN:=7;-----------}
S卖:IF(P=1,"REFX@REFX"(MA(PC,KN/2+1),KN/2),
IF(P=2 AND KN>1,"REFX@REFX"(MA(PC,KN/2+2),KN/2),
IF(P=3 AND KN>4,"REFX@REFX"(MA(PC,KN/2+3),KN/2),
IF(P=4 AND KN>6,"REFX@REFX"(MA(PC,KN/2+4),KN/2),
IF(P=5 AND KN>8,"REFX@REFX"(MA(PC,KN/2+5),KN/2),
IF(P=6 AND KN>10,"REFX@REFX"(MA(PC,KN/2+6),KN/2),
IF(P=7 AND KN>12,"REFX@REFX"(MA(PC,KN/2+7),KN/2),
IF(P=8 AND KN>14,"REFX@REFX"(MA(PC,KN/2+8),KN/2),"REFX@REFX"(MA(PC,KN),(KN+1)/2-1))))))))),COLORff9900,LINETHICK2,LAYER6;
PARTLINE(S卖 ,S卖>REF(S卖,1),RGB(255,0,0)),LINETHICK4,LAYER0;
{【A】以下计算叠加比和叠加平移量}
{1、叠加区域高度}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
kh:=hhv(h,X);
kL:=LLv(L,X);
rh:=hhv(J,X);
rL:=LLv(J,X);
{2、叠加比}
br:=(kh-kL)/(rh-rL);
{3、叠加平移量}
wk:=(kh-kL);
wr:=(kh+kL-(rh+rL)*br)/2;
{【B】叠加KDJ线}
K线:=K*br+wr;
D线:=D*br+wr;
J线:J*br+wr,Color0044FF;
PARTLINE(K线,(K线>REF(K线,1))-1,rgb(0,255,100),1,rgb(255,0,0)),LINETHICK2,LAYER0;
PARTLINE(D线,(D线>REF(D线,1))-1,rgb(0,255,100),1,rgb(255,0,0)),LINETHICK2,LAYER0;
FILLRGN(D线,K线,D线>K线,RGB(0,100,50),D线<K线,RGB(80,0,80)),LAYER7;
{【B】叠加大盘J线}
大盘RSV:=(INDEXC-LLV(INDEXL,9))/(HHV(INDEXH,9)-LLV(INDEXL,9))*100;
大盘K:=SMA(大盘RSV,3,1);
大盘D:=SMA(大盘K,3,1);
大盘J:=3*大盘K-2*大盘D;
大盘KDJ:大盘J*br+wr,Color00FFDD,DOTLINE,LAYER0;