miércoles, 25 de marzo de 2020

Codigo de Biseccion

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace Bisección
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Boton_Click(object sender, EventArgs e)
        {
            int ni, i;
            i = 0; ni = 0;
            Double xl, xu, xr, xrr, a, b, c;
            
            xl = Convert.ToDouble(XL.Text);
            xu = Convert.ToDouble(XU.Text);
            ni = Convert.ToInt16(NI.Text);

            for (i = 0; i <= ni; i++)
                {
                    xr = Convert.ToDouble(((xl - xu)/2)) ;
                    if(xr < 0)
                        {
                            xr = Convert.ToDouble(xr * -1);
                        }

                    a = (Math.Pow(xl, 2) - 4);
                    b = (Math.Pow(xr, 2) - 4);
                    c = (Math.Pow(xu, 2) - 4);
                    if (a < 0)
                    {
                        xl = xl;
                        xu = xr;
                    }
                    else
                        xl = xr;
                        xu = xu;
                }

            XLR.Text = Convert.ToString(xl);
            XUR.Text = Convert.ToString(xu);
            R.Text = Convert.ToString(xr);
        }
    }
}

No hay comentarios.:

Publicar un comentario

Solución de ecuaciones diferenciales(SEXTA UNIDAD)

               Solución de ecuaciones diferenciales                  6.1 Métodos de un paso.   Métodos de un paso: Método de Euler, Méto...