Makeplus

Un saludo a todos mis seguidores de la programación vbnet, hace un tiempo acá esa un poco perdido en esto de los post, pero como Uds saben todos tenemos ocupaciones que a veces nos conllevan al descuido de otras. Pero qui me encuentro con todo el ánimo de seguir compartiendo, eso si códigos importantes que ayuden de forma significativa a los cibernautas. Como dice el tema de este post,"Subir archivos a MEGA desde Visual Basic Net", tratar de subir archivos a mega que bien nos caería para nuestra aplicación sobre todo si quisiéramos respaldar alguna base de datos tipo access, compact, sqlite medianamente conectada y/o archivos como imágenes, videos, etc. Pues bien siguiendo en el desarrollo de este tema y siendo para mi bastante importante me encamine en buscar información relevante al tema y para los que no gustan de otro lenguaje, para vb no había o tal vez no supe buscar bien, en fin... Opte por modificar un ejemplo que ya nos venia. que Uds también pueden chequear y tra

Un cordial saludo programadores y matemáticos a fin. En esta entrega hacemos mención a la resolución de ecuaciones simultaneas por métodos iterativos y es así que el método de Gauss-Seidel se acopla muy bien como una mejora al método de Jacobi, sin embargo la condicion fundamental  que su diagonal principal debe ser mayor a las demas. Por todo lo expresado aqui presento un poco de teoria tomado de   http://www.jldelafuenteoconnor.es/Clase_itera_2016.pdf  en el cual se expresan algunos métodos más pero para este tema analizaremos solamente el mencionado. La implementación en visual Basic 2015 Module Module1 Dim A(500, 500) As Single Dim B(500, 500) As Single Dim X(500, 500) As Single Dim n, iter As Integer Dim cError, Tol, sum As Double Sub Main() Console.BackgroundColor = ConsoleColor.White Console.Clear() Console.ForegroundColor = ConsoleColor.Black Console.Title = "METODO ITERATIVO GAUSS-SEIDEL"

Saludos programadores, detro de los métodos numéricos para hallar raíces polinomiales tenemos este método "Metodo de Muller".les dejo un estracto de teoria de mi libro y la implementacion del mismo en Visual Basic Aquí les presento la implementación Public Class Form1 Dim imax As Integer, iter As Integer Dim h As Double, xr As Double, eps As Double Sub Muller(ByVal xr, ByVal h, ByVal eps, ByVal maxit, ByVal iter) Dim x0 As Double, x1 As Double, x2 As Double Dim h0 As Double, h1 As Double, d0 As Double, d1 As Double Dim a As Double, b As Double, c As Double Dim den As Double, rad As Double, dxr As Double x2 = xr x1 = xr + h * xr x0 = xr - h * xr Do iter = iter + 1 h0 = x1 - x0 h1 = x2 - x1 d0 = (f(x1) - f(x0)) / h0 d1 = (f(x2) - f(x1)) / h1 a = (d1 - d0) / (h1 + h0) b = a * h1 + d1 c = f(x2) rad = Math.Sqrt(b * b - 4 * a * c) If Math.Abs(b + rad) > Math.Abs(b - rad) Then den = b + rad Else den = b - rad End If dxr = -2 * c / den xr = x2 + dxr If Math.Abs(dxr) &