把大智慧和飛狐的都帖在這里吧,大家好找!
請“唐仁政老師”不要生氣哦!
大智慧的動力KDJ原碼:
var1:=ma(c,20);
布林極限:=100*(c-var1)/std(c,20);
布林值:=ema(布林極限,10);
var2:=ema(布林極限,5);
var3:=ema(布林值,5);
stickline(布林極限>=布林值,100,102,8,0),color0000ff;
stickline(布林極限<=布林值,100,102,8,0),colorff0000;
stickline(var2>=var3,102,104,8,0),color00ffff;
stickline(var2<var3,102,104,8,0),colorff0000;
var1k:=(l+h+2*c)/4;
var2k:=ref(var1k,1);
var3k:=sma(var1k-var2k,6,1)/sma(abs(var1k-var2k),6,1)*100;
mms:=ma(var3k,1)+50;
mmm:=ema(mms,8);
mml:=ema(mms,24);
mmc:=ema(mmm,40);
stickline(mms>=100,105,107,10,0),colorffffff;
drawicon(ref(mms,1)>=100 and mms<100,100,3);
drawtext(ref(mms,1)>=100 and mms<100,90,'--m');
stickline(mms<0,40,50,6,0),color00ff00;
mav:=(c*2+h+l)/4;
sk:=ema(mav,1)-ema(mav,40);
sd:=ema(sk,5);
b:=(sk-sd)*100;
t:=(c-llv(1.02*l,20))/(hhv(h,20)-llv(l,20))*100;
q1:=(hhv(h,13)-c)/(hhv(h,13)-llv(l,13))*120;
賣:=if(q1>100,100,q1);
買:=if(t>100,100,if(t<0,0,t));
a:=(hhv(h,5)-c)/(hhv(h,5)-llv(l,5))*20;
a1:=(3*a-2*sma(a,3,1))*1;
短線阻力:=if(a1>100,100,if(a1<-5,-5,a1));
短線能量:=if(b<-20,-20,if(b>100,100,b));
stickline(短線能量>=短線阻力,0,短線能量+10,6,0),color0000ff;
stickline(短線能量>=短線阻力 and 短線能量-ref(短線能量,1)<0,0,短線能量/2+10,6,0),color00ff00;
stickline(短線能量<短線阻力,0,短線能量+10,6,0),colorff0000;
bias1w:=(c-ma(c,6))/ma(c,6)*100;
bias2w:=(c-ma(c,12))/ma(c,12)*100;
bias3w:=(c-ma(c,24))/ma(c,24)*100;
mm:=(bias1w+2*bias2w+3*bias3w)/6;
mn:=ma(mm,3);
stickline(mn<gll,-10,-15,6,0),color00ff00;
stickline(mn<-9,-10,-15,6,0),color0000ff;
stickline(mn<-12,-10,-15,6,0),color00ffff;
20,pointdot,Linethick3;
80,pointdot,Linethick3;
rsv:=(c-llv(l,9))/(hhv(h,9)-llv(l,9))*100;
k:sma(rsv,3,1),colorff0000;
d:sma(k,3,1),colorff0000;
j:3*k-2*d,color00ff00;
drawicon(cross(j,d) and d<=20,18,1);
{partline(j,j<k,RGB(0,255,255),j>k,RGB(255,255,0));,colorffff00;}
{partline(j>k,j),color00ffff;}
{partline(j,j>k and j<ref(j,1),RGB(0,255,0));
partline(k,j>k,RGB(255,0,0));
partline(k,j>k and k<ref(k,1),RGB(0,255,0));
partline(d,j>k,RGB(0,255,0)),color00ff00; }
0,color00ff00;
lc:=ref(c,1);
rsi1:=sma(max(c-lc,0),6,1)/sma(abs(c-lc),6,1)*100;
drawicon(cross(76,rsi1),110,2);
drawtext(cross(76,rsi1),120,'--r');
飛狐的動力KDJ源碼:
input: gll(-12,-20,10);
var1:=ma(c,20);
布林極限:=100*(c-var1)/std(c,20);
布林k值:=ema(布林極限,10);
var2:=ema(布林極限,5);
var3:=ema(布林k值,5);
stickline(布林極限>=布林k值,100,102,8,0),colorff;
stickline(布林極限<=布林k值,100,102,8,0),colorff0000;
stickline(var2>=var3,102,104,8,0),colorffff;
stickline(var2<var3,102,104,8,0),colorff0000;
var1k:=(l+h+2*c)/4;
var2k:=ref(var1k,1);
var3k:=sma(var1k-var2k,6,1)/sma(abs(var1k-var2k),6,1)*100;
mms:=ma(var3k,1)+50;
mmm:=ema(mms,8);
mml:=ema(mms,24);
mmc:=ema(mmm,40);
stickline(mms>=100,105,107,10,0),colorffffff;
drawicon(ref(mms,1)>=100 and mms<100,100,9);
drawtext(ref(mms,1)>=100 and mms<100,90,'--m');
stickline(mms<0,40,50,6,0),colorff00;
mav:=(c*2+h+l)/4;
sk:=ema(mav,1)-ema(mav,40);
sd:=ema(sk,5);
b:=(sk-sd)*100;
t:=(c-llv(1.02*l,20))/(hhv(h,20)-llv(l,20))*100;
q1:=(hhv(h,13)-c)/(hhv(h,13)-llv(l,13))*120;
賣:=if(q1>100,100,q1);
買:=if(t>100,100,if(t<0,0,t));
a:=(hhv(h,5)-c)/(hhv(h,5)-llv(l,5))*20;
a1:=(3*a-2*sma(a,3,1))*1;
短線阻力:=if(a1>100,100,if(a1<-5,-5,a1));
短線能量:=if(b<-20,-20,if(b>100,100,b));
stickline(短線能量>=短線阻力,0,短線能量+10,6,0),colorff;
stickline(短線能量>=短線阻力 and 短線能量-ref(短線能量,1)<0,0,短線能量/2+10,6,0),colorff00;
stickline(短線能量<短線阻力,0,短線能量+10,6,0),colorff0000;
bias1w:=(c-ma(c,6))/ma(c,6)*100;
bias2w:=(c-ma(c,12))/ma(c,12)*100;
bias3w:=(c-ma(c,24))/ma(c,24)*100;
mm:=(bias1w+2*bias2w+3*bias3w)/6;
mn:=ma(mm,3);
stickline(mn<gll,-10,-15,6,0),colorff00;
stickline(mn<-9,-10,-15,6,0),colorff;
stickline(mn<-12,-10,-15,6,0),colorffff;
20,pointdot,Linethick3;
80,pointdot,Linethick3;
rsv:=(c-llv(l,9))/(hhv(h,9)-llv(l,9))*100;
k:sma(rsv,3,1),colorff0000;
d:sma(k,3,1),colorff0000;
j:3*k-2*d,colorff00;
drawicon(cross(j,d) and d<=20,18,12);
partline(j<k,j),colorffff00;
動力kdj:partline(j>k,j),colorffff;
partline(j>k and j<ref(j,1),j),colorff00;
partline(j>k,k),colorff;
partline(j>k and k<ref(k,1),k),colorff00;
partline(j>k,d),colorff00;
0,colorff00;
lc:=ref(c,1);
rsi1:=sma(max(c-lc,0),6,1)/sma(abs(c-lc),6,1)*100;
drawicon(cross(76,rsi1),110,9);
drawtext(cross(76,rsi1),120,'--r');
[ Last edited by 炒著玩 on 2005-4-12 at 15:18 ]
本站僅提供存儲服務,所有內容均由用戶發布,如發現有害或侵權內容,請
點擊舉報。