Function Mezcla2(y As Double, Tabx As Range, Constantes As Range, _
         Ncmax As Long) As Double
         
    Dim n, m, i, j As Integer
    Dim A(), Mc(), x() As Double
    
    Dim seg1, seg2, tiempo As Double
    Dim ciclos As Long '2,147,483,647
    
    
    
    n = Constantes.Rows.Count
    m = Constantes.Columns.Count
    
    
    ReDim A(m), Mc(n, m), x(n)
    
    For i = 1 To n
        x(i) = Tabx(i).Value
        For j = 1 To m
            Mc(i, j) = Constantes(i, j).Value
        Next j
    Next i
    
    seg1 = Timer()
    ciclos = 0
    Do While ciclos <= Ncmax
        
        For j = 1 To m
            A(j) = 0
            For i = 1 To n
                A(j) = A(j) + x(i) * Mc(i, j)
            Next i
        Next j
        
        Mezcla2 = 0
        For j = 1 To m
            Mezcla2 = Mezcla2 + A(j) * y ^ (j - 1)
        Next j
        
        ciclos = ciclos + 1
    Loop
    
    seg2 = Timer()
    tiempo = seg2 - seg1
    MsgBox "El tiempo del ciclo " + Str(tiempo)
    
End Function