乘风获利KD(附图+用法+通达信源码)
-
相关简介:C/C++ Code 复制内容到剪贴板 {乘风获利KD} wl:=winner(c)*100; 获利:wl,colorred,LINETHICK0,PRECISION2; 浮筹:(WINNER(C*1.07)-WINNER(C*0.93))*85,colorFFFFFF,LINETHICK0,PRECISION2; rsvw:=(c-llv(l,55))/(hhv(h,55)-llv(l,55))*wl; wk:sma(rsvw,4,1),colorff2288,
-
文章来源:择股网作者:股海网发布时间:2009-09-29浏览次数:
C/C++ Code复制内容到剪贴板
- {乘风获利KD}
- wl:=winner(c)*100;
- 获利:wl,colorred,LINETHICK0,PRECISION2;
- 浮筹:(WINNER(C*1.07)-WINNER(C*0.93))*85,colorFFFFFF,LINETHICK0,PRECISION2;
- rsvw:=(c-llv(l,55))/(hhv(h,55)-llv(l,55))*wl;
- wk:sma(rsvw,4,1),colorff2288,LINETHICK0;
- wd:sma(wk,4,1),LINETHICK0,colorfff000;
- wj:3*wk-2*wd,Color00ffFF,LINETHICK0,PRECISION2;
- k:"kdj.k",colorffffff,LINETHICK0,PRECISION2;
- d:"kdj.d",LINETHICK0,Colorff00ff,PRECISION2;
- TYP_D:=(C+H+L)/3;
- CCIT1:=(MA(TYP_D,1)-MA(TYP_D,7))/(0.015*AVEDEV(TYP_D,7))/4;
- CCITK1:=SMA(CCIT1,3,1);
- CCITD1:=SMA(CCITK1,3,1);
- 势能:ema(3*CCITK1-2*CCITD1,3),Colorred,LINETHICK0,PRECISION2;
- FILLRGN(势能<0,势能,0),Color008080;
- FILLRGN(势能>0,势能,0),Color0000ff;
- FILLRGN(势能>9.9,if(势能>9.9,势能,10),10),Color00ffff;
- FILLRGN(势能<=-19.9,if(势能<=-19.9,势能,-20),-20),Color000999;
- FILLRGN(势能<=-19.9 and wl>50,if(势能<=-19.9,势能,-20),-20),Colorff00ff;
- FILLRGN(wk<=wd,wk,wd),Colorcc0000;
- FILLRGN(wk>wd,wk,wd),Color000888;
- STICKLINE(wl<50,wl,50,4,0),colorff6600;
- STICKLINE(wl<50,wl,50,3,0),colorff7700;
- STICKLINE(wl<50,wl,50,2,0),colorff8800;
- STICKLINE(wl<50,wl,50,1,0),colorff9900;
- STICKLINE(wl>50,wl,50,4,0),color2266ff;
- STICKLINE(wl>50,wl,50,3,0),color3377ff;
- STICKLINE(wl>50,wl,50,2,0),color4488ff;
- STICKLINE(wl>50,wl,50,1,0),color5599ff;
- STICKLINE(if(wl>75,wl,75)>75,if(wl>75,wl,75),75,4,0),color656500;
- STICKLINE(if(wl>75,wl,75)>75,if(wl>75,wl,75),75,3,0),color757500;
- STICKLINE(if(wl>75,wl,75)>75,if(wl>75,wl,75),75,2,0),color858500;
- STICKLINE(if(wl>75,wl,75)>75,if(wl>75,wl,75),75,1,0),color959500;
- STICKLINE(if(wl<25,wl,25)<25,if(wl<25,wl,25),25,4,0),color000066;
- STICKLINE(if(wl<25,wl,25)<25,if(wl<25,wl,25),25,3,0),color000077;
- STICKLINE(if(wl<25,wl,25)<25,if(wl<25,wl,25),25,2,0),color000088;
- STICKLINE(if(wl<25,wl,25)<25,if(wl<25,wl,25),25,1,0),color000099;
- STICKLINE(wl>50 and wl<75 and wl<ref(wl,1),wl,50,4,0),colorbbbbbb;
- STICKLINE(wl>50 and wl<75 and wl<ref(wl,1),wl,50,3,0),colorcccccc;
- STICKLINE(wl>50 and wl<75 and wl<ref(wl,1),wl,50,2,0),colordddddd;
- STICKLINE(wl>50 and wl<75 and wl<ref(wl,1),wl,50,1,0),coloreeeeee;
- STICKLINE(wl>=75 and wl>ref(wl,1),wl,75,4,0),color0000cc;
- STICKLINE(wl>=75 and wl>ref(wl,1),wl,75,3,0),color0000dd;
- STICKLINE(wl>=75 and wl>ref(wl,1),wl,75,2,0),color0000ee;
- STICKLINE(wl>=75 and wl>ref(wl,1),wl,75,1,0),color0000ff;
- STICKLINE(wl>25 and wl<50 and wl>ref(wl,1),wl,50,4,0),color00cccc;
- STICKLINE(wl>25 and wl<50 and wl>ref(wl,1),wl,50,3,0),color00dddd;
- STICKLINE(wl>25 and wl<50 and wl>ref(wl,1),wl,50,2,0),color00eeee;
- STICKLINE(wl>25 and wl<50 and wl>ref(wl,1),wl,50,1,0),color00ffff;
- STICKLINE(wl<=25 and wl<=ref(wl,1),wl,25,4,0),color886666;
- STICKLINE(wl<=25 and wl<=ref(wl,1),wl,25,3,0),color887777;
- STICKLINE(wl<=25 and wl<=ref(wl,1),wl,25,2,0),color888888;
- STICKLINE(wl<=25 and wl<=ref(wl,1),wl,25,1,0),color889999;
- STICKLINE(ref(wl,1)>98 and c>ref(c,1) and wl<ref(wl,1) and (c-llv(c,5))/llv(c,5)*100>20,wl,100,4,0),color00cc00;
- STICKLINE(ref(wl,1)>98 and c>ref(c,1) and wl<ref(wl,1) and (c-llv(c,5))/llv(c,5)*100>20,wl,100,3,0),color00dd00;
- STICKLINE(ref(wl,1)>98 and c>ref(c,1) and wl<ref(wl,1) and (c-llv(c,5))/llv(c,5)*100>20,wl,100,2,0),color00ee00;
- STICKLINE(ref(wl,1)>98 and c>ref(c,1) and wl<ref(wl,1) and (c-llv(c,5))/llv(c,5)*100>20,wl,100,1,0),color00ff00;
- PARTLINE(c,-20),Colorcccccc,LINETHICK1,LINEDOT;
- 势能,Colorred,LINETHICK1;
- PARTLINE(势能<ref(势能,1),势能),Colorff9999,LINETHICK1;
- wk,Colorff00FF,LINETHICK1;
- wd,Colorfff222,LINETHICk1;
- wj,Color00ff00,LINETHICk1,LINEDOT;
- k,colorffffFF,LINETHICK2;
- d,Color00ffff,LINETHICK2;
- 诱多:=((wl>ref(wl,1)*1.5 and wl-50>ref(sum(wl-50,3),1)) or wl>ref(wl,1)*2) and wl>79;
- DRAWICON(诱多,wl*1.01,5),ALIGN0;
- DRAWTEXTex(CLOSE,1,0,1,' 乘风获利KD'),align5,color00ffff;
C/C++ Code复制内容到剪贴板
- 通达信配色效果不太理想,将就下吧
- WL:=WINNER(C)*100;
- 获利:WL,COLORRED,LINETHICK0;
- 浮筹:(WINNER(C*1.07)-WINNER(C*0.93))*85,COLORFFFFFF,LINETHICK0;
- RSVW:=(C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*WL;
- WK:SMA(RSVW,4,1),COLORFF2288,LINETHICK0;
- WD:SMA(WK,4,1),LINETHICK0,COLORFFF000;
- WJ:3*WK-2*WD,COLOR00FFFF,LINETHICK0;
- K:"KDJ.K",COLORFFFFFF,LINETHICK0;
- D:"KDJ.D",LINETHICK0,COLORFF00FF;
- TYP_D:=(C+H+L)/3;
- CCIT1:=(MA(TYP_D,1)-MA(TYP_D,7))/(0.015*AVEDEV(TYP_D,7))/4;
- CCITK1:=SMA(CCIT1,3,1);
- CCITD1:=SMA(CCITK1,3,1);
- 势能:EMA(3*CCITK1-2*CCITD1,3),COLORRED,LINETHICK0;
- DRAWBAND(0,RGB(50,100,250),势能,RGB(150,200,250));
- DRAWBAND(10,RGB(100,100,100),IF(势能>10,势能,10),RGB(255,255,0));
- DRAWBAND(IF(势能<=-20,势能,-20),RGB(0,0,0),-20,RGB(100,60,100));
- DRAWBAND(WK,RGB(180,0,0),WD,RGB(0,150,150));
- STICKLINE(WL<50,WL,50,1.5,0),COLORFF8800;
- STICKLINE(WL>50,WL,50,1.5,0),COLOR4488FF;
- STICKLINE(IF(WL>75,WL,75)>75,IF(WL>75,WL,75),75,1.5,0),COLOR858500;
- STICKLINE(IF(WL<25,WL,25)<25,IF(WL<25,WL,25),25,1.5,0),COLOR000088;
- STICKLINE(WL>50 AND WL<75 AND WL<REF(WL,1),WL,50,1.5,0),COLORDDDDDD;
- STICKLINE(WL>=75 AND WL>REF(WL,1),WL,75,1.5,0),COLOR0000EE;
- STICKLINE(WL>25 AND WL<50 AND WL>REF(WL,1),WL,50,1.5,0),COLOR00EEEE;
- STICKLINE(WL<=25 AND WL<=REF(WL,1),WL,25,1.5,0),COLOR888888;
- STICKLINE(REF(WL,1)>98 AND C>REF(C,1) AND WL<REF(WL,1) AND (C-LLV(C,5))/LLV(C,5)*100>20,WL,100,1.5,0),COLOR00EE00;
- -20,COLORCCCCCC,LINETHICK1;
- 势能,COLORRED,LINETHICK1;
- IF(势能<REF(势能,1),势能,DRAWNULL),COLORFF9999,LINETHICK1;
- K,COLORFFFFFF,LINETHICK2;
- D,COLOR00FFFF,LINETHICK2;
- WK,COLORFF00FF,LINETHICK1;
- WD,COLORFFF222,LINETHICK1;
- WJ,COLOR00FF00,LINETHICK1;
- 诱多:=((WL>REF(WL,1)*1.5 AND WL-50>REF(SUM(WL-50,3),1)) OR WL>REF(WL,1)*2) AND WL>79;
- DRAWICON(诱多,85,2);
下载链接:( 说明:股海资源如需解压密码的请输入本站域名:www.guhai.com.cn请仔细输入!)
|