- 1、本文档共5页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
交互多模型滤波程序
% 参数设置
N = 100; %粒子总数
Q = 5; %过程噪声
R = 5; %测量噪声
T = 10; %测量时间
theta = pi/T; %旋转角度
distance = 80/T; %每次走的距离
WorldSize = 100; %世界大小
X = zeros(2, T); %存储系统状态
Z = zeros(2, T); %存储系统的观测状态
P = zeros(2, N); %建立粒子群
PCenter = zeros(2, T); %所有粒子的中心位置
w = zeros(N, 1); %每个粒子的权重
err = zeros(1,T); %误差
X(:, 1) = [50; 20]; %初始系统状态
Z(:, 1) = [50; 20] + wgn(2, 1, 10*log10(R)); %初始系统的观测状态
%初始化粒子群
for i = 1 : N
P(:, i) = [WorldSize*rand; WorldSize*rand];
dist = norm(P(:, i)-Z(:, 1)); %与测量位置相差的距离
w(i) = (1 / sqrt(R) / sqrt(2 * pi)) * exp(-(dist)^2 / 2 / R); %求权重
end
PCenter(:, 1) = sum(P, 2) / N; %所有粒子的几何中心位置
%%
err(1) = norm(X(:, 1) - PCenter(:, 1)); %粒子几何中心与系统真实状态的误差 figure(1); set(gca,FontSize,10);
hold on
plot(X(1, 1), X(2, 1), r., markersize,30) %系统状态位置
axis([0 100 0 100]);
plot(P(1, :), P(2, :), kx, markersize,5); %各个粒子位置
plot(PCenter(1, 1), PCenter(2, 1), b., markersize,25); %所有粒子的中心位置 legend(True State, Particles, The Center of Particles);
title(Initial State);
hold off
%%
%开始运动
for k = 2 : T
%模拟一个弧线运动的状态
X(:, k) = X(:, k-1) + distance * [(-cos(k * theta)); sin(k * theta)] + wgn(2, 1, 10*log10(Q)); %状态方程
Z(:, k) = X(:, k) + wgn(2, 1, 10*log10(R)); %观测方程
%粒子滤波
%预测
for i = 1 : N
P(:, i) = P(:, i) + distance * [-cos(k * theta); sin(k * theta)] + wgn(2, 1, 10*log10(Q)); dist = norm(P(:, i)-Z(:, k)); %与测量位置相差的距离
w(i) = (1 / sqrt(R) / sqrt(2 * pi)) * exp(-(dist)^2 / 2 / R); %求权重
end
%归一化权重
wsum = sum(w);
for i = 1 : N w(i) = w(i) / wsum;
end
%重采样(更新)
for i = 1 : N wmax = 2 * max(w) * rand; %另一种重采样规则
index = randi(N, 1);
while(wmax w(index)) wmax = wmax - w(index);
index = index + 1;
if index N index = 1;
end
end
P(:, i) = P(:, index); %得到新粒子
end
PCenter(:, k) = sum(P, 2) / N; %所有粒子的中心位置
%计算误差
err(k) = norm(X(:, k) - PCenter(:, k)); %粒子几何中心与系统真实状态的误差 figure(2);
set(gca,FontSize,12);
clf;
hold on
plot(X(1, k), X(2, k), r., markersize,50); %系统状态位置
axis([0 100 0 100]);
plot(P(1, :), P(2, :), k., markersize,5); %各个
文档评论(0)