Ad01

Ad02

viernes, 20 de diciembre de 2013

Raíces de ecuaciones: Método de la secante, código C | Roots of equations: Secant'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,x2,f1,f2,f0;
int i,j;
clrscr();
do
{
gotoxy(10,6); printf("                 METODO DE LA SECANTE ");
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 hasta cuando el programa le permita seguir: ");
scanf("%f",&x0);
}
while(F(x0)>0);
do
{
gotoxy(10,11); printf("Digite el segundo valor hasta cuando el programa le permita seguir: ");
scanf("%f",&x1);
}
while(F(x1)<0);
gotoxy(10,11); printf("----------------------------------------------------------------------");
gotoxy(10,12); printf("|  No  |    x0    |    f(x0)    |    x1    |     f(x1)   |    x2     |");
gotoxy(10,13); printf("----------------------------------------------------------------------");
i=14;
j=1;
do
{
f0=F(x0);
f1=F(x1);
x2=x1-(((x0-x1)/(f0-f1))*f1);
f2=F(x2);
gotoxy(10,i++);printf("%3d %12.6f %12.6f %12.6f %12.6f %12.6f",i-14,x0,f0,x1,f1,x2);
if(f0*f2<0)
{
x1=x2;
}
else
{
x0 = x2;
}
j=j+1;
}
while(fabs(f2)>0.00001 && (j<10));
{
gotoxy(10,23); printf("La raiz encontrada es igual a %10.5f",x2);
gotoxy(10,24);  printf("Presione una tecla para continuar");
getch();
}
}

No hay comentarios.:

Publicar un comentario

Ad3