

function [ tabla ] = raicesmultiples (a, n, delta, tole)


  format long

 %Criterios de inicializacion
i=0;
funcionvalue=delta+1;
error= tole+1;

%Programa de Raices Multiples

	while i<n & funcionvalue>delta & error>tole & d2funcion(a)~=0 %criterios por los cuales el programa va a estar iterando
	
		i=i+1; %Numero de iteraciones a realizar
		tabla(i,1)=i;% posicion donde estara el numero intervalos en la tabla de salida
		
		x= a - (((funcion(a))*(dfuncion(a)))/((dfuncion(a))^2-(funcion(a)*d2funcion(a)))); %Ecuacion que define el metodo raices multiplees, la cual arrojara los nuevos "x"
		tabla(i,2)= x; %posicion donde estaran los valores de las "x" halladas, en la tabla de salida
		
		y=funcion(x); %evaluar la variable x en la funcion 
		tabla(i,3)=y;% posicion donde estaran los valores que se van aproximando a la raiz
		
		funcionvalue=abs(y);
		error= abs(x-a); % calculo del error, %diferencia absolutra que se encuentra entre los X(n) y los X(n-1) 
		%error=abs(x-a)/abs(x); %error relativo diferencia; relativa entre los X(n) y los X(n-1)
		%error=(abs(x-a)/abs(x))*100; %error porcentual
		tabla(i,4)=error; %posicion donde estaran las diferencias entre los X(n) y los X(n-1) en la tabla de salida
		
		a=x; %conteo para poder calcular el error
		
	endwhile 
endfunction
