Bueno, estoy realizando un programa para un maestro de probabilidad y estadística, y el encargo fue, realizar un programa que calcule las medias de tendencia central.
Comencé a realizar el código el martes pero me encontré con un problema en la media geométrica, el cual es la raíz cuadra e-nesima osea la n ^ √ , no se como ponerla en el código.
Bueno les dejo lo que tengo, la media aritmética esta correcta, el problema lo ayo en la media geométrica....
El programa lo estoy haciendo en Windows Visual Studio 2008, estoy utilizando Botones, texbox y listbox.
Pd: y si de paso saben hacer la media armónica se los agradeceré.
Código:
Public Class Media_de_tendencias_central
Dim d As Double = 0
Dim c As Double = 0
Dim suma As Double = 0.0
Dim multi As Double = 0.0
Dim numero As String
// MEDIA ARITMÉTICA //
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As Double
num = TextBox1.Text
suma = suma + num
d = d + 1
numero = numero & num & " + "
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Sorted = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim aritmetica As Double
aritmetica = suma / d
TextBox2.Text = aritmetica
End Sub
// MEDIA GEOMÉTRICA //
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim num2 As Double
num2 = TextBox3.Text
multi = multi * num2
c = c + 1
numero = numero & num2 & " * "
ListBox2.Items.Add(TextBox3.Text)
TextBox3.Text = ""
TextBox3.Focus()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListBox2.Sorted = True
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim geometrica As Double
geometrica = Math.Sqrt(multi ^ 1 / c)
TextBox4.Text = geometrica
End Sub
End Class
Dim d As Double = 0
Dim c As Double = 0
Dim suma As Double = 0.0
Dim multi As Double = 0.0
Dim numero As String
// MEDIA ARITMÉTICA //
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim num As Double
num = TextBox1.Text
suma = suma + num
d = d + 1
numero = numero & num & " + "
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
TextBox1.Focus()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Sorted = True
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim aritmetica As Double
aritmetica = suma / d
TextBox2.Text = aritmetica
End Sub
// MEDIA GEOMÉTRICA //
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim num2 As Double
num2 = TextBox3.Text
multi = multi * num2
c = c + 1
numero = numero & num2 & " * "
ListBox2.Items.Add(TextBox3.Text)
TextBox3.Text = ""
TextBox3.Focus()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
ListBox2.Sorted = True
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim geometrica As Double
geometrica = Math.Sqrt(multi ^ 1 / c)
TextBox4.Text = geometrica
End Sub
End Class
y así es como se ve el form
espero y me puedan ayudar.