clear
clc
close all

%%% Creamos un vector x

x = -2:0.1:2;

y = exp(x);

fig = figure();
set(fig, 'color', 'white')
plot(x,y, 'LineWidth', 2)
grid on
xlabel('x')
ylabel('y')

%%% Utilizamos el vector x para hacer una etimación de la exponencial
%%% utilizando la expancion en serie de Taylor

N = 10;

yest = 0;

for k=0:N
    yest = yest + (x.^k)./factorial(k);
end;

hold on

plot(x, yest, 'r-', 'LineWidth', 2);

legend('Funcion original', 'Funcion Aproximada Taylor')