24小时热门版块排行榜    

查看: 972  |  回复: 4

liguixiao

新虫 (初入文坛)

[求助] 求助 matlab 无味卡尔曼滤波程序哪里出错了

clear; clc;
%参数设置
a=0.5;
b=25;
c=8;
R=1;
Q=1;
N=50;
X(1)=0.1;
Y(1)=X(1)^3/200;
for i=1:N
X(i+1)=a*X(i)+b*(X(i)/(1+X(i)^2))+c*cos(1.2*i);
Y(i+1)=X(i+1)^3/200;
end
q=0.05;
P0=(X(1)*q)^2;
y=normrnd(Y,abs(Y)*q);
alpha=0.5;
belta=2;
kappa=0;
n=1;%为维数
W0=kappa/(n+kappa);%1代表维数为1
Wm(1)=W0/(alpha^2)+(1-1/(alpha^2));
Wc(1)=Wm(1)+(1+belta-alpha^2);
for l=2:3
    Wm(l)=(1-W0)/(2*alpha^2*n);
    Wc(l)=(1-W0)/(2*alpha^2*n);
end
Xukf=zeros(1,51);
Xukf(1)=X(1);
y1(1)=X(1)^3/200;
%UKF过程
for i=2:51
    xestimate= Xukf(i-1);
        P=P0;
    cho=(chol(alpha^2*(n+kappa)*P));
        xgamaP1=xestimate+cho;
        xgamaP2=xestimate-cho;
        Xsigma=[xestimate,xgamaP1,xgamaP2];
    for k=1:3
         Xsigmapre(k)=a*Xsigma(k)+b*(Xsigma(k)/(1+Xsigma(k)^2))+c*cos(1.2*(i-1));
    end
        xpred=0;
    for k=1:3
       xpred=xpred+Wm(k)*Xsigmapre(k);
    end
        ppred=0;  
    for k=1:3
       ppred=ppred+Wc(k)*(Xsigmapre(k)-xpred)*(Xsigmapre(k)-xpred);
    end
       ppred=ppred+Q;
      
       chor=(chol(alpha^2*(n+kappa)*ppred));
       XaugsigmaP1=xpred+chor;
       XaugsigmaP2=xpred-chor;
     Xaugsigma=[xpred XaugsigmaP1 XaugsigmaP2];
    for k=1:3  
       Ysigmapre(k)= Xaugsigma(k)^3/200;
    end
        ypred=0;        
    for k=1:3
       ypred=ypred+Wm(k)*Ysigmapre(k);
    end
   
    Pzz=0;
    for k=1:3
       Pzz=Pzz+Wc(k)*(Ysigmapre(k)-ypred)*(Ysigmapre(k)-ypred);
    end
    Pzz=Pzz+R;
   
        Pxy=0;
    for k=1:3
       Pxy=Pxy+Wc(k)*(Xaugsigma(k)-xpred)*(Ysigmapre(k)-ypred);
    end
   
    K=Pxy*inv(Pzz);                  
    P=ppred-K*Pzz*K';
    P0=P;
    xestimate=xpred+K*(Y(i)-ypred);  
    Xukf(i)=xestimate;
    y1(i)=xestimate^3/200;
end
    plot(0:N,y1,'b',0:N,Y,'r')
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

。。。。。。。。
2楼2013-10-17 11:08:14
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liguixiao

新虫 (初入文坛)

引用回帖:
2楼: Originally posted by baobiao007 at 2013-10-17 11:08:14
。。。。。。。。

这算什么,请阁下指教一下程序,阁下也是做无味卡尔曼滤波的吗
3楼2013-10-17 13:56:40
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

baobiao007

木虫 (职业作家)

中国特色

不懂这个东西。
我同意叔本华的观点,人们投身艺术和科学领域的强烈愿望之一就是逃离痛苦、残酷和枯燥无味的现实生活,逃离自己飘忽不定的七情六欲的桎梏。--爱因斯坦
4楼2013-10-17 15:34:52
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
5楼2015-12-09 15:31:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 liguixiao 的主题更新
信息提示
请填处理意见