新加坡胡姬酒店:kd系列

kd系列公式指标集合

本文来自：理想论坛 www.55188.com 作者：绝地苍狼 点击1595次

---

原文：http://www.55188.com/viewthread.php?tid=949958 {KD--雷达}
DRAWGBK(1,COLORRGB(168,0,66),COLORRGB(0,18,55),0),color10000;
RSV:=(c-llv(l,9))/(hhv(h,9)-llv(l,9))*100;{kdj}
k:=sma(rsv,3,1);
d:=sma(k,3,1);
rsv1:=(hhv(h,9.8)-c)/(hhv(h,9.8)-llv(l,9.8))*101;{kdj}   
kk:=sma(rsv1,3,1);
dd:=sma(kk,3,1);
jj:=3*kk-2*dd;  
扫→:jj,PRECISION2,COLORWHITE;
描→:k,PRECISION2,COLORGREEN;
标→:d,PRECISION2,COLORMAGENTA;
Va1:=REF(H,1)*1.1;
Va2:=H*1.1;
Va3:=(Va2*V+Va1*(CAPITAL-V))/CAPITAL;
Va4:=REF(L,1)*0.9;
Va5:=L*0.9;
Va6:=(Va5*V+Va4*(CAPITAL-V))/CAPITAL;
Va7:=EMA(Va3,30)-2;
VaA:=IF(C<=EMA(Va6,30),Va7,EMA(Va3,30));
低位雷达:if(VaA=Va7,20 ,00),POINTDOT,Color56FFA9,linethick1;
xw1:=if(jj>=100,100,if(jj<=0,0,jj));
drawtext(ref(xw1,1)=0 and xw1>0,100,'--顶'),colorwhite;
高位雷达:if(ref(xw1,1)=0 and xw1>0,80 ,110),POINTDOT,Color78FFFF,linethick1;
stickline(高位雷达=80,110,0,1,1),COLORYELLOW,linethick1,pointdot;//顶
drawicon(VaA=Va7,0,11);//低
drawicon(ref(xw1,1)=0 and xw1>0,115,12);//顶
x1:=(cross(80,xw1) or cross(85,xw1)) and count(VaA=Va7,3)>=1;
drawtext(FILTER(x1,5),50,'-反弹'),COLORMAGENTA;//低
stickline(x1,0,0,4,1),COLORMAGENTA,linethick2;
drawicon( x1,0,11);//低
drawicon( x1,0,11);//低
stickline(x1,110,0,1,1),COLORGREEN,linethick1,pointdot;//反弹
y1:=HHVBARS(high ,89);
y2:=sum(vol/capital,y1);
y3:=sum(EMA(C,1),y1);
y4:=sum(vol/capital,2*y1);
y5:=sum(EMA(C,1),2*y1);
DPZX1:=IF(CAPITAL>0,y2,y3);
DPZX2:=IF(CAPITAL>0,y4,y5);
顶:=(DPZX1-DPZX2);
y6:=llvbars(low,89);
y7:=sum(vol/capital,y6);
y8:=sum(EMA(C,1),y6);
y9:=sum(vol/capital,2*y6);
y10:=sum(EMA(C,1),2*y6);
DPZX3:=IF(CAPITAL>0,y7,y8);
DPZX4:=IF(CAPITAL>0,y9,y10);
底:=(DPZX4-DPZX3),PRECISION2,LINETHICK0,Color00FF00;
stickline(底=0,110,0,1,1),COLORGREEN,linethick1,pointdot;//反弹
VERTLINE(顶=0),COLORRED,POINTDOT;//大顶
drawicon(顶=0,115,10);//顶
aa1:=(3*c+l+o+h)/6;
bb1:=wma(c,5);
ab1:=wma(c,8);
ab2:=ema(bb1,3);
ab3:=ema(ab1,10);
ab4:=ema(amount,1)/ema(v,1)/100;
ab5:=if(1,dma(ab2,ab4),0);
ab6:=if(1,dma(ab3,ab4),0);
ab7:=2*(ab5-ab6)*100;
ab8:=ema(ab7,2);
ab9:=if(c<800,ema(ab7,2),if(c>800,ema(ab7,2)/100,0));
強弱級:if(ab9>=100,6,if(ab9>=80 and ab9<100,5,
if(ab9>=60 and ab9<80,4,if(ab9>=40 and ab9<60,3,
if(ab9>=20 and ab9<40,2,if(ab9>=0 and ab9<20,1,
if(ab9<0 and ab9>=-30,-1,if(ab9<-30 and ab9>-60,-2,
if(ab9<-60 and ab9>-100,-3,
if(ab9<-100,-4,0)))))))))),linethick0,COLORCYAN;

IF(CROSS(k,jj),0,50),POINTDOT,Color0089FF;
drawtext(FILTER(CROSS(k,jj),10),0,'-金叉'),COLORRED;
drawicon(CROSS(k,jj),0,4);//金叉



{KD看盘}
DRAWGBK(DATE>900101,COLORRGB(0,150,130),COLORRGB(0,0,0),1);
RSV:= (HHV(H,11)-C)/(HHV(H,11)-LLV(L,11))*100;
S1:SMA(RSV,3,1),ColorFFFF00;
S2:SMA(S1,3,1),ColorFF0000;
x1:=LLV(L,5);
x2:=HHV(H,10);
QS:EMA((C-x1)/(x2-x1)*4,4)*50,ColorFF00FF;
50,LINEDOT,Color00FFFF;
100,LINEDOT,Color00FF00;




{KD长}
REFLINE: 0, 20, 50, 80, 100;
DRAWGBK(DATE>900101,COLORRGB(50,50,50),COLORRGB(0,0,0),1);
RSV:=(C-LLV(L,49))/(HHV(H,49)-LLV(L,49))*100;{kdj变型的摆动线}
日:SMA(RSV,100,99),colorwhite;{kdj变型的K线}
季:SMA(日,49,1),Color567A89; {移动平均线}
半:SMA(日,120,1),Color009C00;{移动平均线}
年:SMA(日,250,1),Color9800E9;{移动平均线}
20,POINTDOT,colorblue;
50,POINTDOT,Color00FF00;
80,POINTDOT,colorblue;
100,POINTDOT,Color0000FF;
0,POINTDOT,Color00FFE2;


{KD中}
DRAWGBK(DATE>900101,COLORRGB(0,150,130),COLORRGB(0,0,0),1);
xx1:=EMA(EMA(C,5),5);
xx2:=HHV(MA(H,13),13);
xx3:=(H+L+O+2*C)/5;
xx4:=REF(xx3,1);
xx5:=SMA(MAX(xx3-xx4,0),10,1)/SMA(ABS(xx3-xx4),10,1)*100;
xx6:=FILTER(IF(COUNT(xx5<20,5)>=1 AND COUNT(xx3=LLV(xx3,10),10)>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0),5);
xx7:=FILTER(xx1>REF(xx1,1)AND xx2REF(C,1),11);
xx8:=REF(CLOSE,1);
xx9:=SMA(MAX(C-xx8,0),6,1)/SMA(ABS(C-xx8),6,1)*100;
STICKLINE(xx6,-20,60,4,1),colorred;
DRAWTEXT(xx6,58,'追'),colorred;
STICKLINE(xx7,-20,40,4,1),ColorFFFF00;
DRAWTEXT(xx7,38,' 追涨'),ColorFFFF00{,ALIGN2--向前移};
STICKLINE(CROSS(84,xx9),120,60,4,1),Color65EE0E;
DRAWTEXT(CROSS(84,xx9),112,'逃'),ALIGN2,Color65EE0E;
STICKLINE(CROSS(82,xx9),120,90,4,1),COLORYELLOW;
DRAWTEXT(CROSS(82,xx9),112,' 顶 '),COLORYELLOW;
Var2:=EMA(xx3,23);{23日kdj}
Var3:=STD(xx3,23);
Var4:=(xx3-Var2)*100/Var3;
K:(EMA(Var4,23)+100)/2-3,colorred;
D:sma(K,5,1),COLORYELLOW;
J:3*K-2*D,COLORMAGENTA;
x1:=SUM(C*V*100,28)/SUM(V*100,28);
x2:=INTPART(x1*100)/100;
x3:=EMA(C,5)-EMA(C,10);
x4:=REF(EMA(x3,9),1);
x5:=EMA(x3,9)-x4;
x6:=x3-REF(x3,1);
找黑马:=IF(O<=MA(C,5) AND O<=MA(C,10) AND O<=MA(C,30) AND C>=MA(C,5) AND C>=x2 AND x5>0 AND x6>0,70,0){,Color0095FF};
DRAWICON(找黑马>0,88,4);
DRAWTEXT(找黑马 ,88,'  找黑马'),ALIGN2,Color0000FF;
STICKLINE(找黑马,0,98,4,0),Color0000FF;
⑥:=c>DMA(C,V/CAPITAL*34/100);
强势区:IF(⑥,120,-20),ColorECF0F6;
PARTLINE(KPARTLINE(DPARTLINE(JZDD1:=(HHV(HIGH,21)-CLOSE)/(HHV(HIGH,21)-LLV(LOW,21))*100-10;
ZDD2:=(CLOSE-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
ZDD3:=SMA(ZDD2,13,8);
ZDD4:=CEILING(SMA(ZDD3,13,8));
ZDD5:=SMA(ZDD1,21,8);
爆点:=(llv(l,3)=llv(l,60) and c/ref(c,1)>=1.04);
STICKLINE(爆点>0,-20,35,2,0),Color2109B9;
DRAWICON(爆点>0,30,7);
DRAWTEXT(爆点,28,'  爆点'),ALIGN2,Color2109B9;
120,POINTDOT,Color29A929;
-20,POINTDOT,Color00FF00;



J三次翻红是买点
{KD短}
input:n(44,1,100),n1(50,1,100);
DRAWGBK(1, COLORRGB(100,50,0), COLORRGB(100,100,0),0);
RSV:=(C-LLV(L,23))/(HHV(H,23)-LLV(L,23))*100;{23天摆动曲线}
上:=SMA(SMA(RSV,3,1),3,1);{k值的再平滑}
下:=EMA(上,5);
FILLRGN(上>=下,上,下),ColorF16FF1;
FILLRGN(上<=下,上,下),ColorA9FFA9{,Color00FF00};
⑥:=c>DMA(C,V/CAPITAL*34/100);
强区:IF(⑥,120,-20),Color567A89;
R:=(C-LLV(L,45))/(HHV(H,45)-LLV(L,45))*100;{K值的参数乘以5来替代周线的K值}
周Ｋ:SMA(R,15,5),LINETHICK2,Color008900;
{为什么ZK＜20的个股不能操作？
因为，如果周线的K值能够小于20，则说明此处是一个大周期（至少是周线周期）的底部。
大周期的底部一般会是个复杂的底部，不会很快反转。而在这个复杂底部构筑的过程中，
J第5次翻红都不一定会有操作机会。}
RSVK:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;{kdj}
KK:=SMA(RSVK,3,1);
DK:=SMA(KK,3,1);
JK:=3*KK-2*DK;
顶:=JK<120 AND JK>98 AND JK>REF(JK,1);
DRAWTEXT(顶,104 ,' !'),Color00FF00;
DRAWTEXT(FILTER(顶,10),100,' 警惕'),ALIGN2,Color00FF00;
Vv1:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;{kdj}
k:SMA(Vv1,3,1),ColorEE00E2;
D:SMA(k,3,1),Color00ECEE;
J:3*k-2*D,Color0000FF;
角度:atan(j-ref(j,1))*180/3.1416,LINETHICK0,ColorF5F6FF;
{为什么要在J出现二次、三次翻红买进？
假设主力的打压是需要成本的，同时主力的成本是有限的，如果你买进的位置又
是相对底部，那么，第一次翻红的可信度就没有后面两次的大。
第一次出现信号为有效信号的概率是1/3；
第二次出现信号为有效信号的概率是1/2；（只有在首次信号为无效信号时才会出现二次信号。）
第三次出现信号为有效信号的概率是1；（请注意，第三次信号出现的概率为1/3。）}
{为什么要选"前期要有一段强劲走势"的个股？
因为这一类个股后面的短线机会多，该定式的出发点是做强劲走势的余波，所以前面的
启动浪、推动浪要强才好。}
{为什么回调最好要有50％以上的幅度？
底部一般在66％、62％、50％、38％，这些都是常见的百分比回撤支撑位，
经验表明幅度在50％以上的回撤出现机会的概率较大。}
A:=(5-HHVBARS(H,5))/5*100;
B:=(5-LLVBARS(L,5))/5*100;
P:=(25-HHVBARS(H,25))/25*100;
Q:=(25-LLVBARS(L,25))/25*100;
卖:=ref(P,1)=ref(A,1) and ref(A,1)=100 and (A and P)<100 and Q<=n{40} and B<=n1{50};
高点:STICKLINE(卖>0,103,105,4,1),ColorFFFF00;
买:=ref(Q,1)=ref(B,1) and ref(B,1)=100 and (B and Q)<100 and P<=40 and A<=50;
低点:STICKLINE(买>0,-18,-22,4,1),Color0078FF;
100,POINTDOT,ColorDDD6FF;
20,POINTDOT,Color29A929;
-20,POINTDOT,ColorFFFF00;                       
PARTLINE(J>ref(J,1),J),Color0000F6;
PARTLINE(J


{KD波段}
DRAWGBK(DATE>900101,COLORRGB(20,20,20),COLORRGB(0,0,0),1);
input:N(44,1,100);
x1:=(h+l+c*2)/4;
波段:ema((x1-llv(l,34))/(hhv(h,34)-llv(l,34))*100,9),PRECISION2,LINETHICK1,colorred;
x2:=ema(0.667*ref(波段,1)+0.333*波段,2);
fillrgn(x2>80,x2,80),Color6F85FF;//超买区
fillrgn(波段<20,波段,20),Color006800;//超卖区
FILLRGN(波段>x2,波段,x2),colorred;//上涨区
FILLRGN(波段SK:ema((x1-llv(l,34))/(hhv(h,34)-llv(l,34))*100,31),PRECISION2,colorwhite;
RSI:SMA(MAX(C-REF(C,1),0),6,1)/SMA(ABS(C-REF(C,1)),6,1)*100,PRECISION2,ColorFF7D7D;

XL1:= EMA(((2*C+H+L)/4-LLV(L,34))/(HHV(H,34)-LLV(L,34))*100,13);
XL2:=c/ref(c,1)>1.048 and c=h
and between(forcast(V,4),0.2*forcast(v,12),2.1*forcast(v,12));
拉升？: IF(filter(XL2,28),25,20),coloryellow;
进仓？: IF(CROSS(XL1,EMA(0.667*REF(XL1,1)+0.333*XL1,2))
         AND XL1<40,25,20),colorred;
XL3:=((HHV(H,21)-C)/(HHV(H,21)-LLV(L,21)))*100-10;
XL4:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
XL5:=SMA(XL4,13,8);
XL6:=SMA(XL3,21,8);
XL7:=CEILING(SMA(XL5,13,8));
减仓？: IF((XL7-XL6>85),75,80),colorgreen;
DRAWICON(filter(减仓？=75,20),83,11);
DRAWICON(filter(进仓？=25,2),22,10);
DRAWICON(filter(拉升？=25,2),22,12);
20,Color0089FF;




{KD多周期}
DRAWGBK(DATE>900101,COLORRGB(0,150,130),COLORRGB(0,0,0),1);
input:n(9,1,100),m1(3,2,40),m2(3,2,40);
RSV1:=(C-LLV(L,N))/(HHV(H,N)-LLV(L,N))*100;
rK:SMA(RSV1,M1,1);
rD:SMA(rK,M2,1);
yy:=if(DATATYPE=6,weekday,if(DATATYPE=7,day,MONTH));
tj:=(yy-ref(yy,1)<>datediff(ref(date,1),date)) or barpos=1;
wtj:=refx(tj,1);  
hn:=sumbars(tj,n);
n0:=lbound(hn);
nn:=if(barposRSV:=(CLOSE-LLV(LOW,nN))/(HHV(HIGH,nN)-LLV(LOW,nN))*100;
wk:=0;
wd:=0;
for i=n0 to datacount do begin
  if wtj[i] then begin
    wk:=(rsv[i]+(m1-1)*wk)/m1;
    wd:=(wk+(m2-1)*wd)/m2;
    k[i]:=wk;
    d[i]:=wd;
  end else begin
    k[i]:=(rsv[i]+(m1-1)*wk)/m1;
    d[i]:=(k[i]+(m2-1)*wd)/m2;
  end;
end;
zyk:k;
zyd:d;



{KD强弱}
Qr1:=SMA((C-LLV(L,10))/(HHV(H,10)-LLV(L,10))*100,4,1);
Qr2:=SMA((C-LLV(L,14))/(HHV(H,14)-LLV(L,14))*100,4,1);
Qr3:=SMA((C-LLV(L,15))/(HHV(H,15)-LLV(L,15))*100,4,1);
K:SMA((Qr1-50)*2,3,1),COLORWHITE;
D:(SMA((Qr3-50)*(2),3,1)+SMA((Qr2-50)*(2),3,1))/2,PRECISION2,COLORYELLOW;
J:3*(Qr3-50)*2-2*SMA((Qr3-50)*2,3,1),PRECISION2,COLORMAGENTA;
RS:=SMA(MAX(C-REF(C,1),0),14,1)/SMA(ABS(C-REF(C,1)),14,1)*100;
ZD:= EMA(EMA(EMA(RS,7),3),3);
ZD1:=(ZD-REF(ZD,1))/REF(ZD,1)*1000,PRECISION2,colorstick;
STICKLINE(ZD1>0,ZD1*1.6,0,1,0),COLORRED;
STICKLINE(ZD1<0,ZD1*1.6,0,1,0),COLORCYAN;



{KD-K线}
input:m(9,1,100),n(3,1,50),m2(3,1,50);
u:=(HHV(H,m)-LLV(L,m))/100;
Rc:=(C-LLV(L,m))/u;
Rh:=(h-LLV(L,m))/u;
Ro:=(o-LLV(L,m))/u;
RL:=(L-LLV(L,m))/u;
Kc:SMA(Rc,n,1),LINETHICK1,COLORWHITE;
Ko:(ro+(N-1)*ref(kc,1))/N,LINETHICK0,COLORMAGENTA;
KL:(rL+(N-1)*ref(kc,1))/N,LINETHICK0,COLORGREEN;
Kh:(rh+(N-1)*ref(kc,1))/N,LINETHICK0,COLORRED;
STICKLINE(kc>ko or (kc=ko and kc>=ref(kc,1)),kh,kL,0.1,0),COLORMAGENTA;
STICKLINE(kc>ko or (kc=ko and kc>=ref(kc,1)),kc,ko,5,1),COLORMAGENTA;
STICKLINE(kcSTICKLINE(kcPARTLINE(1,kc),COLORWHITE;
Dc:SMA(Kc,M2,1),COLORYELLOW;