# Construir uma aproximação para exp(x), usando polinômio de Taylor.

 a=0
n=10

pn<-function(s){  # Aproximação de exp(x)
p=1
for ( i in 1:n){p=p+(s-a)^i/factorial(i)}
return(p)
}

print("Teste aproximacao de exp(1)"); pn(1);

exp(1)

Erro<-function(s){
exp(s)- pn(s)    
   }
   
   curve(Erro,-2,2)
   
   
   # Aproximar exp(5) com o código acima, posso escrever 
   print("Teste aproximacao de exp(5)"); 
   pn(5)
   pn(2)*pn(2)*pn(1)
   pn(1)^5
   exp(5)
   
   (3^5)*5^11/factorial(11)