Buenas tardes amigos.
Hoy tengo una pequeña duda que no me deja avanzar en un mini programa estadistico de la Universidad.
El progrma se trata de resolver datos estadisticos, si alguno ha visto estadistica un semestre me debe entender un poco mas.
El caso es que tengo que colocar que me calcule la Media Geometrica y la Media Armonica en el programa mas no se como hacer.
La formula para calcular la media Geometrica es la sig:
No se como expresarla aqui :( asi que la escribire
La raiz de N (N es la cantidad de numeros que introducimos en la tabla) y dentro de la raiz va multiplicado cada valor que introducimos en la tabla
No se si me explique bien del todo.
Les dejo como tengo algunos datos.
Les dejo algunas imagenes:
![]()
![]()
Saluds y Gracias de Antemano.
Hoy tengo una pequeña duda que no me deja avanzar en un mini programa estadistico de la Universidad.
El progrma se trata de resolver datos estadisticos, si alguno ha visto estadistica un semestre me debe entender un poco mas.
El caso es que tengo que colocar que me calcule la Media Geometrica y la Media Armonica en el programa mas no se como hacer.
La formula para calcular la media Geometrica es la sig:
No se como expresarla aqui :( asi que la escribire
La raiz de N (N es la cantidad de numeros que introducimos en la tabla) y dentro de la raiz va multiplicado cada valor que introducimos en la tabla
No se si me explique bien del todo.
Les dejo como tengo algunos datos.
Código:
Private Sub Cmd_Calculo_Click()
Sum1 = 0: Sum2 = 0:
For i = 1 To N
Sum1 = Sum1 + X(i)
Sum2 = Sum2 + (X(i) ^ 2)
Next i
Media = Sum1 / N
varianza = (Sum2 / N) - (Media ^ 2)
desvt = Sqr(varianza)
'Formatos
Media = Format(Media, "#,##0.00")
varianza = Format(varianza, "#,##0.00")
desvt = Format(desvt, "#,##0.00")
Mdgeometrica = Format(desvt, "#,##0.00")
'Guarda Valores
For i = 1 To N
Y(i) = X(i)
Next i
'Ordenar la serie
For i = 1 To N - 1
k = i + 1
For j = k To N
If X(i) >= X(j) Then
vt = X(i)
X(i) = X(j)
X(j) = vt
End If
Next j
Next i
Minimo = X(1)
Maximo = X(N)
Rango = Maximo - Minimo
'Formato
Minimo = Format(Minimo, "#,##0.00")
Maximo = Format(Maximo, "#,##0.00")
Rango = Format(Rango, "#,##0.00")
'Calculo de la mediana
k1 = N / 2
k2 = Int(k1)
If k1 = k2 Then
Mediana = (X(k2) + X(k2 + 1)) / 2
Else
Mediana = X(k2 + 1)
End If
'faltan los calculos de la media geometrica y
End Sub
Saluds y Gracias de Antemano.