24小时热门版块排行榜

返回列表

本帖产生 2 个程序强帖，点击这里进行查看

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

狼馨520

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1217.7
散金: 145
帖子: 57
在线: 63.3小时
虫号: 1238429
注册: 2011-03-19
性别: GG
专业: 能源化工

[求助] 求lagrange插值编码

谁能指教一下lagrange插值的vb 编写方法，我不会，急需！！！

回复此楼

» 猜你喜欢

限项规定已经有6人回复
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向已经有3人回复
救命帖已经有6人回复
存款400万可以在学校里躺平吗已经有37人回复
英文综述是否需要润色及查重已经有5人回复
为什么nbs上溴没有产物点出现呢已经有9人回复
招博士已经有3人回复
最失望的一年已经有18人回复

1楼 2011-07-02 01:33:19

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

lilac_c

至尊木虫 (知名作家)

程序强帖: 1
应助: 26 (小学生)
金币: 20562.5
散金: 4751
红花: 29
帖子: 7418
在线: 636.4小时
虫号: 1314366
注册: 2011-06-03
性别: GG
专业: 无机材料化学

【答案】应助回帖

★ ★ ★ ★ ★
dubo(金币+5, 程序强帖+1): 感谢应助 2011-07-31 13:48:11
dubo: 增加了程序的注释。程序的注释其实比程序跟重要！！这是需要鼓励的！！希望大家多写一些程序的注释 2011-07-31 13:54:33

Sub POLINT(XA(), YA(), N, X, Y, DY)　　子程序
Dim C(10), D(10)　　定义两个数组
NS = 1　　　　　　
DIF = Abs(X - XA(1))　　　！　abstract　绝对值．
For I = 1 To N　　　循环体开始，从１，到n，　这个n赋值是由外部传入，可以看子程序对应变量．
      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！！这个地方看不很明白，以前自学的ＢＡＳＩＣ都忘记差不多拆．
            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