METODO DE NEWTON-RAPHSON

//METODO DE NEWTON-RAPHSON
#include<iostream.h>
#include<conio.h>
#include<math.h>

void main(void)
 {
 textbackground(6);
 textcolor(3);
  clrscr();
  long double fx0,gx0,x0,xi,ea,e,i,s,a=0;
  cout<<"\t\n      Calcula la raiz de la funciïn f(x)=(e^-x)-x por NEWTON-RAPHSON";
  cout<<endl<<"\n\tIntroduzca el valor aproximado al cual desea encontrar la raiz:"<<endl;
  cout<<"\n\t Xu= ";
  cin>>x0;

  cout<<"\n\t Cifras significativas: ";
  cin>>s;
  if(s<4)
  {
cout<<"\n\n   En Analisis,para un calculo permitido se requiere\ncomo minimo 4 cifras significativas";
getch(); }
  else {
  cout<<endl<<endl<<"i         x(i-1)        xi             Emax"<<endl<<endl;
  for(;;)
   {

    i=a+1;
    xi=x0-((exp(-x0)-x0)/(-exp(-x0)-1));
    ea=fabsl(x0-xi);
    e=(0.5*pow(10,(2-s)));
    cout<<i;
    cout<<"\t"<<x0;
    cout<<"\t\t"<<xi;
    cout<<"\t\t\t"<<ea<<endl;
    a=i;
    x0=xi;
    if(ea<=e)
      break;
   }
  cout<<endl<<" LA RAIZ ES  "<<xi;
  getch();
 }      }