?? inspline1mainmodule.bas
字號(hào):
Attribute VB_Name = "MainModule"
Sub Main()
Dim m As Integer, n As Integer, i As Double
Dim s As Double
Dim str As String
' 結(jié)點(diǎn)數(shù)
n = 12
' 插值點(diǎn)數(shù)
m = 8
' 分配內(nèi)存
ReDim x(n) As Double, y(n) As Double, dy(n) As Double, ddy(n) As Double
ReDim t(m) As Double, z(m) As Double, dz(m) As Double, ddz(m) As Double
' 結(jié)點(diǎn)的值
x(1) = 0.52
x(2) = 8#
x(3) = 17.95
x(4) = 28.65
x(5) = 50.65
x(6) = 104.6
x(7) = 156.6
x(8) = 260.7
x(9) = 364.4
x(10) = 468#
x(11) = 507#
x(12) = 520#
' 結(jié)點(diǎn)的函數(shù)值
y(1) = 5.28794
y(2) = 13.84
y(3) = 20.2
y(4) = 24.9
y(5) = 31.1
y(6) = 36.5
y(7) = 36.6
y(8) = 31#
y(9) = 20.9
y(10) = 7.8
y(11) = 1.5
y(12) = 0.2
' 待插值點(diǎn)的值
t(1) = 4#
t(2) = 14#
t(3) = 30#
t(4) = 60#
t(5) = 130#
t(6) = 230#
t(7) = 450#
t(8) = 515#
' 一階導(dǎo)數(shù)的左右端點(diǎn)值
dy(1) = 1.86548
dy(12) = -0.046115
' 插值
s = INSpline1(n, x, y, dy, ddy, m, t, z, dz, ddz)
str = "x(i) y(i) dy(i) ddy(i)" & Chr(13)
For i = 1 To n
str = str & Format(x(i), "#####.00000") & " " & Format(y(i), "#####.00000") & " " & Format(dy(i), "#####.00000") & " " & Format(ddy(i), "#####.00000") & Chr(13)
Next i
str = str & Chr(13) & "s = " & Format(s, "#####.00000") & Chr(13) & Chr(13)
str = str + "t(i) z(i) dz(i) ddz(i)" & Chr(13)
For i = 1 To m
str = str & Format(t(i), "#####.00000") & " " & Format(z(i), "#####.00000") & " " & Format(dz(i), "#####.00000") & " " & Format(ddz(i), "#####.00000") & Chr(13)
Next i
MsgBox str
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -