| 5 | 1/1 | 返回列表 |
| 查看: 1268 | 回復: 5 | ||
| 本帖產生 2 個 程序強帖 ,點擊這里進行查看 | ||
| 當前只顯示滿足指定條件的回帖,點擊這里查看本話題的所有回帖 | ||
狼馨520金蟲 (小有名氣)
|
[求助]
求lagrange插值編碼
|
|
誰能指教一下lagrange插值的vb 編寫方法,我不會,急需!! |
金蟲 (小有名氣)
至尊木蟲 (著名寫手)
驃騎將軍

木蟲 (著名寫手)

版主 (知名作家)
|
N 整型變量,輸入?yún)?shù),節(jié)點個數(shù) XA() 輸入?yún)?shù),存放插值節(jié)點 YA() 輸入?yún)?shù),存放函數(shù)值 X 輸入?yún)?shù),插值自變量 Y 輸出參數(shù),所求值 DY 輸出參數(shù),誤差估計 Sub POLINT(XA(), YA(), N, X, Y, DY) Dim C(10), D(10) NS = 1 DIF = Abs(X - XA(1)) For I = 1 To N DIFT = Abs(X - XA(I)) If DIFT < DIF Then NS = I DIF = DIFT End If C(I) = YA(I) D(I) = YA(I) Next I Y = YA(NS) NS = NS - 1 For M = 1 To N - 1 For I = 1 To N - M HO = XA(I) - X HP = XA(I + M) - X W = C(I + 1) - D(I) DEN = HO - HP If DEN = 0# Then Print "PAUSE" Exit Sub End If DEN = W / DEN D(I) = HP * DEN C(I) = HO * DEN Next I If 2 * NS < N - M Then DY = C(NS + 1) Else DY = D(NS) NS = NS - 1 End If Y = Y + DY Next M End Sub |

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 287求調劑 +4 | 晨昏線與星海 2026-03-19 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 289求調劑 +3 | 懷瑾握瑜l 2026-03-20 | 3/150 |
|
|
[考研] 295材料求調劑,一志愿武漢理工085601專碩 +4 | Charlieyq 2026-03-19 | 4/200 |
|
|
[考研] 0856調劑,是學校就去 +8 | sllhht 2026-03-19 | 9/450 |
|
|
[考研] 一志愿西南交通 專碩 材料355 本科雙非 求調劑 +4 | 西南交通專材355 2026-03-19 | 4/200 |
|
|
[考研] 一志愿南昌大學,327分,材料與化工085600 +5 | Ncdx123456 2026-03-19 | 5/250 |
|
|
[考研] 【考研調劑】化學專業(yè) 281分,一志愿四川大學,誠心求調劑 +6 | 吃吃吃才有意義 2026-03-19 | 6/300 |
|
|
[考研] 304求調劑 +5 | 曼殊2266 2026-03-18 | 5/250 |
|
|
[考研] 求調劑 +3 | 暗涌afhb 2026-03-16 | 3/150 |
|
|
[考研] 085601材料工程專碩求調劑 +10 | 慕寒mio 2026-03-16 | 10/500 |
|
|
[考研] 一志愿西安交通大學材料工程專業(yè) 282分求調劑 +5 | 楓橋ZL 2026-03-18 | 7/350 |
|
|
[考研] 286求調劑 +6 | lemonzzn 2026-03-16 | 10/500 |
|
|
[考研] 材料工程專碩調劑 +5 | 204818@lcx 2026-03-17 | 6/300 |
|
|
[考研] 330求調劑 +3 | 小材化本科 2026-03-18 | 3/150 |
|
|
[考研] 311求調劑 +4 | 冬十三 2026-03-18 | 4/200 |
|
|
[考研] 0703化學336分求調劑 +6 | zbzihdhd 2026-03-15 | 7/350 |
|
|
[考研] 278求調劑 +5 | 煙火先于春 2026-03-17 | 5/250 |
|
|
[考研]
|
zhouzhen654 2026-03-16 | 3/150 |
|
|
[考研] 一志愿211 0703方向310分求調劑 +3 | 努力奮斗112 2026-03-15 | 3/150 |
|
|
[考研] 288求調劑 +4 | 奇點0314 2026-03-14 | 4/200 |
|