El blog de Jair Beltrán: Borland C

Mostrando las entradas con la etiqueta Borland C. Mostrar todas las entradas

viernes, 20 de diciembre de 2013

Menú de opciones, código C | Options Menu, code C

#include <stdio.h>
#include <math.h>
#include <conio.h>
#include <stdlib.h>

void MenuPrin();
void Sel_Menu_Prin();
void RaiEcu();
void SeleRaices();
void NewtRaph();
void FalsPosi();
void Int_Num();
void Aju_Cur();
void Ecu_Dif();
void Pun_Fijo();
void Steffensen();
void Bairstow();
void Pun_Med();
void Secante();
void Muller();
void Rectan();
void Trape();
void Simp13();
void Simp38();
void Romberg();
void creditos();
void Sel_Menu_Prin();
void SeleIntegra();
void final();
void SeleRaices();
void SeleAju_Cur();
void SeleEcu_Dif();
void RungeKutta();
void EcuLin();
void EcuCua();
void EcuCub();
void EcuPot();
void Expaebx();
void Expeabx();
void Expeabxcx();

char op;

void main()
{
clrscr();
textbackground(3);
textcolor(0);
MenuPrin();
}

void MenuPrin()
{
{
clrscr();
gotoxy(10,5); printf("MENU PRINCIPAL");
gotoxy(10,10); printf("1. Raices de ecuaciones");
gotoxy(10,11); printf("2. Integracion numerica");
gotoxy(10,12); printf("3. Ajuste de curvas");
gotoxy(10,13); printf("4. Ecuaciones diferenciales");
gotoxy(10,15); printf("Digite 0 para salir");
gotoxy(10,16); printf("Digite C para ver los creditos");
gotoxy(10,18); printf("Digite la Opcion [ ]");
gotoxy(28,18); op=getch();
Sel_Menu_Prin();
}
while (op!='0');
}

void Sel_Menu_Prin()
{
switch (op)
{
case '1': RaiEcu();break;
case '2': Int_Num(); break;
case '3': Aju_Cur();break;
case '4': Ecu_Dif();break;
case 'c': creditos(); break;
}
}

void RaiEcu()
{
do
{
clrscr();
gotoxy(10,5); printf("Menu para raices de ecuaciones");
gotoxy(10,10); printf("1. Metodo de Newton Raphson");
gotoxy(10,11); printf("2. Metodo de Falsa Posicion");
gotoxy(10,12); printf("3. Metodo de Steffensen");
gotoxy(10,13); printf("4. Metodo de Punto medio");
gotoxy(10,14); printf("5. Metodo de Punto fijo");
gotoxy(10,15); printf("6. Metodo de Bairstow");
gotoxy(10,16); printf("7. Metodo de la secante");
gotoxy(10,19); printf("Digite 0 para salir");
gotoxy(10,20); printf("Digite M para ver el menu principal");
gotoxy(10,22); printf("Digite la Opcion [ ]");
gotoxy(28,22); op=getch();
SeleRaices();
}
while (op!='0');
}

void SeleRaices()
{
switch (op)
{
case '1': NewtRaph();break;
case '2': FalsPosi();break;
case '3': Steffensen();break;
case '4': Pun_Med();break;
case '5': Pun_Fijo();break;
case '6': Bairstow();break;
case '7': Secante();break;
case 'm': MenuPrin();break;
}
}

void NewtRaph()
{
clrscr();
getch();

}

void FalsPosi()
{
clrscr();
getch();

}

void Steffensen()
{
clrscr();
getch();
}

void Pun_Med()
{

clrscr();
getch();

}

void Pun_Fijo()
{
clrscr();
getch();
}

void Bairstow()
{
clrscr();
getch();

}

void Secante()
{
clrscr();
getch();

}

void Int_Num()
{
do
{
clrscr();
gotoxy(10,5); printf("Menu para Integracion numerica");
gotoxy(10,10); printf("1. Metodo rectangular");
gotoxy(10,11); printf("2. Metodo trapezoidal");
gotoxy(10,12); printf("3. Metodo Simpson 1/3");
gotoxy(10,13); printf("4. Metodo Simpson 3/8");
gotoxy(10,19); printf("Digite 0 para salir");
gotoxy(10,20); printf("Digite M para ver el menu principal");
gotoxy(10,22); printf("Digite la Opcion [ ]");
gotoxy(28,22); op=getch();
SeleIntegra();
}
while (op!='0');
}
void SeleIntegra()
{
switch (op)
{
case '1': Rectan();break;
case '2': Trape();break;
case '3': Simp13();break;
case '4': Simp38();break;
case 'm': MenuPrin();break;
}
}

void Rectan()
{
clrscr();
getch();
}

void Trape()
{
clrscr();
getch();
}

void Simp13()
{
clrscr();
getch();
}

void Simp38()
{
clrscr();
getch();
}

void Aju_Cur()
{
do
{
clrscr();
op=getch();
SeleAju_Cur();
}
while (op!='0');
}
void SeleAju_Cur()
{
switch (op)
{
case '1': EcuLin();break;
case '2': EcuCua();break;
case '3': EcuCub();break;
case '4': Expaebx();break;
case '5': Expeabx();break;
case '6': Expeabxcx();break;
case 'm': MenuPrin();break;
}
}
void EcuLin()
{}
void EcuCua()
{}
void EcuCub()
{}
void Expaebx()
{}
void Expeabx()
{}
void Expeabxcx()
{}
void Ecu_Dif()
{
do
{
clrscr();
gotoxy(10,5); printf("Menu para Ecuaciones diferenciales");
gotoxy(10,11); printf("1. Runge Kutta");
gotoxy(10,19); printf("Digite 0 para salir");
gotoxy(10,20); printf("Digite M para ver el menu principal");
gotoxy(10,22); printf("Digite la Opcion [ ]");
gotoxy(28,22); op=getch();
SeleEcu_Dif();
}
while (op!='0');
}
void SeleEcu_Dif()
{
switch (op)
{
case '1': RungeKutta();break;
case 'm': MenuPrin();break;
}
}
void RungeKutta()
{
clrscr();
getch();

}
void creditos()
{
{
clrscr();

gotoxy(2,2); printf("|----------------------------------------------------------------------------|");
gotoxy(2,3); printf("| |");
gotoxy(2,4); printf("| |");
gotoxy(2,5); printf("| |");
gotoxy(2,6); printf("| |");
gotoxy(2,7); printf("| |");
gotoxy(2,8); printf("| |");
gotoxy(2,9); printf("| |");
gotoxy(2,10); printf("| |");
gotoxy(2,11); printf("| |");
gotoxy(2,12); printf("| |");
gotoxy(2,13); printf("| |");
gotoxy(2,14); printf("| |");
gotoxy(2,15); printf("| |");
gotoxy(2,16); printf("| |");
gotoxy(2,17); printf("| |");
gotoxy(2,18); printf("| |");
gotoxy(2,19); printf("| |");
gotoxy(2,20); printf("| |");
gotoxy(2,21); printf("| |");
gotoxy(2,22); printf("| |");
gotoxy(2,23); printf("| |");
gotoxy(2,24); printf("|----------------------------------------------------------------------------|");
gotoxy(10,4); printf(" METODOS NUMERICOS");
gotoxy(10,6); printf(" CREDITOS");
gotoxy(10,9); printf(" Este trabajo es presentado por:");
gotoxy(10,11); printf(" Jair Beltran ");
gotoxy(10,17); printf("Digite 0 para salir");
gotoxy(10,18); printf("Digite M para ver el menu principal");
gotoxy(10,21); printf("Digite la Opcion [ ]");
gotoxy(28,21);
op=getch();
final();
}
while (op!='0');
}

void final()
{
switch (op)
{
case 'm': MenuPrin();break;
}
}

Integración numérica: Simpson 3/8 (tres octavos), código C | Numerical integration: Simpson 3/8, 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();
clrscr();
float s1,s2,s3,li,ls,n,dx,suma,x1,x2,x3,h,AT;
int i;
gotoxy(10,6); printf(" INTEGRACION NUMERICA SIMPSON 3/8 ");
gotoxy(10,7);printf("------------------------------------------------------------");
gotoxy(10,8);printf(" Este codigo fue hecho por Jair Beltran USCO Garzon ");
gotoxy(10,9);printf("Se hallara el area de la funcion f(x)=x^2-4");
gotoxy(10,10);printf ("Digite el punto inferior ");
scanf ("%f",&li);
gotoxy(10,11);printf ("Digite el punto inferior ");
scanf ("%f",&ls);
gotoxy(10,12);printf ("Digite el numero de sub-areas ");
scanf ("%f",&n);
dx=(ls-li)/(3*n);
suma=0;
i=1;
while (i<=n)
{
x1=li+((3*i-2)*dx);
x2=li+((3*i-1)*dx);
x3=li+(3*i*dx);
s1=F(x1);s2=F(x2);s3=F(x3);
suma=suma+3*s1+3*s2+2*s3;
i=i+1;
}
s1=F(li);s2=F(ls);
AT=3*(dx/8)*(s1-s2+suma);
gotoxy(10,14);printf ("El area es: %f \n",AT);
gotoxy(10,15);printf("Presione una tecla para continuar");
getch();
}

Integración numérica: Simpson 1/3 (un tercio), código C | Numerical integration: Simpson 1/3, 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();
double li,ls,suma=0,h,x1,x2,AT,s1,s2;
int i=1,n;
gotoxy(10,6); printf(" INTEGRACION NUMERICA SIMPSON 1/3 ");
gotoxy(10,7);printf("------------------------------------------------------------");
gotoxy(10,8);printf(" Este codigo fue hecho por Jair Beltran USCO Garzon ");
gotoxy(10,9);printf("Se hallara el area de la funcion f(x)=x^2-4");
gotoxy(10,10);printf ("Digite el punto inferior ");
scanf ("%lf",&li);
gotoxy(10,11);printf ("Digite el punto superior ");
scanf ("%lf",&ls);
gotoxy(10,12);printf ("Digite el numero de sub-areas ");
scanf ("%d",&n);
h=(ls-li)/(2.0*n);
while (i<=n)
{ x1=li+((2*i-1)*h);
x2=li+(2*i*h);
s1=F(x1);s2=F(x2);
suma=suma+2.0*s1+s2;
i=i+1;
}
s1=F(li);s2=F(ls);
AT=(h/3.0)*(s1-s2+2.0*suma);
gotoxy(10,14);printf ("El area es: %f \n",AT);
gotoxy(10,15);printf("Presione una tecla para continuar");
getch();
}

Integración numérica: trapecios, código C | Numerical integration: trapezoids, 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 a,b,n,dx,suma,xi,AT;
int i;
gotoxy(10,6); printf(" INTEGRACION NUMERICA TRAPEZOIDAL ");
gotoxy(10,7);printf("------------------------------------------------------------");
gotoxy(10,8);printf(" Este codigo fue hecho por Jair Beltran USCO Garzon ");
gotoxy(10,9);printf("Se hallara el area de la funcion f(x)=x^2-4");
gotoxy(10,10);printf ("Digite el punto inferior ");
scanf ("%f",&a);
gotoxy(10,11);printf ("Digite el punto superior ");
scanf ("%f",&b);
gotoxy(10,12);printf ("Digite el numero de sub-areas ");
scanf ("%f",&n);
dx=(b-a)/n;
suma=0;
i=1;
while (i<=n-1)
{
xi=a+i*dx;
suma=suma+F(xi);
i=i+1;
}
AT=(b-a)*((F(a)+2*suma+F(b))/(2*n));
gotoxy(10,14);printf ("El area es: %f \n",AT);
gotoxy(10,15);printf("Presione una tecla para continuar");
getch();
}

Integración numérica: rectángulos, código C | Numerical integration: rectangles, 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 s,a,b,n,dx,xi,AT;
int i;
gotoxy(10,6); printf(" INTEGRACION NUMERICA RECTANGULAR ");
gotoxy(10,7);printf("------------------------------------------------------------");
gotoxy(10,8);printf(" Este codigo fue hecho por Jair Beltran USCO Garzon ");
gotoxy(10,9);printf("Se hallara el area de la funcion f(x)=x^2-4");
gotoxy(10,10);printf ("Digite el punto inferior ");
scanf ("%f",&a);
gotoxy(10,11);printf ("Digite el punto superior ");
scanf ("%f",&b);
gotoxy(10,12);printf ("Digite el numero de sub-areas ");
scanf ("%f",&n);
dx=(b-a)/n;
s=0;
i=1;

while (i<=n)
{
xi=a+(2*i-1)*(dx/2);
s=s+F(xi);
i=i+1;
}
AT=dx*s;
gotoxy(10,14);printf ("El area es: %f \n",AT);
gotoxy(10,15);printf("Presione una tecla para continuar");
getch();
}

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();
}
}

Raíces de ecuaciones: Método de Bairstow, código C | Roots of equations: Bairstow'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();
gotoxy(10,6); printf(" METODO DE BAIRSTOW ");
gotoxy(10,7);printf(" Este codigo fue hecho por Jair Beltran USCO Garzon ");
int i,n;
float fx,fdx,x0,x1,fx1,fx2,r,s,dr=0,ds=0,j,a[10],b[10],c[10];
flushall();
gotoxy(10,8);printf("Digite el grado del polinomio (mayor que 1): ");
scanf ("%d", &n);
gotoxy(10,9);printf("Digite los coeficientes: ");
for (i=0; i<=n; i++)
{
gotoxy(36,9); printf("a(%d)= ",i);
scanf ("%f", &a[i]);
}
gotoxy(10,10);printf("Digite la suposicion del coeficiente r: ");
scanf ("%f", &r);
gotoxy(10,11);printf("Digite la suposicion del coeficiente s: ");
scanf ("%f", &s);
do
{
b[0] = a[0]; c[0] = a[0];
b[1] = a[1] - r*b[0];
c[1] = b[1] - r*c[0];
for (i=2; i<=n; i++)
{
b[i] = a[i] - r*b[i-1] - s*b[i-2];
c[i] = b[i] - r*c[i-1] - s*c[i-2];
}
j = c[n-2]*c[n-2] - c[n-3]*(c[n-1] - b[n-1]);
dr = (b[n-1]*c[n-2] - b[n]*c[n-3])/j;
ds = (b[n]*c[n-2] - b[n-1]*(c[n-1] - b[n-1]))/j;
r += dr; s += ds;
} while (dr > 0.01 || ds > 0.01);
gotoxy(10,13);printf("La ecuacion resultante es x^2 + (%f)x + (%f)", r, s);
gotoxy(10,15);printf("Digite un valor para hallar las raiz del polinomio: ");
scanf("%f",&x0);
fx=x0*x0+r*x0+s;
do
{
fx=x0*x0+r*x0+s;
fdx=2*x0+r;
x1=(x0-(fx/fdx));
x0=x1;
}
while (fabs(fx)>=0.00001);
{}
gotoxy(10,16);printf("La raiz encontrada es igual a %10.5f",x0);
gotoxy(10,18);printf("Presione una tecla para volver al menu de ecuaciones de raices");
getch();

}

Raíces de ecuaciones: Método del punto fijo, código C | Roots of equations: Fixed point 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();
int i,j;
float x0,x1,x2;
gotoxy(10,6); printf(" METODO DEL PUNTO FIJO ");
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("Donde g(x)=x y h(x)=x^2+x-4");
gotoxy(10,11);printf("Digite el primer valor: ");
scanf("%f",&x0);
gotoxy(10,12); printf("-----------------------------------------------");
gotoxy(10,13); printf("| No | x0 | f(x0) | x1 |");
gotoxy(10,14); printf("-----------------------------------------------");
i=15;
j=1;
x1=FP(x0);
while ((fabs(x1))<0.00001 && (j<10));
{
x2=FP(x1);
gotoxy(10,i++);printf("%3d %12.5f %12.5f %12.5f ",i-15,x0,FP(x0),x2);
x1=x2;
j=j+1;
}
gotoxy(10,22); printf("Este metodo no es muy confiable");
gotoxy(10,23); printf("El valor congerve a %10.5f",x1);
gotoxy(10,24); printf("Presione una tecla para volver al menu de ecuaciones de raices");
getch();
}

Raíces de ecuaciones: Método del punto medio, código C | Roots of equations: Midpoint 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 DEL PUNTO MEDIO ");
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=((x0+x1)/2);
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();
}
}

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();
}

Raíces de ecuaciones: Método de la falsa posición, código C | Roots of equations: False position 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 FALSA POSICION ");
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=x0-((f0*(x1-x0))/(f1-f0));
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();
}
}

Raíces de ecuaciones: Método de Newton, código C | Roots of equations: Newton'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();
int i,j;
float x0,x1,fx,fdx;
gotoxy(10,6); printf(" METODO DE NEWTON-RAPHSON ");
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 diferente a cero: ");
scanf("%f",&x0);
gotoxy(10,11); printf("------------------------------------------------------------");
gotoxy(10,12); printf("| No | x0 | f(x0) | df(x0) | x1 |");
gotoxy(10,13); printf("------------------------------------------------------------");
i=14;
j=1;
do
{
fx=F(x0);
fdx=FD(x0);
x1=(x0-(fx/fdx));
gotoxy(10,i++);printf("%3d %12.5f %12.5f %12.5f %12.5f ",i-14,x0,F(x0),FD(x0),x1);
x0=x1;
j=j+1;
}
while (fabs(F(x0)>=0.00001) && (j<10));
{
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();
}
}

El blog de Jair Beltrán

Ad01

Páginas

Ad02