15-Convergencia

Converge

David J. Santana

29 de septiembre de 2016

converge=function(n=100,beta=10,ancho=2){
  curve(x^1,0,1,lwd = ancho)
  abline(h=0,v=0)
  for(i in 2:n){
    potencia=(1+i/beta)
    curve(x^potencia,0,1,col=i,add=T,lwd = ancho)  
  }
}

#Ejemplos
converge()

converge(100,ancho = 1)

converge(100,beta = 1)

converge(50,ancho = 1)

converge(50,beta = 1)

converge(5,5,5)

converge(1000,50,2)