En esta actualización de la entrada anterior; se incorporan las funciones auxiliares necesarias para completar el optimizador de carteras y para los que no queráis perder mucho tiempo con la fase de diseño, os incluyo mas abajo un link en el que podéis descargaros el optimizador para Excel ya completo y funcional.
FUNCIONES AUXILIARES QUE UTILIZA EL OPTIMIZADOR:
'PRODUCTO DE DOS MATRICES
'PRODUCT OF TWO MATRIX
Public Function MATRIZP(MATRA(), MATRB()) As Variant
ReDim MATRIZ(UBound(MATRA, 1), UBound(MATRB, 2))
For Z = 1 To UBound(MATRB, 2)
For X = 1 To UBound(MATRA, 1)
SUMA = 0
For Y = 1 To UBound(MATRA, 2)
SUMA1 = MATRA(X, Y) * MATRB(Y, Z)
SUMA = SUMA1 + SUMA
Next Y
MATRIZ(X, Z) = SUMA
Next X
Next Z
MATRIZP = MATRIZ
End Function
'PRODUCT OF TWO MATRIX
Public Function MATRIZP(MATRA(), MATRB()) As Variant
ReDim MATRIZ(UBound(MATRA, 1), UBound(MATRB, 2))
For Z = 1 To UBound(MATRB, 2)
For X = 1 To UBound(MATRA, 1)
SUMA = 0
For Y = 1 To UBound(MATRA, 2)
SUMA1 = MATRA(X, Y) * MATRB(Y, Z)
SUMA = SUMA1 + SUMA
Next Y
MATRIZ(X, Z) = SUMA
Next X
Next Z
MATRIZP = MATRIZ
End Function