Function Mezcla(y As Double, x As Range, Constantes As Range) As Double

    Dim n, m, i, j As Integer
    Dim A() As Double
    
    n = Constantes.Rows.Count 'contar el número de reglones
    m = Constantes.Columns.Count 'contar el número de columnas
    
    ReDim A(m)
    
    For j = 1 To m
        A(j) = 0
        For i = 1 To n
            A(j) = A(j) + x(i).Value * Constantes(i, j).Value
        Next i
    Next j
    
    Mezcla = 0
    For j = 1 To m
        Mezcla = Mezcla + A(j) * y ^ (j - 1)
    Next j
    
    
End Function