ESTO ES EN VISUAL BASIC 6.0, PERO SI LO QUIERES EN VISUAL PARA APLICACIONES DE EXCEL ENTRA A ESTE LINK
http://borradoresalfonso.blogspot.com/2015/01/gauss-jordan-en-visual-basic-de-excel.html
(*)
BIEN.
Para la resolución de matrices n x n logramos establecer un código muy estructurado y sencillo de acuerdo a nuestro interés y a nuestra medida. La ventaja de hacerlo en Visual Basic es que podemos adaptarlo a nuestras necesidades y a cómo deseamos que se muestre la respuesta. Lo que no se logra con otros lenguajes especializados. Si bien estos últimos funcionan perfectamente, no devuelven la respuesta de la forma que queremos y el entorno no es amigable.
Inicialmente creamos una interfaz con las siguientes caracteristicas
Los números de las cabeceras de la grilla son correlativos. Perfectamente podemos llenarlos con
una instruccion de FOR desde 0 - donde se desee. Es obvio que fue necesario trabajar en la consistencia de la capacidad de las celdas del control "flexgrid"
Ahora veamos como el código resuelve las matrices por el Método de Gauss Jordan.
El algoritmo ha sido programado con las ayuda de los libros de Algebra Lineal de Kolman y Grossman y ha sido comprobado en su totalidad con todas las matrices de estos libros en los ambientes de Ingeniería Química de la UNSA, todo en nuestros tiempos libres.
Además gracias a que usamos 12 decimales sin redondear —el redondeo de cifras cuando usamos una computadora es de por sí ilógico, ya que ella puede trabajar perfectamente con los decimales que nosotros deseemos—, se ha logrado solucionar satisfactoriamente los ejercicios que el mismo libro de Grossman considera que por el Método de Reducción no pueden resolverse.
El programa funciona de la siguiente manera:
Usando, por ejemplo, 10 ecuaciones con 10 variables. La interfaz inicial se vería más o menos así:
La instruccion del botón "Dibujar Matriz" dibuja de la siguiente forma la grilla, a la que llenamos con nuestros datos (coeficientes de las ecuaciones), de la siguiente forma:
Para fines didácticos, estamos trabajando con 10 ecuaciones y 10 variables. Esto puede variar según nuestras necesidades.
Al hacer clic sobre el boton "Gauss", el programa realiza la reducción y queda de esta forma:
La reduccion gaussiana se ha efectuado con éxito.
Este programa resuelve matrices n x n, solo hay que tener en cuenta la capacidad de almacenamiento del control "flexgrid" al momento de programar, capacidad que no es infinita.
El código matriz del programa que mostraremos a continuación ha sido desarrollado por el que escribe en colaboración con Javier Catari, en aquel entonces ambos estudiantes de la Escuela de Ingenieria Quimica de la UNSA para el curso de Algebra Lineal.
Este programa funciona perfectamente. Se han omitidos las lineas de códigos de consistencia del programa ya que no tienen que ver directamente con la resolución de matrices.
Si analizamos el código nos percataremos de que el algoritmo central del programa es el mismo que el que utilizamos para resolver las matrices manualmente, un método muy sencillo por cierto.
Enseguida les presento las líneas de código que buscan al pivote en cada instruccion al realizar el evento en la matriz en la grilla:
Este sencillo conjunto de instrucciones (código) está bien distribuido y estructurado y devuelve soluciones correctas para matrices por el Método de Reduccion, por ello insisto en que Visual Basic puede ser una poderosa herramienta para la Ingenieria. Digo esto ya que usualmente se le considera una herramienta para gestión de bases de datos y por ende dominada por profesionales dedicados a la informática.
En este caso, hemos demostrado que podemos utilizar VB para estructurar algoritmos matemáticos y lógicos que se ajustan a la secuencia de solución programada, usamos números para solucionar problemas de números.
¿Te gustó el programa? Descárgalo aquí: REDUCCIÓN MATRICIAL
Nota: aún está en visual basic 6.0, en unas semanas estará en Visual Studio 2010.
Si no tienes instalado el Visual Basic, descargate el instalador en el seguiente enlace:
Intalador del reductor de Matrices Gauss - Jordan
Nota: aún está en visual basic 6.0, en unas semanas estará en Visual Studio 2010.
Si no tienes instalado el Visual Basic, descargate el instalador en el seguiente enlace:
Intalador del reductor de Matrices Gauss - Jordan
VBX DESARROLLO
© Derechos Reservados
Diseño de interfaz: Javier Catari
Programación: Ing. José Alfonso Arivilca
Arequipa - Perú 2014
hola podrias pasar el codigo ?? porfavor
ResponderEliminarAlfonso DIce:
ResponderEliminarel código está publicado, ·sub gauss", y "Busca pivote" trbaja simultaneamente.
disculpa me..puedes pasar el programa completo xfa..mi mail es martinht92@hotmail.com..saludos y gracias esta ecelente la descripcion del programa
ResponderEliminarhe enviado el programa a tu cuenta de hotmail, pueden colaborar con el blogg, enviando sus proyectos que funcionen, para colgarlos aqui. su nombre se colocará despues del titulo. gracias por ver el blogg.
ResponderEliminaruna pregunta para visual 2008 es acorde el programa..
Eliminary para hacerlo en visual basic 2008 express? es = no me sale ami :S:S:
Eliminarlos prcedimientos estan estructurados solo tiene que tomar en cuenta en 2008 si el llamdo del flexgrid es diferente o no, y la manera de declarar las variables, porque todo el procedimiento de buscar pivote es codigo estructurado ahi no hay casi nada de procedimientos de visualk basic, todo es casi independiente, debes tomar en cuanta la manera de declarar las variables en 2008, y como jalar los datos de un flexgrid en el 2008.
ResponderEliminarbuenas podrias mandarme el codigo por favor te dejo mi correo. mrvaldivia@hotmail.com
ResponderEliminarDisculpen los inconvenientes, el programa esta siendo repotenciado y anexado a un compendio de herramientas utilitarias para ecuaciones aplicadas a ING de procesos, y recompilado en visual basic 2010, por el momento la version 2006 esta fraccionada, sin embargo el codigo esta publicado, declare usted las variables y copie tal y como estael codigo de la publicación funcionará perfectamente.
ResponderEliminarHola por favor me puede enviar el codigo a mi correo t agradesco d ante mano mi correo es ing-y-computacion@hotmail.com
ResponderEliminarno me sale enviame e pryecto a mi correo porfa t lo agradesco mucho... monicafernandasanchez@gmail.com
ResponderEliminarme puedes enviar el codigo mi correo es edy_198915@hotmail.com garacias
ResponderEliminarHola que tal alfonso me gusto tu programa cres que me lo puedas mandar a mi correo porfavor? hec.german@gmail.com ... muchas gracias
ResponderEliminarintenté enviarle el programa pero su correo al parecer no esta bien escrito ya que sale un error al enviar desde mi bandeja de entrada, por favor vuelva a escibir su correo para enviarle
ResponderEliminarUna disculpa Alfonso... a ver intenta con este... german_007_89@hotmail.com
ResponderEliminarMuchas gracias por el programa Jose!
ResponderEliminarbuenas podria enviarme el programa a rides_xd@hotmail.com muchas gracias! estoy en prueba y lo necesito jejeje
ResponderEliminarEnvié el programa a quien me lo solicitó, sin embargo no a los que no tienen cuenta de facebook con el correo que escriben aqui, ya que antes de enviar me paso por su perfil, bien saludos y sigan las intrucciones del pequeño manual que envio con el programa y funcionará perfectamente.
ResponderEliminarAtte Alfonso Arivilca (KilyManyaroo)
Buenas Tardes podrias enviarme el codigo del programa por favor? este es mi correo Flor_Rosada2040@yahoo.es
ResponderEliminarEl Programa Funcionara con Visual Basic 6.0? Gracias
Buenos Dias ALfonso, Muchas gracias por enviarme el Programa, esta muy bueno. Excelente!!!!
ResponderEliminarbuenas tardes alfonzo por favor enviame el codigo mi correo es monti_garcia86@hotmail.com
ResponderEliminarHola, que tal, podrías enviarme el código a mi correo, lo que pase es que trate de hacerlo y no me compila, por favor mi correo es erocpe_1101@hotmail.com tengo cuenta en facebook es esta facebook.com/erick.octavio.1 me lo piden en la escuela. Gracias! Buen día.
ResponderEliminarhola me podrias pasar codigo porfavor, lo necesito y muchas gracias por la ayuda n_n mi correo es:
ResponderEliminaroscar1n_n1@yahoo.com
Podrias enviar el programa ejecutable y el archivo de VB porfavor
ResponderEliminarfeliz_soy_yo1@hotmail.com
Porfas me podrias enviar el Archivo de Visual Basic asi como el programa, si quieres mi fb, aqui esta www.facebook.com/g3rard05.1 mi correo es g3rard05@hotmail.com
ResponderEliminarhola! sé que es un poco repetitiva la petición, te pido mil disculpas de antemano. Podrias enviarme el codigo a mi correo,
ResponderEliminarmuchas gracias. mi correo es chiqui_mck@hotmail.com
Podrias enviarme tu codigo y programa a mi correo por favor? erick_rock_soul@live.com.ar
ResponderEliminarBuena tarde...
ResponderEliminaralfonso me pòdrias colaborar enviandome el codigo en visual basic a mi correo,
juca318@hotmail.com.
necesito hace unos calculos para la nota final de simulacion
muchas gracias.
podrias embirme el programa con sus codigos para hacer algunas mdificasiones en visual basic 6.0 jorge-EC46@hotmail.com
ResponderEliminarpm podras brindar la aplicacion a mi correo yericzon@gmail.com esta muy buena
ResponderEliminarhttp://jossm03.blogspot.com/2012/07/algoritmo-eliminacion-gauss-jordan-vb.html
ResponderEliminarque bueno por fin vb 2010, deberian publicar todo el codigo y el programa funcionando consistenciado.
ResponderEliminarBuenas Noches, Ing. usted me podría enviar el programa por favor? adicional ando en la busqueda del programa de sediel y matrices inversas.
ResponderEliminarle agradezco mucho por su colaboracion
HOLA buenas noches, disculpa tienes el código para visual con respecto al método de eliminación gaussiana?
ResponderEliminarel codigo esta publicado, tal vez lo que ustedes esten buscando sea el diagrama de flujo, de la resolucion para cualquier software...
ResponderEliminarhola buenas tardes Alfonso cres que me puedas pasar el programa mi correo es david_flores_2007030321@hotmail.com
ResponderEliminarHey poncho me lo puedes mandar a mi correo por fa te lo agradeceria mucho... Saludos y suerte. chrisreyes117@aol.com
ResponderEliminarhola no me podras enviar el codigo este codigo sirve para vb 2012? mi correo es saracarolinagarciaruiz@gmail.com
ResponderEliminarhola buen dia tengo muchos problemas con el código de gauus tendrá x si acaso solo el de 3*3 por fa mi correo es luighi_navi.fr@hotmail.com
ResponderEliminargracias....!!
¡Hola buen día! Me podria hacer el favor de pasarme el programa al correo j02039721@gmail.com Gracias!
ResponderEliminarhola amigo me podrias pasar tu programa por favor al sig. correo carlos_javlg@hotmail.com te lo agradeceria mucho se ve bastante interesante
ResponderEliminarhola amigo podias mandarme el programa a mi correo? te lo agradeceria mucho vdquinonez@gmail.com
ResponderEliminarles dejo el link de descarga
ResponderEliminarhttps://app.box.com/s/uobd8ph5a0m0vpw8qh3m
Este comentario ha sido eliminado por el autor.
ResponderEliminarojo esta en visual studio 6.0, dentro de unas semanas podré tenerlo en visual studio 2010.
ResponderEliminarPara saber como poder usarlo lean arriba, esto debe funcionar perfectamente, ya que lo he probado con cientos de matrices, sino pregunten aqui. pero lean bien.
disculpa sera que me podrias enviar el programa de Metodo de Reducción de GAUSS JORDAN en visual studio 2010 a este correo miguel_04_sep@hotmail.com
ResponderEliminarEste comentario ha sido eliminado por el autor.
ResponderEliminarno porque aun no lo tengo listo en visual studio 2010, aunque considero que es muy sencillo el cambio sin embargo falta compilar algo de código para que el control GRID sea mas accesible y suave, intentaré publicar el algoritmo quizás eso les ayude a programarlo en visual studio 2010 mas rápido.
ResponderEliminardisculpa, me poder pasar el programa completo a este correo. orlandope35@gmail.com
ResponderEliminardescarga desde el link que esta al final, funciona perfectamente. en vb 6.0
ResponderEliminarsaludos atrte Alfonso.
Compañero José, está muy buena su solución a este problema de las matrices, le pido el favor y si me puede regalar el código completo, me seria de mucha utilidad en la asignatura análisis numérico que estoy cursando en mi universidad., muchas gracias Humberto Lizcano rh_lizcano@hotmail.com
ResponderEliminarME PUEDES ENVIAR EL CODIGO DEL PROGRAMA POR FAVOR USO VISUAL STUDIO 2012
ResponderEliminarmandamelo a este correo porfavor jordan1987@live.com.mx uso visual studio 2012
ResponderEliminarvoya publicarlo en breve y es que estoy en otros proyectos, el programa en visual studio 2013 saldra pronto, y es gratis,
ResponderEliminaratte. Ing alfonso arivilca.
aye me harias el grandisimo favor de enviarme el programa completo para poder estudiarlo a teck74@hotmail.com gracias por el aporte
ResponderEliminarche viejo me puedes pasa el algoritmo de este programa porfa al correo alv-ro2010@hotmail.com
ResponderEliminarpana podrias enviarme el programa a mi correo
ResponderEliminarmirandalexk@hotmail.com
gracias
Hola podrias mandarme el programa en Visual Basic 6.0
ResponderEliminarmi correo es:
iyari_cute@hotmail.com
Gracias
Este comentario ha sido eliminado por el autor.
ResponderEliminarhe creado este programa en excel, pueden ver el ultimo articulo que he publicado, la reduccion de gauss pero en excel, sin tener que instalar ningun programa ni nada, si tienes office tienes el reductor, pueden bajarselo desde
ResponderEliminarhttp://borradoresalfonso.blogspot.com/2015/01/gauss-jordan-en-visual-basic-de-excel.html
Hola Ing José está muy bueno tu prog, sera que podrías enviarmelo a mi correo por favor, :( el ejecutable y el archivo de VB
ResponderEliminarHola buen día, bien, ¿cual es su correo?, mire este programa esta en visual basic 6.0 que microsoft ya lo ha retirado del mercado, sin embargo he realizado el ejecutable usando visual 6.0 pero usando la grilla del excel osea sus celdas, para que el programa no caduque al pasar los años con visual basic, el programa corre perfectamente y puede descargarselo de aqui-->>> https://app.box.com/s/5e57erj8bdxvfyokhjn11d7sw56a84t6 graciar por usar el blogg
Eliminarcopie y pégue el link que le he escrito y descargue, es una hoja de excel, ahi esta la aplicación , si tiene problemas para usar la aplicacion lea el articulo del blogg --->>> http://borradoresalfonso.blogspot.com/2015/01/gauss-jordan-en-visual-basic-de-excel.html ... ahi hay un video inclusive para que responda todas sus dudas, saludos y adios.
Eliminardisculpe Ing. Jose Alfonso Arivilca buenas tarde no se si serias muy amable de enviar el codigo de gauss jordan de excel para ver como lo hiciste para poder realizar uno yo mi correo es benyidiaz@gmail.com gracias
ResponderEliminarHola! Disculpa estaba ejecutando el programa pero no me arroja valores sino que dice que se ha producido el error 1004, que puedo hacer en ese caso?. Gracias
ResponderEliminardebes iniciar la matriz en la celda A1, y la configuracion del decimal debe ser punto y no coma...
Eliminaren todo caso que no funcione aun revisa que excel estas ussando y que version de office... recomendaria office mas de 2010