estoy trabajando con métodos para encontrar raíces de una función, tengo el siguiente código en R Studio y corre a la perfección:
#### Método de bisección
fun<-function(x){
return(z<-(x^3+4*(x^2)-10)) #Función a la que se le aplicará el método
}
met_biseccion<-function(a,b,itera,tol){ #Definimos el método de bisección
funa<-fun(a) #Función evaluada en a
funb<-fun(b) #Función evaluada en b
if(funa*funb>0){ #Validamos si se puede aplicar el método
print("EL MÉTODO NO SE PUEDE APLICAR")
}else{
contador<-0
while(contador<=itera){ #El proceso seguirá hasta el número de iteraciones que haya ingresado el usuario
c<-(a+b)/2 #Obtenemos el punto medio entre a y b
func<-fun(c) #Función evaluada en c
if(abs(func-0)>tol){ #Buscamos que func sea lo más cercano a 0, para así decir que c es nuestra raíz
if(func*funa<0){ #Validamos si son de signos distintos
b<-c
funb<-func
}else{
a<-c
funa<-func
}
contador<-contador+1
#Configuramos la matriz para que vaya haciendo la tabla de comparación
} else{
break()
}
}
}
return(x<-c(c, func,contador))
}
(a<-met_biseccion(-5,2,20,.001)) #Aplicamos el método, escribimos el intervalo, las iteraciones y la tolerancia
El problema es que sólo me muestra los valores de la última iteración y necesito todos los valores guardados en una matriz, me podrían ayudar, de antemano, muchas gracias!