

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

format long

i=0;
funcionvalue=delta+1;
error=tole+1;
q=0;


while i<n & funcionvalue>delta & error>tole & funcion(a) ~= funcion(b)
	
	
		i=i+1;  %numero de iteraciones a realizar
		tabla(i,1)= i;
		
		x= b - ((funcion(b)*(b-a))/(funcion(b)-funcion(a))); %Ecuacion que define el metodo de la secante
		tabla(i,2)=x;
		
		y=funcion(x); %Evaluar la funcion en x
		tabla(i,3)=y; 
		
		funcionvalue=abs(y);
		error=abs(x-q); %calculo de el error
		%error=abs(x-q)/abs(x); %error relativo
		%error=(abs(x-q)/abs(x))*100; %error porcentual
		tabla(i,4)=error;
		
		a=b;
		b=x;
		
		q=x; %Calculo del error con la nueva iteracion 
		
	
	endwhile
	 
endfunction
