function y = Interpolacion_Lineal(x0, x, f)

N =length(x);

for k=1:N-1
    if x0 >= x(k) && x0 <= x(k+1) break;
    end
end

y = f(k) + (f(k+1) - f(k))/(x(k+1)-x(k))*(x0-x(k));

end