Calculo de Varianza

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.