 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 6 | 1/1 | 返回列表 |
| 查看: 1265 | 回復(fù): 5 | ||
| 本帖產(chǎn)生 2 個(gè) 程序強(qiáng)帖 ，點(diǎn)擊這里進(jìn)行查看 | ||
狼馨520金蟲 (小有名氣)
|
[求助]
求lagrange插值編碼
|
|
誰能指教一下lagrange插值的vb 編寫方法，我不會(huì)，急需�。�！ |
回復(fù)此樓» 猜你喜歡
281求調(diào)劑（0805）
已經(jīng)有16人回復(fù)
-
304求調(diào)劑
已經(jīng)有6人回復(fù)
-
材料工程專碩調(diào)劑
已經(jīng)有6人回復(fù)
-
一志愿天大材料與化工（085600）總分338
已經(jīng)有4人回復(fù)
-
085700資源與環(huán)境308求調(diào)劑
已經(jīng)有3人回復(fù)
-
求材料調(diào)劑
已經(jīng)有8人回復(fù)
-
294求調(diào)劑材料與化工專碩
已經(jīng)有5人回復(fù)
-
一志愿華中科技大學(xué)，080502，354分求調(diào)劑
已經(jīng)有4人回復(fù)
-
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑
已經(jīng)有6人回復(fù)
-
085410人工智能專碩317求調(diào)劑（0854都可以）
已經(jīng)有3人回復(fù)
libralibra
至尊木蟲 (著名寫手)
驃騎將軍
- 程序強(qiáng)帖: 40
- 應(yīng)助: 817 (博后)
- 金幣: 12914.1
- 紅花: 64
- 帖子: 2238
- 在線: 287.3小時(shí)
- 蟲號(hào): 696514
- 注冊(cè): 2009-02-05
- 專業(yè): 計(jì)算機(jī)軟件
2樓2011-07-02 02:41:02
文俊點(diǎn)點(diǎn)
木蟲 (著名寫手)
- 應(yīng)助: 30 (小學(xué)生)
- 金幣: 2529.5
- 散金: 1796
- 紅花: 1
- 帖子: 1151
- 在線: 500.1小時(shí)
- 蟲號(hào): 1219128
- 注冊(cè): 2011-03-02
- 性別: GG
- 專業(yè): 文藝美學(xué)
3樓2011-07-02 18:10:09
狼馨520
金蟲 (小有名氣)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 1217.7
- 散金: 145
- 帖子: 57
- 在線: 63.3小時(shí)
- 蟲號(hào): 1238429
- 注冊(cè): 2011-03-19
- 性別: GG
- 專業(yè): 能源化工
4樓2011-07-03 01:04:19
jjdg
版主 (知名作家)
- 程序強(qiáng)帖: 9
- 應(yīng)助: 223 (大學(xué)生)
- 貴賓: 3.926
- 金幣: 51005.2
- 紅花: 238
- 帖子: 7227
- 在線: 474.2小時(shí)
- 蟲號(hào): 27000
- 注冊(cè): 2003-10-21
- 專業(yè): 藥物代謝與藥物動(dòng)力學(xué)
- 管轄: 程序語言
【答案】應(yīng)助回帖
★ ★ ★ ★ ★
dubo(金幣+5, 程序強(qiáng)帖+1): 感謝應(yīng)助 2011-07-31 13:47:46
dubo(金幣+5, 程序強(qiáng)帖+1): 感謝應(yīng)助 2011-07-31 13:47:46
|
N 整型變量，輸入?yún)?shù)，節(jié)點(diǎn)個(gè)數(shù) XA() 輸入?yún)?shù)，存放插值節(jié)點(diǎn) YA() 輸入?yún)?shù)，存放函數(shù)值 X 輸入?yún)?shù)，插值自變量 Y 輸出參數(shù)，所求值 DY 輸出參數(shù)，誤差估計(jì) 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 |
5樓2011-07-03 13:43:47
lilac_c
至尊木蟲 (知名作家)
- 程序強(qiáng)帖: 1
- 應(yīng)助: 26 (小學(xué)生)
- 金幣: 20567.5
- 散金: 4751
- 紅花: 29
- 帖子: 7419
- 在線: 636.4小時(shí)
- 蟲號(hào): 1314366
- 注冊(cè): 2011-06-03
- 性別: GG
- 專業(yè): 無機(jī)材料化學(xué)
【答案】應(yīng)助回帖
★ ★ ★ ★ ★
dubo(金幣+5, 程序強(qiáng)帖+1): 感謝應(yīng)助 2011-07-31 13:48:11
dubo: 增加了程序的注釋。程序的注釋其實(shí)比程序跟重要！！這是需要鼓勵(lì)的��！希望大家多寫一些程序的注釋 2011-07-31 13:54:33
dubo(金幣+5, 程序強(qiáng)帖+1): 感謝應(yīng)助 2011-07-31 13:48:11
dubo: 增加了程序的注釋。程序的注釋其實(shí)比程序跟重要！！這是需要鼓勵(lì)的��！希望大家多寫一些程序的注釋 2011-07-31 13:54:33
|
Sub POLINT(XA(), YA(), N, X, Y, DY) 子程序 Dim C(10), D(10) 定義兩個(gè)數(shù)組 NS = 1 DIF = Abs(X - XA(1)) ��！ abstract 絕對(duì)值． For I = 1 To N 循環(huán)體開始，從１，到n， 這個(gè)n賦值是由外部傳入，可以看子程序?qū)?yīng)變量． DIFT = Abs(X - XA(I)) If DIFT < DIF Then 如果dift小于dif NS = I DIF = DIFT End If ！ end if 是 if ...endif 不能缺少． 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��！這個(gè)地方看不很明白，以前自學(xué)的ＢＡＳＩＣ都忘記差不多拆． 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 |
6樓2011-07-04 02:11:21
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 狼馨520 的主題更新
| 6 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 281求調(diào)劑（0805） +6 | 煙汐憶海 2026-03-16 | 16/800 |
|
|---|---|---|---|---|
|
|
[考研] 一志愿華中科技大學(xué)，080502，354分求調(diào)劑 +4 | 守候夕陽CF 2026-03-18 | 4/200 |
|
|
[考研] 一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑 +4 | Ymlll 2026-03-18 | 6/300 |
|
|
|
[考研] 085410人工智能專碩317求調(diào)劑（0854都可以） +3 | xbxudjdn 2026-03-18 | 3/150 |
|
|
|
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +10 | yangfz 2026-03-17 | 10/500 |
|
|
|
[考研] 材料專碩英一數(shù)二306 +4 | z1z2z3879 2026-03-18 | 4/200 |
|
|
|
[考研] 化工學(xué)碩306求調(diào)劑 +10 | 42838695 2026-03-12 | 10/500 |
|
|
|
[考研] 收復(fù)試調(diào)劑生 +4 | 雨后秋荷 2026-03-18 | 4/200 |
|
|
|
[考研] 331求調(diào)劑（0703有機(jī)化學(xué) +7 | ZY-05 2026-03-13 | 8/400 |
|
|
|
[考研] 312求調(diào)劑 +8 | 陌宸希 2026-03-16 | 9/450 |
|
|
|
[考研] 0703化學(xué)336分求調(diào)劑 +6 | zbzihdhd 2026-03-15 | 7/350 |
|
|
|
[基金申請(qǐng)] 被我言中：新模板不強(qiáng)調(diào)格式了，假專家開始管格式了 +4 | beefly 2026-03-14 | 4/200 |
|
|
|
[考研] 材料與化工求調(diào)劑 +6 | 為學(xué)666 2026-03-16 | 6/300 |
|
|
|
[考研] 085601求調(diào)劑 +4 | Du.11 2026-03-16 | 4/200 |
|
|
|
[考研] 211本，11408一志愿中科院277分，曾在中科院自動(dòng)化所實(shí)習(xí) +6 | Losir 2026-03-12 | 7/350 |
|
|
|
[考研] 0856求調(diào)劑 +3 | 劉夢(mèng)微 2026-03-15 | 3/150 |
|
|
|
[考研] 0856專碩279求調(diào)劑 +5 | 加油加油！? 2026-03-15 | 5/250 |
|
|
|
[考研] 289求調(diào)劑 +4 | 這么名字咋樣 2026-03-14 | 6/300 |
|
|
|
[考研] 0856材料與化工301求調(diào)劑 +5 | 奕束光 2026-03-13 | 5/250 |
|
|
|
[考研] 26調(diào)劑/材料科學(xué)與工程/總分295/求收留 +9 | 2026調(diào)劑俠 2026-03-12 | 9/450 |
|