使用LibreOffice Basic (LibreOffice Calc)处理矩阵

Question

我将在4×6 (代码中的m×n)矩阵的每个单元上使用以下公式来得到规范化矩阵：

​

在Calc中的矩阵是：

我在LibreOffice中使用了以下基本代码：

REM  *****  BASIC  *****

Sub Main

Normalize(5,3)

End Sub



Sub Normalize (ByVal n As Integer,ByVal m As Integer)

Dim Doc As Object
Dim Sheet As Object
Dim SrcCell 'Cell in the source matrix 
Dim TargetCell 'Cell in the target matrix where normalized values are saved 
Dim TempCell As Object 

Dim I 'index 
Dim J 'index 
Dim JJ 'inner index 
Dim Sum 'Sigma x_ij^2 (j=0 to m)
Dim m 'maximum row index 
Dim n 'maximum column index 


Doc = ThisComponent
Sheet = Doc.Sheets(0)




For I = 0 to n  'traverse columns 
    For J=0 to m 'traverse rows 
        SrcCell = Sheet.getCellByPosition(I,J)
        'Now apply the normalization formula for this cell 
        'Run a new loop to run formula on this cell 
        Sum = 0 'Reset Sum to 0
        For JJ=0 to m 
            TempCell = Sheet.getCellByPosition(I,JJ)
            Sum = Sum + (TempCell.Value^2)
        Next 
        TargetCell = Sheet.getCellByPosition(I+n+1,J) 'Place the normalized cells in a new matrix cell, n+1 cells away

        'Put the sum in the formula 
        TargetCell.Value = SrcCell.Value/Sqr(Sum)

    Next 


Next 

End Sub 

我要让正规化矩阵出现在原始矩阵的右边。但什么也没出现。我做错了什么？

Answer 1

代码使用n和m作为参数，然后声明它们，销毁值。若要修复，请删除以下两行。为了提高可读性，请将这些注释移到Sub Normalize附近。

Dim m 'maximum row index 
Dim n 'maximum column index

若要查找基本IDE调试器的此类问题，请按工具栏中的断点( On/Off )设置两个断点，并启用Watch。