using System;      // Tema 7 Tarea 7 

public class Program

{

    public static void Main()

    {

        Console.WriteLine("Metodo de Newton");

        Console.WriteLine("Esta es la ecuación a resolver y= -x3 - x2 + 13x +30");

        double a, fa;  // Solo se necesita un punto en el metodo de Newton

        double f_derivada; 

        double error;

        int contador=0;

        error= 0.0000001;

        a=-4;    // Intervalo de inicio

        fa =-a*a*a - a*a + 13*a +30 ;  /// y = x3 - x2 + 13x + 30 en el punto a

        f_derivada = -3*a*a - 2*a + 13;

        if (fa == 0)

        {

            Console.WriteLine("Esta es la raiz de la función {0}" , a);

        }

        while( Math.Abs(fa) > error)

        {

                a = a - fa/f_derivada; // Aproximación del metodo de Newton

                fa =-a*a*a - a*a + 13*a +30 ;  

                f_derivada = -3*a*a - 2*a + 13;

        contador= contador + 1;

        }

        Console.WriteLine("La raiz de la función es: {0}", a);

        Console.WriteLine("El número de pasos que tardo para encontrar la solución es: {0}" ,contador);

        }

    }