Programa que realiza iteraciones para determinar el valor de las //raices de una ecuaci¢n por medio del método de "REGLA FALSA"

//Torres Morales Gustavo Alan
//Grupo:4CM1
//Programa que realiza iteraciones para determinar el valor de las
//raices de una ecuaci¢n por medio del mÇtodo de "REGLA FALSA"
#include<stdio.h>
#include<conio.h>
#include<dos.h>
#include<math.h>
#include<stdlib.h>
#include<iostream.h>

void main(void)
{
clrscr();
double valor,valor1,res,res1,xi=0,xr,xw=1,fx,vv=1.648721271,ea,erv,era;
double xr1[30];
int i,j=0;
valor1=exp(xi*0.5);
res1=valor1-xi;
textbackground(9);
cout<<"xi="<<xi<<"."<<endl;
cout<<"xw="<<xw<<"."<<endl<<endl;
textcolor(10);
printf("Valor de la Funci¢n en xi:%1.9f ",res1); cout<<endl;
valor=exp(xw*0.5);
res=valor-xw;
printf("Valor Verdadero de la funci¢n:%2.9f ",vv); cout<<endl;
//clrscr();
cout<<"Iter   xi      xw  xr     Ea Erv(%)        Era(%)\n";
xr=xw-(res*(xi-xw))/(res1-res);
xr1[j]=xr;
j++;
printf("1  %1.9f",xi);
printf("   %1.9f",xw);
printf("  %1.9f",xr);
ea=vv-xr;
erv=((vv-xr)/vv)*100;
era=(xr/xr)*100;
printf("  %1.9f",fabs(ea));
printf("  %3.8f",fabs(erv));
printf("  %3.2f",era);
valor=exp(xr*-1);
res=valor-xr;
//printf("\nFunci¢n xr=%1.10f",res);
valor1=exp(xi*0.5);
res1=valor1-xi;          //printf("\nFuncion xi=%1.10f",res1);
fx=res*res1;
//printf("       %1.10f\n",fx);
for(i=0;i<10;i++) //11 veces
{
delay(25);
if(fx>0)
xi=xr;
else{xw=xr;}
xr=xw-(res*(xi-xw))/(res1-res);
xr1[j]=xr;
printf("\n%d  %1.9f",i+2,xi);   delay(25);
printf(" %1.9f",xw);           delay(25);
printf("  %1.9f",xr);           delay(25);
ea=vv-xr;
erv=((vv-xr)/vv)*100;
era=((xr-xr1[j-1])/xr)*100;
j++;
printf("  %1.9f",fabs(ea));     delay(25);
printf("  %3.8f",fabs(erv));    delay(25);
printf("  %3.7f",fabs(era));    delay(25);
valor=exp(xr*-1);
res=valor-xr;
//printf("\nFunci¢n xr=%1.15f",res);
valor1=exp(xi*0.5);
//printf("\n  %1.10f",xi);
res1=valor1-xi;          //printf("\nFuncion xi=%1.10f",res1);
fx=res*res1;
}
getch();
}