# Kalman Filtering

This case study illustrates Kalman filter design and simulation. Both steady-state and time-varying Kalman filters are considered.

## Contents

## Overview of the Case Study

This case study illustrates Kalman filter design and simulation. Both steady-state and time-varying Kalman filters are considered.

Consider a discrete plant with additive Gaussian noise on the input :

The following matrices represent the dynamics of this plant.

A = [1.1269 -0.4940 0.1129; 1.0000 0 0; 0 1.0000 0]; B = [-0.3832; 0.5919; 0.5191]; C = [1 0 0];

## Discrete Kalman Filter

The equations of the steady-state Kalman filter for this problem are given as follows.

- Measurement update:

- Time update:

In these equations:

- is the estimate of , given past measurements up to .

- is the updated estimate based on the last measurement .

Given the current estimate , the time update predicts the state value at the next sample *n* + 1 (one-step-ahead predictor). The measurement update then adjusts this prediction based on the new measurement . The correction term is a function of the innovation, that is, the discrepancy between the measured and predicted values of . This discrepancy is given by:

The innovation gain M is chosen to minimize the steady-state covariance of the estimation error, given the noise covariances:

You can combine the time and measurement update equations into one state-space model, the Kalman filter:

This filter generates an optimal estimate of . Note that the filter state is .

## Steady-State Design

You can design the steady-state Kalman filter described above with the function `kalman`. First specify the plant model with the process noise:

Here, the first expression is the state equation, and the second is the measurement equation.

The following command specifies this plant model. The sample time is set to -1, to mark the model as discrete without specifying a sample time.

Plant = ss(A,[B B],C,0,-1,'inputname',{'u' 'w'},'outputname','y');

Assuming that *Q* = *R* = 1, design the discrete Kalman filter.

Q = 1; R = 1; [kalmf,L,P,M] = kalman(Plant,Q,R);

This command returns a state-space model `kalmf` of the filter, as well as the innovation gain `M`.

M

M = 0.3798 0.0817 -0.2570

The inputs of `kalmf` are *u* and , and. The outputs are the plant output and the state estimates, and .

Because you are interested in the output estimate , select the first output of `kalmf` and discard the rest.

kalmf = kalmf(1,:);

To see how the filter works, generate some input data and random noise and compare the filtered response with the true response *y*. You can either generate each response separately, or generate both together. To simulate each response separately, use `lsim` with the plant alone first, and then with the plant and filter hooked up together. The joint simulation alternative is detailed next.

The block diagram below shows how to generate both true and filtered outputs.

You can construct a state-space model of this block diagram with the functions `parallel` and `feedback`. First build a complete plant model with *u*, *w*, *v* as inputs, and *y* and (measurements) as outputs.

a = A; b = [B B 0*B]; c = [C;C]; d = [0 0 0;0 0 1]; P = ss(a,b,c,d,-1,'inputname',{'u' 'w' 'v'},'outputname',{'y' 'yv'});

Then use `parallel` to form the parallel connection of the following illustration.

sys = parallel(P,kalmf,1,1,[],[]);

Finally, close the sensor loop by connecting the plant output to filter input with positive feedback.

SimModel = feedback(sys,1,4,2,1); % Close loop around input #4 and output #2 SimModel = SimModel([1 3],[1 2 3]); % Delete yv from I/O list

The resulting simulation model has *w*, *v*, *u* as inputs, and *y* and as outputs. View the `InputName` and `OutputName` properties to verify.

SimModel.InputName

ans = 3x1 cell array {'w'} {'v'} {'u'}

SimModel.OutputName

ans = 2x1 cell array {'y' } {'y_e'}

You are now ready to simulate the filter behavior. Generate a sinusoidal input *u* and process and measurement noise vectors *w* and *v*.

```
t = [0:100]';
u = sin(t/5);
n = length(t);
rng default
w = sqrt(Q)*randn(n,1);
v = sqrt(R)*randn(n,1);
```

Simulate the responses.

[out,x] = lsim(SimModel,[w,v,u]); y = out(:,1); % true response ye = out(:,2); % filtered response yv = y + v; % measured response

Compare the true and filtered responses graphically.

subplot(211), plot(t,y,'--',t,ye,'-'), xlabel('No. of samples'), ylabel('Output') title('Kalman filter response') subplot(212), plot(t,y-yv,'-.',t,y-ye,'-'), xlabel('No. of samples'), ylabel('Error')

The first plot shows the true response *y* (dashed line) and the filtered output (solid line). The second plot compares the measurement error (dash-dot) with the estimation error (solid). This plot shows that the noise level has been significantly reduced. This is confirmed by calculating covariance errors. The error covariance before filtering (measurement error) is:

MeasErr = y-yv; MeasErrCov = sum(MeasErr.*MeasErr)/length(MeasErr)

MeasErrCov = 0.9992

The error covariance after filtering (estimation error) is reduced:

EstErr = y-ye; EstErrCov = sum(EstErr.*EstErr)/length(EstErr)

EstErrCov = 0.4944

## Time-Varying Kalman Filter

The time-varying Kalman filter is a generalization of the steady-state filter for time-varying systems or LTI systems with nonstationary noise covariance.

Consider the following plant state and measurement equations.

The time-varying Kalman filter is given by the following recursions:

- Measurement update:

- Time update:

Here, and are as described previously. Additionally:

For simplicity, the subscripts indicating the time dependence of the state-space matrices have been dropped.

Given initial conditions and , you can iterate these equations to perform the filtering. You must update both the state estimates and error covariance matrices at each time sample.

## Time-Varying Design

To implement these filter recursions, first genereate noisy output measurements. Use the process noise `w` and measurement noise `v` generated previously.

sys = ss(A,B,C,0,-1); y = lsim(sys,u+w); yv = y + v;

Assume the following initial conditions:

Implement the time-varying filter with a `for` loop.

P = B*Q*B'; % Initial error covariance x = zeros(3,1); % Initial condition on the state ye = zeros(length(t),1); ycov = zeros(length(t),1); for i = 1:length(t) % Measurement update Mn = P*C'/(C*P*C'+R); x = x + Mn*(yv(i)-C*x); % x[n|n] P = (eye(3)-Mn*C)*P; % P[n|n] ye(i) = C*x; errcov(i) = C*P*C'; % Time update x = A*x + B*u(i); % x[n+1|n] P = A*P*A' + B*Q*B'; % P[n+1|n] end

Compare the true and estimated output graphically.

subplot(211), plot(t,y,'--',t,ye,'-') title('Time-varying Kalman filter response') xlabel('No. of samples'), ylabel('Output') subplot(212), plot(t,y-yv,'-.',t,y-ye,'-') xlabel('No. of samples'), ylabel('Output')

The first plot shows the true response *y* (dashed line) and the filtered response (solid line). The second plot compares the measurement error (dash-dot) with the estimation error (solid).

The time-varying filter also estimates the covariance `errcov` of the estimation error at each sample. Plot it to see if your filter reached steady state (as you expect with stationary input noise).

```
subplot(211)
plot(t,errcov), ylabel('Error covar')
```

From this covariance plot, you can see that the output covariance did indeed reach a steady state in about five samples. From then on, your time-varying filter has the same performance as the steady-state version.

Compare with the estimation error covariance derived from the experimental data:

EstErr = y - ye; EstErrCov = sum(EstErr.*EstErr)/length(EstErr)

EstErrCov = 0.4934

This value is smaller than the theoretical value `errcov` and close to the value obtained for the steady-state design.

Finally, note that the final value and the steady-state value *M* of the innovation gain matrix coincide.

Mn

Mn = 0.3798 0.0817 -0.2570

M

M = 0.3798 0.0817 -0.2570

## Bibliography

[1] Grimble, M.J., *Robust Industrial Control: Optimal Design Approach for Polynomial Systems*, Prentice Hall, 1994, p. 261 and pp. 443-456.