16-Convergencia 2

Convergencia 2

David J. Santana

30 de septiembre de 2016

# Convergencia de funciones
# Colores con rainbow()
fconverge=function(l){
  n=as.numeric(readline('escribe un natural mayor a 1= '))
  curve(1*x,0.001,1)
  for(i in 2:n){
    curve(x^(l/i),col=rainbow(n)[i],lwd=2,add=T) 
    curve(x^(i/l),col=rainbow(n)[i],lwd=2,add=T)
  }
  abline(h=0,v=0)
}

#EJEMPLOS

fconverge(2)
100

fconverge(2)
10

fconverge(10)
10

fconverge(50)
50

fconverge(50)
100

Produce lo siguiente: