?? inedlagrn3mainmodule.bas
字號:
Attribute VB_Name = "MainModule"
Sub Main()
Dim t As Double, z As Double, x0 As Double, h As Double, y(10) As Double
Dim s As String
' 第一個結(jié)點
x0 = 0.1
' 步長
h = 0.1
' 結(jié)點的函數(shù)值
y(1) = 0.904837
y(2) = 0.818731
y(3) = 0.740818
y(4) = 0.67032
y(5) = 0.606531
y(6) = 0.548812
y(7) = 0.496585
y(8) = 0.449329
y(9) = 0.40657
y(10) = 0.367879
' 插值位置
t = 0.25
' 插值
z = INEdLagrn3(10, h, x0, y, t)
s = s & "f(" & t & ") = " & z & Chr(13)
' 插值位置
t = 0.63
' 插值
z = INEdLagrn3(10, h, x0, y, t)
s = s & "f(" & t & ") = " & z & Chr(13)
' 插值位置
t = 0.95
' 插值
z = INEdLagrn3(10, h, x0, y, t)
s = s & "f(" & t & ") = " & z
MsgBox s
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -