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.
