La Varianza
Es una medida de dispersión que representa la variación de una serie de datos con respecto a su media.
Formalmente se calcula como la suma de las residuos al cuadrado divididos entre el total de observaciones.
También se puede calcular como la desviación típica al cuadrado. Dicho sea de paso, entendemos como residuo a la diferencia entre el valor de una variable en un momento y el valor medio de toda la variable.
Fórmula para calcular la varianza
La unidad de medida de la varianza será constantemente la unidad de medida correspondiente a los datos pero elevada al cuadrado. La varianza siempre será mayor o igual que cero. Al elevarse los residuos al cuadrado es matemáticamente imposible que la varianza salga negativa. Y de esa forma no puede ser menor que cero.
Paso 1:En el formulario en el evento load agregar lo siguiente:
CREATE TABLE valores FREE (x n(3),f n(3),xf n(3),xsx n(6,2),xx2 n(6,2),xxf n(6,2),x2 n(4),x2f n(6,2))
CREATE TABLE temporal FREE (x n(3),f n(3),xf n(3))
Paso 2 : En el init de tu formulario coloca lo siguiente:
SET TALK OFF
SET DELETED on
SET scor off
SET STATUS OFF
SET SAFETY off
CLEAR
PUBLIC x,i,xnumero,suma2,suma3,xpromedio,borro
suma2=0
borro=0
suma3=0
xpromedio=0
xnumero=0
i=1
thisform.Caption="Calculo de la Varianza"
thisform.text1.value=0
thisform.text1.Alignment = 1
thisform.text1.BackColor =RGB(0,0,0)
thisform.text1.ForeColor =RGB(0,255,0)
thisform.label28.Caption ="0"
thisform.label29.Caption="0"
thisform.label30.Caption="0.00"
thisform.label31.Caption="0.00"
thisform.label8.Caption="0.00"
thisform.label27.Caption="0.0
Pase 3:Agrega en el command1 en el evento click :
IF borro=1
SELECT valores
DELETE ALL
SELECT temporal
DELETE all
borro=0
xpromedio=0
suma2=0
suma3=0
thisform.label28.Caption="0"
thisform.label29.Caption="0"
thisform.label30.Caption="0.00"
thisform.label31.Caption="0.00"
i=1
thisform.list2.Requery
thisform.list1.Requery
endif
xnumero=thisform.text1.value
suma2=suma2+xnumero
suma3=suma3+(i*xnumero)
SELECT temporal
APPEND BLANK
replace x WITH i
replace f WITH xnumero
replace xf WITH x*f
thisform.list2.RowSource ="temporal.x,f,xf"
thisform.list2.RowSourceType =6
thisform.list2.Requery
thisform.label6.Caption =STR(suma2,8,0)
thisform.label26.Caption =STR(suma3,8,0)
thisform.label8.Caption =STR(suma2,8,0)
thisform.label27.Caption =STR(suma3,8,0)
xpromedio=suma3/suma2
thisform.text2.Value=xpromedio
i=i+1
thisform.text1.Value=0
thisform.text1.SetFocus
Paso 4:En el command2 en el evento click:
borro=1
tf=0
txf=0
txxf=0
tx2f=0
Select temporal
Go Top
Do While !Eof()
z1=x
z2=F
z3=xf
z4=x-xpromedio
z5=z4*z4
z6=z5*z2
z7=z1*z1
z8=(z1*z1)*z2
tf=tf+z2
txf=txf+z3
txxf=txxf+z6
tx2f=tx2f+z8
Insert Into valores(x,F,xf,xsx,xx2,xxf,x2,x2f) Values (z1,z2,z3,z4,z5,z6,z7,z8)
Skip
ENDDO
thisform.list1.Requery
thisform.label28.Caption=STR(tf,3)
thisform.label29.Caption=STR(txf,3)
thisform.label30.Caption=STR(txxf,8,2)
thisform.label31.Caption=STR(tx2f,8,2)
thisform.text1.SetFocus
Paso 5:
Agrega el List1 y el List2 respectivamente.
Una vez que se haya introducido todos los datos para el calculo de la Varianza, deberás presionar el Botón Procesar
para realizar los cálculos y así obtener el valor de la varianza.
Una vez que presionas Click sobre el Botón Procesar automáticamente se posiciona nuevamente sobrel texto para introducir nuevos valores. Automáticamente se borrarán los valores antiguos.
Espero les guste este programa. Recuerden de que estos programas estan sujeto a revisiones por parte de uds y podrán ser modificados a su manera. Esto es una introducción a lo quese puede realizar con visual Foxpro.
También te puede interesar como calcular la Media y la Moda el cual es otro programa relacionado con las estadisticas.
También te puede interesar como calcular la Media y la Moda el cual es otro programa relacionado con las estadisticas.
0 comentarios:
Publicar un comentario