% Este programa ilustra el método de Secante.
clear
p0=.5;
p1=pi/4;
tol=10^(-10);
n0=1000;
i=2;
q0=demof_(p0);
q1=demof_(p1);
while i<= n0
   p=p1-(q1*(p1-p0))/(q1-q0);
   if abs(p-p1)<tol
      fprintf('La función tiene raíz %12.10f.\n',p1);
         i=n0+1;   
   else
      p0=p1;
      q0=q1;
      p1=p;
      q1=demof_(p);
      fprintf('  #%i     %12.10f\n',i,p0);
      i=i+1;
   end %if
   end %while
   if i==n0
      fprintf(' El método fracasó después de %12.10.',n0);
      fprint('iteraciones\n');
      end