?? d2r10.txt
字號:
Private Sub Command1_Click()
'PROGRAM D2R10
'DRIVER for routine SPLIE2
M = 10
N = 10
Dim X1(10), X2(10), Y(10, 10), Y2(10, 10)
For I = 1 To M
X1(I) = 0.2 * I
Next I
For I = 1 To N
X2(I) = 0.2 * I
Next I
For I = 1 To M
For J = 1 To N
X1X2 = X1(I) * X2(J)
Y(I, J) = X1X2 ^ 2
Next J
Next I
Call SPLIE2(X1(), X2(), Y(), M, N, Y2())
Print
Print Tab(5); "Second derivatives from SPLIE2"
Print Tab(5); "Natural spline assumed"
For I = 1 To 5
For J = 1 To 5
Print Format$(Y2(I, J), "0.####00"),
Next J
Print
Next I
Print
Print Tab(5); "Actual second derivatives"
For I = 1 To 5
For J = 1 To 5
Y2(I, J) = 2# * (X1(I) ^ 2)
Next J
For J = 1 To 5
Print Format$(Y2(I, J), "0.####00"),
Next J
Print
Next I
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -