

function [ tabla, c ] = busqueda (a,b,inc)


  format long
i=0;

  
 while a<=b
   c=a+inc;
      if funcion(a)*funcion(c)<0
         i=i+1;
         tabla(i,1)=a;
         tabla(i,2)=c;
         a=c;   
        else
         a=c;  
       end
	   if funcion(c)==0
			disp('hay una raiz en: ',c)
	   end
	end  
 endfunction