Calcular la Media y la moda

La Moda

La moda es el valor que tiene mayor frecuencia absoluta,Se representa por Mo.

Si en un grupo hay dos o varias puntuaciones con la misma frecuencia y esa frecuencia es la máxima, la distribución es bimodal o multimodal, es decir, tiene varias modas.

1, 1, 1, 4, 4, 5, 5, 5, 7, 8, 9, 9, 9    Mo= 1, 5, 9

Cuando todas las puntuaciones de un grupo tienen la misma frecuencia, no hay moda.

2, 2, 3, 3, 6, 6, 9, 9

Si dos puntuaciones adyacentes tienen la frecuencia máxima, la moda es el promedio de las dos puntuaciones adyacentes.

0, 1, 3, 3, 5, 5, 7, 8Mo = 4

Mediana

Es el valor que ocupa el lugar central de todos los datos cuando éstos están ordenados de menor a mayor.

La mediana se representa por Me.

La mediana se puede hallar sólo para variables cuantitativas.

2, 3, 4, 4, 5, 5, 5, 6, 6Me= 5

Paso 1. En el evento init del formulario

SET TALK OFF

SET scor off

SET STATUS OFF

SET SAFETY off

CLEAR

PUBLIC vector,i,suma

suma=0

cont1=0

md1=0

i=1

thisform.Caption="Calculo de la Media y la Moda"

DECLARE vector[100]

thisform.text1.value=0

thisform.text1.Alignment = 1 

thisform.text1.BackColor =RGB(0,0,0)

thisform.text1.ForeColor =RGB(0,255,0)

thisform.label5.caption=STR(0)

thisform.label2.caption=STR(0)

thisform.label4.caption=STR(0)

Paso 2:En el evento Load del formulario

CREATE TABLE valores FREE (numero n(3))

Paso 3:En el command1 en el evento click

suma=0

antcont=0

Anteriormoda=0

xnumero=thisform.text1.value

SELECT valores

APPEND BLANK

replace numero WITH xnumero

thisform.list1.RowSource ="valores.numero"

thisform.list1.RowSourceType =6

thisform.list1.Requery 

vector[i]=Thisform.text1.Value

For j=1 To i

suma=suma+vector[j]

cont1=1

md1 = vector[j]

For w=1 To i

If md1=vector[w]

cont1=cont1+1

If cont1> antcont

Anteriormoda=md1

antcont=cont1

Endif

Endif

Next

Next j

media=0

media=Int(suma/i)

Thisform.label2.Caption=Str(media,8,2)

thisform.label4.caption=STR(Anteriormoda)

thisform.label5.caption=STR(suma,8,2)

i=i+1

thisform.text1.Value=0

thisform.text1.SetFocus 

Espero que este aporte resulte el agrado de muchos.