插值法V源程序.docVIP

下载本文档

23
0
约4.33万字
约 6页
2017-06-14 发布于河南
举报
版权申诉

插值法V源程序.doc

1、本文档共6页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
5、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
6、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
7、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
8、VIP文档为合作方或网友上传，每下载1次，网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档

插值法V源程序

第四章插值方法VB 一、线性插值应用实例VB1 已知：169的平方根为13,196的平方根为14，编程求175的平方根。 Private Sub Command1_click() Dim x(1 To 2),y(1 To 2) As Single x(1)=169:y(1)=13 x(2)=196:y(2)=14 x0=175 y0=F(x,y,x0) a=Format$(y0,###.##) Text1.Text=y0= Str$(a) End Sub Private Function F(x,y,x0) F=y(1)+(y(2)-y(1))/(x(2)-x(1))*(x0-x(1)) End Function 线性插值应用实例VB2 ?已知水的温度与密度和关系如下： 0.9956460.997044 0.995646 0.997044 0.998203 0.99099 0.99700 0.999965 密度/(g/ml) 30.0 25.0 20.0 15.0 10.0 5.0 温度/0C 试编程计算温度为6、13、16、19、23、26 oC时的密度。 Private Sub Command1_click() N = 6 X = Array(0, 5, 10, 15, 20, 25, 30) Y = Array(0, 0.999965, 0.9997, 0.999099, 0.998203, 0.997044, 0.995646) xc = Array(0, 6, 13, 16, 19, 23, 26) List1.AddItem x0 y0 For I = 1 To 6 X0 = xc(I) Y0 = f(N, X, Y, X0) List1.AddItem Str$(X0) Str$(Y0) Next I End Sub Private Function f(N, X, Y, X0) For I = 1 To N If X0 = X(I) Then W = I Exit For End If Next I W = W - 1 If W = 1 Then W = 1: End If If W = N Then W = N - 1: End If f = Y(W) + (Y(W + 1) - Y(W)) / (X(W + 1) - X(W)) * (X0 - X(W)) End Function 二、拉格朗日三点插值实例例：实验测得25OC乙醇溶液的平均摩尔体积v与乙醇的摩尔分数xi的关系数据如下表。试编程求摩尔数xi为0.3时的乙醇溶液的平均体积v。 0.24240.2068 0.2424 0.2068 0.1739 0.1435 0.1153 0.0891 xi 26.95 25.57 24.32 23.18 22.16 21.22 v 0.47710.4207 0.4771 0.4207 0.3697 0.3234 0.2811 xi 36.37 34.07 32.01 30.15 28.47 v VB清单 Dim X, v Private Sub Command1_click() N = 75 X=Array(0,8,7,6,5,4.8,4.6,4.4,4.4,4.0,3.8,3.6,3.4,3.2,3.0,2.9,2.8,2.7,2.6,2.5,2.4,2.00,1.95,1.90,1.85,1.80,1.75,1.70,1.68,1.66,1.64,1.62,1.60,1.58,1.56,1.54,1.52,1.50,1.48,1.46,1.44,1.42,1.40,1.39,1.38,1.37,1.36,1.35,1.34,1.33,1.32,1.31,1.30,1.29,1.28,1.27,1.26,1.25,1.24,1.23,1.22,1.21,1.20,1.19,1.18,1.17,1.16,1.15,1.14,1.13,1.12,1.11,1.10,1.09,1.08,1.07) v=Array(0,0.24978,0.24970,0.24958,0.24937,0.24931,0.24925,0.24917,0.24907,0.24896,0.24883,0.24868,0.24849,0.24825,0.24795,0.24778,0.24758,0.24735,0.24708,0.24678,0.24643,0.24421,0.24380,0.24333,0.24281,0.24222,0.24156,0.24081,0.24048,0.24013,0.23977,0.23938,0.23897,0.23854,0.23807,0.