Programa para calcular raices por el METODO DE LA SECANTE

/* Programa para calcular raices por el METODO DE LA SECANTE. */

#include <stdio.h>

#include <conio.h>

#include <math.h>

#include <marco70.h>

float func( float x );

float a, b, xi, xi1, exac, Ep, Ec ;

int i, j, k, lin, n, m ;

char ch ;

main()

{

do

{

inicio:;

marco70();

cap();

sec();

printf("\n\t Desea teclear otro intevalo? (Si/No): " );

ch = getch();

if( ch == 'S' || ch == 's' );

goto inicio;

goto final;

}

cap()

{

printf("\n\n\n\t Programa para calcular raices por el METODO DE LA BISECCION. \n " );

printf("\n\t Autor Profr. Fis. Armando C. Ortiz. ");

printf("\n\t Fecha Miercoles 15 de Noviembre del 2011. ");

printf("\n\n\t Captura de DATOS. \n\n " );

printf("\n\t Teclee el inicio del intervalo a: " );

scanf("%f", &b );

printf("\n\t Teclee el final del intervalo b:. " );

scanf("%f", &b );

printf("\n\t Teclea el margen de Error: " );

scanf("%f", &Ep );

printf("\n\t Teclee el numero de iteraciones n: " );

scanf("%f", &n );

sec()

{

if( (func(a) * func(b)) > 0 )

{

printf("\n\t En este intervalo no hay raiz:. " );

printf("\n\t Iteraciones \t Raiz calculada \t Error " );

xint = a ;

for( i = 1; i <= n; i++ )

{

pi = a + (( b - a ) / 2 );

exac = fabs( pi - xint );

if( exac > Error )

{

if( ( func(pi) * func(b) ) > 0 )

b = pi ;

else

a = pi ;

}

else

{

printf("\n\t\t %d \t %f \t %f \n ", i, pi, exac );

printf("\n\n\t La raiz calculada es = %f ", pi );

printf("\n\n\t Encontrada en la %d iteracion : \n\n", i );

break;

}

printf("\n\n\t %d \t\t %f \t\t %f ", i, pi, exac );

xint = pi;

}

if( i > n )

{

printf("\n\n\t

...