Ilustrados comunidad mundial educativa
Inicio | Escribenos
User: Pass: Recordar ó (Registrate!)

| !Publicar Articulo¡

Programación de las funciones cos(x), senh(x) y cosh(x) utilizando series de Taylor e inducción matemática

Resumen: En este articulo se explicara paso a paso la aplicación de los principios de inducción matemática y las series de Taylor en la programación con Visual Basic 2005.
5,806 visitas
Rating: 0
Tell a Friend
Autor: Jaime Montoya

RESUMEN
En este articulo se explicara paso a paso la aplicación de los principios de inducción matemática y las series de Taylor en la programación con Visual Basic 2005.

Programar en la computadora los siguientes ejercicios:


DESARROLLO
Este programa está desarrollado en Visual Basic 2005. Se han aplicado los principios de inducción matemática y las series de Taylor para resolver los problemas anteriormente planteados. A continuación se muestran las pantallas del programa en ejecución y el código completo del mismo.

Ejemplos del Programa en Ejecución






Código del Programa


Módulo de Funciones

Imports System.Math 'Para que funcione la función Abs() para sacar el valor absoluto.
Module Module1
Public Function coseno1( ByVal x As Double ) As Double
Dim tm As Double = 1
coseno1 = tm
Dim k As Integer = 1
While Abs(tm) > 0.00001
tm = -tm * ((x * x) / ((k) * (k + 1)))
coseno1 = coseno1 + tm
k = k + 2
End While
End Function
Public Function senoh1( ByVal x As Double ) As Double
Dim tm As Double = x
senoh1 = tm
Dim k As Integer = 1
While Abs(tm) > 0.00001
tm = tm * ((x * x) / ((k + 1) * (k + 2)))
senoh1 = senoh1 + tm
k = k + 2
End While
End Function
Public Function cosenoh1( ByVal x As Double ) As Double
Dim tm As Double = 1
cosenoh1 = tm
Dim k As Integer = 1
While Abs(tm) > 0.00001
tm = tm * ((x * x) / ((k) * (k + 1)))
cosenoh1 = cosenoh1 + tm
k = k + 2
End While
End Function
End Module


Código del Formulario del Programa

 

Public Class Form1
Private Sub ex_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxxcosh.KeyPress
If (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57) Or (Asc(e.KeyChar) = 8) Or (Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46) Then 'Los únicos caracteres que se permitirá introducir en el TextBox serán los números del 0 al 9 (ASCII del 48 al 57) así como también la tecla backspace, el signo menos y el punto.
'No se hace nada porque el caracter presionado es válido.
Else
e.KeyChar = "" 'Reemplaza la tecla digitada con el valor de nada para que no se puedan introducir caracteres inválidos.
End If
End Sub
Private Sub xn_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs)
If (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57) Or (Asc(e.KeyChar) = 8) Then 'Los únicos caracteres que se permitirá introducir en el TextBox serán los números del 0 al 9 (ASCII del 48 al 57) así como también la tecla backspace.
'No se hace nada porque el caracter presionado es válido.
Else
e.KeyChar = "" 'Reemplaza la tecla digitada con el valor de nada para que no se puedan introducir caracteres inválidos.
End If
End Sub
Private Sub xx_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxxsenh.KeyPress
If (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57) Or (Asc(e.KeyChar) = 8) Or (Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46) Then 'Los únicos caracteres que se permitirá introducir en el TextBox serán los números del 0 al 9 (ASCII del 48 al 57) así como también la tecla backspace, el signo menos y el punto.
'No se hace nada porque el caracter presionado es válido.
Else
e.KeyChar = "" 'Reemplaza la tecla digitada con el valor de nada para que no se puedan introducir caracteres inválidos.
End If
End Sub
Private Sub senox_KeyPress( ByVal sender As Object , ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBoxxcos.KeyPress
If (Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57) Or (Asc(e.KeyChar) = 8) Or (Asc(e.KeyChar) = 45) Or (Asc(e.KeyChar) = 46) Then 'Los únicos caracteres que se permitirá introducir en el TextBox serán los números del 0 al 9 (ASCII del 48 al 57) así como también la tecla backspace, el punto y el signo menos.
'No se hace nada porque el caracter presionado es válido.
Else
e.KeyChar = "" 'Reemplaza la tecla digitada con el valor de nada para que no se puedan introducir caracteres inválidos.
End If
End Sub
Private Sub Buttoncosh_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncosh.Click
TextBoxrespuestacosh.Text = cosenoh1(Val(TextBoxxcosh.Text))
End Sub
Private Sub Buttonsenh_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonsenh.Click
TextBoxrespuestasenh.Text = senoh1(Val(TextBoxxsenh.Text))
End Sub
Private Sub Buttoncos_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncos.Click
TextBoxrespuestacos.Text = coseno1(Val(TextBoxxcos.Text))
End Sub
Private Sub Buttonlimpiar_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonlimpiar.Click
'Limpiar todos los TextBox.
TextBoxxcosh.Text = ""
TextBoxrespuestacosh.Text = ""
TextBoxxsenh.Text = ""
TextBoxrespuestasenh.Text = ""
TextBoxxcos.Text = ""
TextBoxrespuestacos.Text = ""
End Sub
Private Sub Form1_Load( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase .Load
TextBoxxcos.Focus() 'Para que al cargar el formulario aparezca ya el cursor en el TextBoxxcos.
End Sub
End Class


Descargar archivos del programa aqui

AUTOR
Jaime Montoya
webmaster@jaimemontoya.com
www.jaimemontoya.com
Santa Ana, 22 de febrero de 2008
El Salvador

Articulos relacionados:
Diseño e implantación de sistemas de información y procesamiento de datos para empresas
Resumen:
Análisis y diseño de sistemas. Selección del equipo e implantación del sistema. estudio es hacer un análisis del sistema actual (es decir un Análisis de sistemas). Este p...
Bases de datos activas
Resumen:
Dentro del proceso de desarrollo de los sistemas de bases de datos, los cuales se han convertido en un producto estratégico de primer orden; en el afán de ofrecer una res...
Sexta Generacion
Resumen:
Esta generación se inicia en 1990 teniendo como característica la evolución de las comunicaciones a la par de la tecnología. La computación paralela sigue avanzando al gr...
Análisis y Diseño de Sistemas
Resumen:
Análisis de Sistemas de Computación. Objetivos del Análisis. Análisis Económico y Técnico. Diseño de sistemas de computación. Diseño de la Salida. Herramientas para el Di...
La computadora y la sociedad
Resumen:
La relación ciencia técnica y desarrollo social. Tecnología por y para el hombre. El profesional informático ante los problemas del México de hoy. Los derechos humanos fr...
Copyright © 2011 ilustrados.com, Monografias, tesis, bibliografias, educacion. Tofos los temas y publicaciones son propiedad de sus respectivos autores ©