矩阵的功率

Question

如何编写一个VBA宏，该宏将占用位于单元格A1至C3中的矩阵（对于任意用户指定的功率）的功率？

Answer 1

硬是以你的问题在数学意义上，这个宏通过反复调用Excel的功能MMULT提高了基质的功率（4中的例子）。

Dim i As Long 
Dim pow As Long 
Dim vIn As Variant 
Dim vOut As Variant 

pow = 4 ' or whatever 

' Fetch matrix from sheet 
vIn = Range("A1:C3") 
' Raise to power 
vOut = vIn 
For i = 1 To pow - 1 
    vOut = WorksheetFunction.MMult(vOut, vIn) 
Next i 
' Write result to sheet 
Range("E1:G3") = vOut 

Answer 2

几年前有一个这样的问题，我记得是因为它被称为矩阵算术，但不像我在学校教过的那样。

填充单元格A1：C3与数字1至9设置单元格A5至2.选择单元A7：C9和键入

=power(A1:C3,A5) ctrl+shift+enter 

和细胞A7：C9将被设置为的值的平方在A1：C3。将A5更改为3，将单元格A7：C9设置为A1：C3中值的立方体。

在VBA相对应的是：

Range("a7:c9").FormulaArray = "=Power(a1:c3, a5)" 

Answer 3

我使用了下面的函数。请注意，当指数为0时，函数返回单位矩阵，否则矩阵乘以指数次数。

'Raises matrix to a power 
Function PowerMatrixNew(rngInp As Range, lngPow As Integer) As Variant() 
'create identitu for power 0 
Dim identity() As Variant 
ReDim identity(rngInp.Rows.Count, rngInp.Rows.Count) 

Dim i As Integer 
Dim j As Integer 
For i = 1 To rngInp.Rows.Count 
    For j = 1 To rngInp.Rows.Count 
    If (i = j) Then 
    identity(i, j) = 1 
    Else 
    identity(i, j) = 0 
    End If 
    Next j 
Next i 

PowerMatrixNew = identity 
For i = 1 To lngPow 
    PowerMatrixNew = Application.WorksheetFunction.MMult(rngInp, PowerMatrixNew) 
Next 
End Function