3

我需要帮助构建 anxn 矩阵，其中 n 等于 t = 0, ..., 10 在时间 t 的剩余股票数量。最初，我总共有 10 只股票，我将随着时间的推移将它们一一丢弃过去。

矩阵的每个元素将等于 sigma(i) x sigma (j) x rho ，其中 sigma(i)=sigma(j) = 0.25 和 rho=0.2

我想做的最后一件事是将该矩阵乘以该矩阵的转置

我真的很困惑从哪里以及如何开始，非常感谢您的帮助

Sub Matrix() 
'Sigmai 'Sigmaj 'Rho 
    Dim Sigmai, Sigmaj, Rho As Single 
    Sigmai = Range("b12").Value 
    Sigmaj = Range("b13").Value 
    Rho = Range("b14").Value 
    Dim matrixelement(10, 10) As Single 
    For n = 1 To 10 
        For m = 1 To 10 
            matrixelement(n, m) = Sigmai * Sigmaj * Rho 
            Cells(n, m) = matrixelement(n, m) 
        Next m 
    Next n 
End Sub
4

2 回答 2

2

您的代码存在许多基本问题，您应该在继续之前解决这些问题。请参阅下面代码中的注释：

Sub Matrix()
    ' declare ALL your variables
    Dim n As Long, m As Long
    Dim ws As Worksheet

    ' specify type for all variables, otherwise they will be Variant
    Dim Sigmai As Single, Sigmaj As Single, Rho As Single

    ' Explicitly reference the required sheet
    Set ws = Sheet1 ' or ActiveSheet or whatever

    ' qualify range references with worksheet
    Sigmai = ws.Range("b12").Value
    Sigmaj = ws.Range("b13").Value
    Rho = ws.Range("b14").Value

    ' Specify required lower bound. Default base is 0
    Dim matrixelement(1 To 10, 1 To 10) As Single
    For n = 1 To 10
        For m = 1 To 10
            matrixelement(n, m) = Sigmai * Sigmaj * Rho
        Next m
    Next n

    ' return result to sheet in one go
    ws.Range("A1:J10") = matrixelement

End Sub

为了

我想做的最后一件事是将该矩阵乘以该矩阵的转置

部分，我不确定你到底在追求什么，但MMULT可能有用，例如

ws.Range("L1:U10") = Application.WorksheetFunction.MMult(matrixelement, matrixelement)
于 2012-07-15T07:16:44.197 回答
0

您可以直接传递数组并将结果直接放到工作表中。一个工作表，如果实际上只是一个大的二维数组。

蚕食 Chris Neilsen 的代码：

Sub Matrix()
' declare ALL your variables
Dim n As Long, m As Long
Dim ws As Excel.Worksheet

' specify type for all variables, otherwise they will be Variant
Dim Sigmai As Single, Sigmaj As Single, Rho As Single

' Explicitly reference the required sheet
Set ws = Sheet1 ' or ActiveSheet or whatever

' qualify range references with worksheet
Sigmai = ws.Range("b12").Value
Sigmaj = ws.Range("b13").Value
Rho = ws.Range("b14").Value

For n = 1 To 10
    For m = 1 To 10
        ws.cells(n,m).value = Sigmai * Sigmaj * Rho
    Next m
Next n

End Sub

有几件事我不明白：

  • 如果 b12/b13/b14 都是常数，那么矩阵中的每个数字肯定都是相同的？！
  • 如果每个数字都相同，那么乘以转置矩阵只会得到矩阵每个单元格中每个数字的平方？！
于 2012-07-15T20:43:15.493 回答