📄 ex321.asv
字号:
function Particle
% Particle filter
x = 0; % 初始状态
Q = 1; % 过程噪声协方差
R = 1; % 测量噪声协方差
tf = 50; % 仿真长度
N = 100; % 粒子滤波器粒子数
xhat = x;
P = 2;
xhatPart = x;
% 初始化粒子过滤器
N1=50;
for i = 1 : N1
xpart(i) = x + sqrt(P) * randn;
end
xArr = [x];
yArr = [x + sqrt(R) * randn];
xhatArr = [x];
PArr = [P];
xhatPartArr = [xhatPart];
close all;
for k = 1 : tf
% 系统仿真
x = 3*x + sqrt(Q) * randn;%状态方程
y = x + sqrt(R) * randn;%观测方程
% 卡尔曼滤波
F = 3;
P = F * P * F' + Q;
H = xhat ;
K = P * H' * inv(H * P * H' + R);
xhat = 3 * xhat ;%预测
xhat = xhat + K * (y - xhat);%更新
P = (1 - K * H) * P;
for i = 1 : N1
xpartminus(i) = 3 * xpart(i) + sqrt(Q) * randn;
ypart = xpartminus(i);
vhat = y - ypart;%观测和预测的差
q(i) = (1 / sqrt(R) / sqrt(2*pi)) * exp(-vhat^2 / 2 / R);
end
%正常化的可能性,每个先验估计
qsum = sum(q);
for i = 1 : N1
q(i) = q(i) / qsum;%归一化权重
end
% 重采样
for i = 1 : N1
u = rand; % 均匀随机数介于0和1
qtempsum = 0;
for j = 1 : N1
qtempsum = qtempsum + q(j);
if qtempsum >= u
xpart(i) = xpartminus(j);
break;
end
end
end
xhatPart = mean(xpart);
xArr = [xArr x];
yArr = [yArr y];
xhatArr = [xhatArr xhat];
PArr = [PArr P];
xhatPartArr = [xhatPartArr xhatPart];
x0=25;
xhat1 = x0;
xhatPart1 = x0;
% 初始化粒子过滤器
for i = 1 : N1
xpart1(i) = x0 + sqrt(P) * randn;
end
xArr1 = [x0];
yArr1 = [x0 + sqrt(R) * randn];
xhatArr1 = [x0];
xhatPartArr1 = [xhatPart1];
close all;
% 系统仿真
x1 = -3*x0 + sqrt(Q) * randn;%状态方程
y1 = x1+ sqrt(R) * randn;%观测方程
% 卡尔曼滤波
F1 = -3 ;
P1 = F1 * P * F1' + Q;
H1 = xhat;
K1 = P1* H1' * inv(H1 * P1 * H1' + R);
xhat1 = -3 * xhat1 ;%预测
xhat1 = xhat1 + K1 * (y1 - xhat1);%更新
P1 = (1 - K1 * H1) * P1;
for i = 1 : N
xpartminus1(i) = xpart1(i) + sqrt(Q) * randn;
ypart1 = xpartminus1(i);
vhat1 = y1 - ypart1;%观测和预测的差
vhat00=sqrt(y1.^2-ypart1.^2);
q1(i) = (1 / sqrt(R) / sqrt(2*pi)) * exp(-vhat1^2 / 2 / R);
end
%正常化的可能性,每个先验估计
qsum = sum(q1);
for i = 1 : N
q1(i) = q1(i) / qsum;%归一化权重
end
% 重采样
for i = 1 : N
u = rand; % 均匀随机数介于0和1
qtempsum = 0;
for j = 1 : N
qtempsum = qtempsum + q(j);
if qtempsum >= u
xpart1(i) = xpartminus1(j);
break;
end
end
xhatPart1 = mean(xpart1);
xArr1 = [xArr1 x1];
yArr1 = [yArr1 y1];
xhatArr1 = [xhatArr1 xhat1];
PArr = [PArr P];
xhatPartArr1 = [xhatPartArr1 xhatPart1];
t = 0 : tf;
if k == 20
end
end
figure;
plot(t, xArr, 'b.', t,xhatArr,'r',t, xhatPartArr, 'k-');
xlabel('time step'); ylabel('state');
legend('True state','KF', 'Particle filter estimate');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -