我将在 4×6 (代码中的m×n)矩阵的每个单元格上使用以下公式来得到归一化矩阵:
我在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
我希望规范化矩阵出现在原始矩阵的右侧。但没有出现。我究竟做错了什么?
答案 0 :(得分:0)
代码使用n
和m
作为参数,然后声明它们,销毁这些值。要修复,请删除以下两行。为便于阅读,请将这些评论移至Sub Normalize
附近。
Dim m 'maximum row index
Dim n 'maximum column index
要使用Basic IDE调试器找到此类问题,请在工具栏中按断点开/关以设置几个断点,并启用Watch。