本文来自:理想论坛 www. 作者:绝地苍狼 点击1595次 原文:http://www./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 xx2<REF(xx2,1)AND C>REF(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(K<D,K),ColorFFA8A9; PARTLINE(D<REF(D,1),D),ColorFF3A65; PARTLINE(J<D,J),colorcyan; ZDD1:=(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值} 周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<ref(J,1),J),ColorFF3A65; {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(波段<x2,波段,x2),colorgreen;//下跌区 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(barpos<n0,barpos,hn); RSV:=(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(kc<ko or (kc=ko and kc<ref(kc,1)),kh,kL,0.1,0),COLORGREEN; STICKLINE(kc<ko or (kc=ko and kc<ref(kc,1)),kc,ko,5,0),COLORGREEN; PARTLINE(1,kc),COLORWHITE; Dc:SMA(Kc,M2,1),COLORYELLOW; |
|