Ex321.m
上传用户:shigeng
上传日期:2017-01-30
资源大小:122k
文件大小:2k
开发平台:

Matlab

  1. function Particle
  2. % Particle filter 
  3. x = 0.1; % 初始状态
  4. Q = 1; % 过程噪声协方差
  5. R = 1; % 测量噪声协方差
  6. tf = 50; % 仿真长度
  7. N = 100; % 粒子滤波器粒子数
  8. xhat = x;
  9. P = 2;
  10. xhatPart = x;
  11. % 初始化粒子过滤器
  12. for i = 1 : N
  13.     xpart(i) = x + sqrt(P) * randn;
  14. end
  15. xArr = [x];
  16. yArr = [x^2 / 20 + sqrt(R) * randn];
  17. xhatArr = [x];
  18. PArr = [P];
  19. xhatPartArr = [xhatPart];
  20. close all;
  21. for k = 1 : tf
  22.     % 系统仿真
  23.     x = 0.5 * x + 25 * x / (1 + x^2) + 8 * cos(1.2*(k-1)) + sqrt(Q) * randn;%状态方程
  24.     y = x^2 / 20 + sqrt(R) * randn;%观测方程
  25.      %  卡尔曼滤波
  26.     F = 0.5 + 25 * (1 - xhat^2) / (1 + xhat^2)^2;
  27.     P = F * P * F' + Q;
  28.     H = xhat / 10;
  29.     K = P * H' * inv(H * P * H' + R);
  30.     xhat = 0.5 * xhat + 25 * xhat / (1 + xhat^2) + 8 * cos(1.2*(k-1));%预测
  31.     xhat = xhat + K * (y - xhat^2 / 20);%更新
  32.     P = (1 - K * H) * P;
  33.    
  34.     for i = 1 : N
  35.         xpartminus(i) = 0.5 * xpart(i) + 25 * xpart(i) / (1 + xpart(i)^2) + 8 * cos(1.2*(k-1)) + sqrt(Q) * randn;
  36.         ypart = xpartminus(i)^2 / 20;
  37.         vhat = y - ypart;%观测和预测的差
  38.         q(i) = (1 / sqrt(R) / sqrt(2*pi)) * exp(-vhat^2 / 2 / R);
  39.     end
  40.     %正常化的可能性,每个先验估计
  41.     qsum = sum(q);
  42.     for i = 1 : N
  43.         q(i) = q(i) / qsum;%归一化权重
  44.     end
  45.     % 重采样
  46.     for i = 1 : N
  47.         u = rand; % 均匀随机数介于0和1
  48.         qtempsum = 0;
  49.         for j = 1 : N
  50.             qtempsum = qtempsum + q(j);
  51.             if qtempsum >= u
  52.                 xpart(i) = xpartminus(j);
  53.                 break;
  54.             end
  55.         end
  56.     end
  57.     xhatPart = mean(xpart);
  58.     xArr = [xArr x];
  59.     yArr = [yArr y];
  60.     xhatArr = [xhatArr xhat];
  61.     PArr = [PArr P];
  62.     xhatPartArr = [xhatPartArr xhatPart];
  63.     
  64. t = 0 : tf;
  65.     if k == 20   
  66.     end
  67. end
  68. figure;
  69. plot(t, xArr, 'b.', t,xhatArr,'r',t, xhatPartArr, 'x');
  70. set(gca,'FontSize',12); set(gcf,'Color','White'); 
  71. xlabel('time step'); ylabel('state');
  72. legend('True state','KF', 'Particle filter estimate');