% Ts - Sampling time (Ts>1 and integer)


load pc11_zadana     % t=3000 sec
% load dis_zadana_long 


w=[];
whLL=[ws(1,1);ws(2,1)];
whRL=[ws(1,1);ws(3,1)];
for i=1:tsim/Ts
    w=[w;ws(2:3,Ts*i+1)];
    whLL=[whLL [ws(1,Ts*i+1);ws(2,Ts*i+1)]];
    whRL=[whRL [ws(1,Ts*i+1);ws(3,Ts*i+1)]];
end

for i=1:hor
    w=[w;w(end-1:end)];
end