codigo de interpolacion lineal

unction[Y]=INTERPOL_LINEAL2ML(X,method)

% Output
% Y: da como salida una matriz del doble del tamaño que X, correspondiente a
% una interpolación lineal doble con función de MATLAB.

%Input
% X: Matriz de entrada
% Method: asigna el método a utilizar por la función interpolación de
% MATLAB

%la siguiente función realiza una interpolación de 2 dimensiones

[n,m]=size(X);vector=zeros(1,n);
Y1=zeros(n,2*n);
x=1:n;
xi=1:0.5:n+0.5;

for k=1:n
vector=X(k,:);
vec_interpol=interp1(x,vector,xi,method,'extrap');
Y1(k,:)=vec_interpol;
end
Y1(:,512)=Y1(:,511);%asigna a la última columna la componente de la columna anterior para disminuir
%el desfasaje de valores por la extrapolación de la función
%interpolación de MATLAB

vector=zeros(m,1);Y=zeros(2*n,2*m);
x=1:m;
xi=1:0.5:m+0.5;

for k=1:2*m
vector=Y1(:,k);
vec_interpol=interp1(x,vector,xi,method,'extrap');
Y(:,k)=vec_interpol;
end
Y(512,:)=Y(511,:);
%asigna a laúltima columna la componente de la columna anterior para disminuir
%el desfasaje de valores por la extrapolación de la función
%interpolación de MATLAB
end

% Punto 5
clear all

%carga deimagenes
load 'Imagen_Lena_LD';
lena_LD=XLD;
load 'Imagen_Texto_LD';
texto_LD=XLD;

load 'Imagen_Lena_HD';
lena_HD=XHD;
load 'Imagen_Texto_HD';
texto_HD=XHD;

% METODO SPLINE

% Se aplica lafunción INTERPOL_LINEAL2ML

Y1=INTERPOL_LINEAL2ML(lena_LD,'spline');

% Se muestran las imágenes originales y las obtenidas

imagesc (Y1)
hold on
title('Imagen LENA HD - Spline Matlab');colormap ('gray')
figure

imagesc (lena_LD)
hold on
title('Imagen LENA LD');
colormap ('gray')
figure


Y2=INTERPOL_LINEAL2ML(texto_LD,'spline');

%APLICAMOS EL FILTRO DEL TRABAJO PRÁCTICO Nº1YA QUE HAY VALORES QUE
%SUPERAN 255, CON LO CUAL, EL RANGO ENTRE EL MAXIMO Y MÍNIMO ES MAYOR Y AL
%GRAFICAR LA FIGURA, ESCALA LOS COLORES EN BASE AL MAX Y MIN, GENERANDO QUE
%LA LA HOJA DE...