Statistics/Basic: Difference between revisions

/* Imprime tabla de clases */

/* Calcula promedio según tabla de clases */

/* Calcula promedio de la muestra completa e imprime medidas */

promedio muestra=0

muestra, promediar, mover a 'promedio muestra'

"Varianza = ", varianza, NL,\

#(utf8("Desviación estandar = ")), desviación estándar,NL'

#(tamaño barras = int(FREC * escala * 5))

dimensionar (TOTAL_BINES) matriz rellena ("*", barras)

#(barras = replicate( barras, tamaño barras))

#(sMC = string(MC))

unir columnas( sMC, sMC, justificar derecha(5,#(string(FREC))), barras )

/* Imprime histograma */

token.separador '" "'

imprimir ( " M.C. FREC.\n-----------\n",\

sMC,NL )

calcular promedio de tabla de clases:

calcular raíz, mover a 'desviación estándar'

retornar

</syntaxhighlight>

{{out}}