Unidad 4. VBA. Más estructuras (II)

Ejemplo 13

Los siguientes datos corresponden a las superficies ocupadas por un conjunto de viviendas recién construidas. Se trata de determinar si el precio de la vivienda está en función a la superficie y en qué grado de correlación está.

Los datos son los siguientes:

Área	Valor
(Y)	(X)
100	40
140	49
150	54
150	56
130	48
120	46
100	41
160	56
180	62
140	50
120	45

Se trata de obtener las siguientes estadísticas: El promedio de superficie por vivienda y el valor promedio, el modelo lineal que exista.

Para ello tenemos las siguientes fórmulas: La ecuación a ser estimada es:

A continuación expondremos el procedimiento

Sub Regre01()

Dim I, N As Integer

Dim SX, SX2, SY, SXY, Bo, B1 As Double

Dim MX, MY As Variant

' MX y MY contendrán la media de X e Y, respectivamente

' Se lee el número de datos a procesar

N = InputBox("Numero de datos:")

' Inicialización de las sumas

SX = 0: SY = 0: SX2 = 0: SXY = 0

For I = 1 To N

Cadena = InputBox("Ingrese el para de datos, separados por coma")

X = Val(Left(Cadena, 3))

Y = Val(Right(Cadena, 2))

SX = SX + X

SY = SY + Y

SX2 = SX2 + X ^ 2

SXY = SXY + X * Y

MX = SX / N

MY = SY / N

B1 = (N * SXY - SX * SY) / (N * SX2 - SX ^ 2)

Bo = MY - B1 * MX

' Emisión de resultados

MsgBox ("Total de datos: " & N)

MsgBox ("Superficie media = " & MX)

MsgBox ("Valor promedio = " & MY)

MsgBox ("Coeficiente Bo = " & Bo)

MsgBox ("Coeficiene de regresión = " & B1)

MsgBox ("La ecuacionde regresión es: Y = " & Bo & " + " & B1 & " X")

End Sub

Noviembre-2010

Pág. 4.2