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
