clear all
close all

x = load('cz4.txt');
t = x(:,1);
pribor = x(:,2)/100;
fibor = x(:,3)/100;
dem = x(:,4);
ldem = log(dem);

diff = pribor - fibor;
depr = (shift(ldem,3) - ldem)*4;

dispar = diff - depr;
dispar_trend = hp(dispar,200);

figure
plot(t,dem)
title('kurz CZK/DEM')

figure
plot(t,[pribor fibor])
legend('pribor','fibor')
grid

figure
plot(t,[dispar dispar_trend])
legend('diparita','trend')
grid


















