?? svdvar.txt
字號:
Sub SVDVAR(V(), MA, NP, W(), CVM(), NCVM)
Dim WTI(20)
For I = 1 To MA
WTI(I) = 0#
If W(I) <> 0# Then WTI(I) = 1# / (W(I) * W(I))
Next I
For I = 1 To MA
For J = 1 To I
SUM1 = 0#
For K = 1 To MA
SUM1 = SUM1 + V(I, K) * V(J, K) * WTI(K)
Next K
CVM(I, J) = SUM1
CVM(J, I) = SUM1
Next J
Next I
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -