Autor Tema: Despejar la incógnita i de la ecuación

0 Usuarios y 1 Visitante están viendo este tema.

16 Julio, 2020, 05:45 pm
Respuesta #10

Juan Pablo Sancho

  • Moderador Global
  • Mensajes: 6,562
  • País: es
  • Karma: +0/-0
  • Sexo: Masculino
Usando el método de bisección da \(  z = 0.979114  \)
Spoiler
#include<stdio.h>
double potencia(double base,int exponente);
int main()
{
    double a=-1,b=1,func,epsilon = 0.000000001,z,absoluto;
   
    do
    {
        z = (a+b)/2.0;
        func = 709*z*(potencia(z,60)-1)/(z-1) - 23870;
        if(func == 0)
            return 0;
        else
        {
            if(func < 0)
                a = z;
            else
                b = z;
        }
        absoluto = func;
        if(absoluto < 0)
            absoluto = -absoluto;
        printf("%g \n",z);
       
    }while(absoluto >= epsilon);
   
    printf("La aproximación es %g \n",z);
   
return 0;

}

double potencia(double base,int exponente)
{
    double prod = 1.0;
    int i;
    for(i=1; i < exponente + 1 ; i++)
        prod = prod*base;
    return prod;
}
[cerrar]