METODO DE BISECCION
Páginas: 2 (251 palabras)
Publicado: 21 de septiembre de 2015
METODO DE BISECCION
#include
#include
#include
float a,b,fA1,fa,k,ea,A1,A2,aux,f;
intmain(void)
{
printf("Programa del metodo de biseccion para la solucion de la funcion 6*A^4-12*A^3+8*A-3,2.\n");
printf ("Digite elvalor de a: ");
scanf ("%d",a);
printf ("Digite el valor de b: ");
scanf ("%d",b);
A2=0;
A1=(a+b)/2;
printf("La raiz propuestaes: %f\n",A1);
ea=fabs(((A1-A2)/A1));
printf("El error es de: %f.",ea);
destino: fA1=(pow(A1,4))-(12* pow(A1,3)) +(8*A1)-3,2;
printf("\nSustituyendo el valor de A1 en la funcion, el resultado es:...%f\n",fA1);
fa= (pow(a,4))-(12* pow(a,3)) +(8*a)-3,2;
printf("\nSustituyendo el valor de a en la funcion, el resultado es:...%f\n",fa);
k=fA1*fa;
printf("El resultado demultiplicar las evaluaciones es: %f\n",k);
if(k>0)
{
a=A1;
A2=(a+b)/2;
}
if(k<0)
{
b=A1;
A2=(a+b)/2;
}
if(k==0)
{ printf("La raiz es = %f\n",A1);
}
printf("La nueva raiz es: %f.\n",A2);
ea=fabs(((A2-A1)/A2)*(100));
printf("El error es de:%f.\n",ea);
if(ea<0.001)
{
printf("\n\n\tLa raiz mas cercana es: %f\n",A2);
f=(pow(A1,4))-(12* pow(A1,3)) + (8*A1)-3,2;
printf("\tYla funcion evaluada en esa raiz es: %f\n",f);
system ("pause");
return 0;
}
aux=A2;
A2=A1;
A1=aux;
goto destino;
}
#include
#include
#include
float a,b,fA1,fa,k,ea,A1,A2,aux,f;
intmain(void)
{
printf("Programa del metodo de biseccion para la solucion de la funcion 6*A^4-12*A^3+8*A-3,2.\n");
printf ("Digite elvalor de a: ");
scanf ("%d",a);
printf ("Digite el valor de b: ");
scanf ("%d",b);
A2=0;
A1=(a+b)/2;
printf("La raiz propuestaes: %f\n",A1);
ea=fabs(((A1-A2)/A1));
printf("El error es de: %f.",ea);
destino: fA1=(pow(A1,4))-(12* pow(A1,3)) +(8*A1)-3,2;
printf("\nSustituyendo el valor de A1 en la funcion, el resultado es:...%f\n",fA1);
fa= (pow(a,4))-(12* pow(a,3)) +(8*a)-3,2;
printf("\nSustituyendo el valor de a en la funcion, el resultado es:...%f\n",fa);
k=fA1*fa;
printf("El resultado demultiplicar las evaluaciones es: %f\n",k);
if(k>0)
{
a=A1;
A2=(a+b)/2;
}
if(k<0)
{
b=A1;
A2=(a+b)/2;
}
if(k==0)
{ printf("La raiz es = %f\n",A1);
}
printf("La nueva raiz es: %f.\n",A2);
ea=fabs(((A2-A1)/A2)*(100));
printf("El error es de:%f.\n",ea);
if(ea<0.001)
{
printf("\n\n\tLa raiz mas cercana es: %f\n",A2);
f=(pow(A1,4))-(12* pow(A1,3)) + (8*A1)-3,2;
printf("\tYla funcion evaluada en esa raiz es: %f\n",f);
system ("pause");
return 0;
}
aux=A2;
A2=A1;
A1=aux;
goto destino;
}
Leer documento completo
Regístrate para leer el documento completo.