calcula la frecuencia , la moda y frecuencia acumulada en visual basic
Respuestas a la pregunta
Contestado por
1
http://www.slideshare.net/diegoandresalvarez/0001-introduccion-al-curso-y-a-la-estadstica-descriptiv....
checate esta pagina te da una idea desde la pagina 53. suerte espero y te sirva.
checate esto.
Programa informático para calcular la media, mediana, varianza y desviación estándar de una serie. En este ejemplo podrá ver como se dimensionan matrices para recibir un número determinado de datos, como se piden estos de forma secuencial, como se coloca la propia tabla de datos por orden de menor a mayor, y finalmente como se calculan los parámetros centrales y de dispersión de forma previa a mostrarlos en la pantalla del ordenador. Es una ampliación del desarrollado en el apartado anterior.
Si dispone del entorno de desarrollo Visual Basic, puede realizar esta misma aplicación apoyada sobre un único formulario, para su utilización en entornos Windows.
'Programa para calcular la media, y la mediana de una serie, asi como
' la varianza y desviación estandar de la misma. 'Borra la pantalla y muestra el título centrado.
CLS
titulo$ = "Cálculo de la media, mediana varianza y SD de una serie de datos"
LOCATE 2, 1
PRINT SPACE$((80 - LEN(titulo$)) / 2); titulo$ 'Solocita en número de elementos de la serie.
LOCATE 5, 13
INPUT "Indique el número máximo de elementos de la serie : ", nmax
DIM d(nmax + 1) 'Solicita los datos de la serie de forma secuencial.
FOR i = 1 TO nmax
LOCATE 7, 30
PRINT SPACE$(40)
LOCATE 7, 30
PRINT "Dato nº "; i;
INPUT " = ", d(i)
NEXT 'Ordena la serie de menor a mayor.
FOR i = 1 TO nmax - 1
FOR j = i + 1 TO nmax
IF d(i) > d(j) THEN
m = d(i)
d(i) = d(j)
d(j) = m
END IF
NEXT
NEXT 'Muestra la serie ordenada. Anular una vez comprobado que funciona.
PRINT
PRINT "Serie ordenada : ";
FOR i = 1 TO nmax
PRINT d(i); " ";
NEXT
PRINT 'Obtiene las sumas de datos y de los cuadrados de los datos,
' necesarios para los cálculos posteriores.
sum = 0
sum2 = 0
FOR i = 1 TO nmax
sum = sum + d(i)
sum2 = sum2 + d(i) ^ 2
NEXT 'Calcula la media aritmética.
media = sum / nmax 'Calcula la mediana como valor central de la serie ordenada si
' la serie posee un número impar de datos, y como la media de
' los 2 centrales si es par.
m = (nmax + 1) / 2
IF m = INT(m) THEN
mediana = d(m)
ELSE
m = INT(m)
mediana = (d(m) + d(m + 1)) / 2
END IF 'Calcula los valores de dispersión de la serie.
varianza = (sum2 - sum ^ 2 / nmax) / nmax
sd = SQR(varianza) 'Muestra los resultados finales en la pantalla, en posiciones preestablecidas.
LOCATE 12, 20
PRINT "Media aritmética .. = "; media
LOCATE 14, 20
PRINT "Mediana ... (p 50%) = "; mediana
LOCATE 16, 20
PRINT "Varianza .......... = "; varianza
LOCATE 18, 20
PRINT "Desviación estandar = "; sd
checate esta pagina te da una idea desde la pagina 53. suerte espero y te sirva.
checate esto.
Programa informático para calcular la media, mediana, varianza y desviación estándar de una serie. En este ejemplo podrá ver como se dimensionan matrices para recibir un número determinado de datos, como se piden estos de forma secuencial, como se coloca la propia tabla de datos por orden de menor a mayor, y finalmente como se calculan los parámetros centrales y de dispersión de forma previa a mostrarlos en la pantalla del ordenador. Es una ampliación del desarrollado en el apartado anterior.
Si dispone del entorno de desarrollo Visual Basic, puede realizar esta misma aplicación apoyada sobre un único formulario, para su utilización en entornos Windows.
'Programa para calcular la media, y la mediana de una serie, asi como
' la varianza y desviación estandar de la misma. 'Borra la pantalla y muestra el título centrado.
CLS
titulo$ = "Cálculo de la media, mediana varianza y SD de una serie de datos"
LOCATE 2, 1
PRINT SPACE$((80 - LEN(titulo$)) / 2); titulo$ 'Solocita en número de elementos de la serie.
LOCATE 5, 13
INPUT "Indique el número máximo de elementos de la serie : ", nmax
DIM d(nmax + 1) 'Solicita los datos de la serie de forma secuencial.
FOR i = 1 TO nmax
LOCATE 7, 30
PRINT SPACE$(40)
LOCATE 7, 30
PRINT "Dato nº "; i;
INPUT " = ", d(i)
NEXT 'Ordena la serie de menor a mayor.
FOR i = 1 TO nmax - 1
FOR j = i + 1 TO nmax
IF d(i) > d(j) THEN
m = d(i)
d(i) = d(j)
d(j) = m
END IF
NEXT
NEXT 'Muestra la serie ordenada. Anular una vez comprobado que funciona.
PRINT "Serie ordenada : ";
FOR i = 1 TO nmax
PRINT d(i); " ";
NEXT
PRINT 'Obtiene las sumas de datos y de los cuadrados de los datos,
' necesarios para los cálculos posteriores.
sum = 0
sum2 = 0
FOR i = 1 TO nmax
sum = sum + d(i)
sum2 = sum2 + d(i) ^ 2
NEXT 'Calcula la media aritmética.
media = sum / nmax 'Calcula la mediana como valor central de la serie ordenada si
' la serie posee un número impar de datos, y como la media de
' los 2 centrales si es par.
m = (nmax + 1) / 2
IF m = INT(m) THEN
mediana = d(m)
ELSE
m = INT(m)
mediana = (d(m) + d(m + 1)) / 2
END IF 'Calcula los valores de dispersión de la serie.
varianza = (sum2 - sum ^ 2 / nmax) / nmax
sd = SQR(varianza) 'Muestra los resultados finales en la pantalla, en posiciones preestablecidas.
LOCATE 12, 20
PRINT "Media aritmética .. = "; media
LOCATE 14, 20
PRINT "Mediana ... (p 50%) = "; mediana
LOCATE 16, 20
PRINT "Varianza .......... = "; varianza
LOCATE 18, 20
PRINT "Desviación estandar = "; sd
Otras preguntas