%----------------------------------------
%----------------------------------------
% Esta función crea la matriz de Toeplitz
% vista en teoría de cualquier tamaño en 
% formato full
%----------------------------------------
%----------------------------------------
function K  =  MyToeplitz(n)

K       =  zeros(n); % Crea matriz cuadrada nxn
%------------------------------
% Introducimos primera fila
%------------------------------
K(1,1)   =  2;  
K(1,2)   =  -1;  
%------------------------------
% Introducimos última fila
%------------------------------
K(n,n)   =  2;
K(n,n-1) =  -1;  
%------------------------------
% Introducimos filas intermedias
%------------------------------
for i=2:n-1
    K(i,i-1)  =  -1;
    K(i,i)    =  2;
    K(i,i+1)  =  -1;    
end 
end
