Raíces de ecuaciones: Método de Steffensen, código C | Roots of equations: Steffensen's method, code C

Raíces de ecuaciones: Método de Steffensen, código C | Roots of equations: Steffensen's method, code C

#include <stdio.h>
#include <math.h>
#include <conio.h>
#include <stdlib.h>
#define F(x)(x*x)-4
#define FD(x)(2*x)
#define FP(x)(x*x)+x-4
#define FE(x,y)(x*y)+1


void main()
{
clrscr();
float x0,x1,a,fx1,fx2;
int i,j;
gotoxy(10,6); printf("                 METODO DE STEFFENSEN ");
gotoxy(10,7);printf("------------------------------------------------------------");
gotoxy(10,8);printf(" Este codigo fue hecho por Jair Beltran USCO Garzon ");
gotoxy(10,9);printf("Se hallara la raiz de la funcion f(x)=x^2-4 tol=10^-5 iter max=9");
gotoxy(10,10);printf("Digite el primer valor: ");
scanf("%f",&x0);
gotoxy(10,11); printf("-----------------------------------------------");
gotoxy(10,12); printf("|  No   |     x0     |    f(x0)  |     x1     |");
gotoxy(10,13); printf("-----------------------------------------------");
i=14;
j=1;
while (fabs(F(x0))>0.00001 && (j<10))
{
a=x0+F(x0);
fx1=F(x0);
fx2=F(a);
x1=x0-((fx1*fx1)/(fx2-fx1));
gotoxy(10,i++);printf("%3d  %12.5f %12.5f %12.5f ",i-14,x0,F(x0),x1);
x0=x1;
j=j+1;
}
gotoxy(10,23); printf("La raiz encontrada es igual a %10.5f",x0);
gotoxy(10,24);  printf("Presione una tecla para volver al menu de ecuaciones de raices");
getch();
}