'DESVIACION TIPICA DE UNA CARTERA
Public Function DTP(NA, PESOS, DESV, CORREL)
Dim n, x, y
n = NA
DTP = 0
For x = 1 To n
For y = 1 To n
DTP = DTP + (PESOS(x) * PESOS(y) * DESV(x) * DESV(y) * CORREL(x, y))
Next y
Next x
DTP = Sqr(DTP)
End Function
Insertar este codigo en VB de Excel y tendreis una funcion util para calcular el riesgo de una cartera con n activos.
