上理机械计算机辅助设计课程线性、抛物线、拉格朗日插值代码（Linear computer aided design course linear, parabolic, Lagrange interpolation code）.docVIP

下载本文档

3
0
约3.01千字
约 12页
2017-09-05 发布于河南
举报
版权申诉

上理机械计算机辅助设计课程线性、抛物线、拉格朗日插值代码（Linear computer aided design course linear, parabolic, Lagrange interpolation code）.doc

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

上理机械计算机辅助设计课程线性、抛物线、拉格朗日插值代码（Linear computer aided design course linear, parabolic, Lagrange interpolation code）

上理机械计算机辅助设计课程线性、抛物线、拉格朗日插值代码（Linear computer aided design course linear, parabolic, Lagrange interpolation code） Form1类函数的INLagrn（ByVal n为整数，一个x() ByVal y()双，双，ByVal T双）双声明i为整数，该整数，K为整数，m为整数昏暗的Z为双，双 Z = 0 # 如果（n＜1）然后 inlagrn = Z 退出功能最后如果如果（n = 1）然后 Z = Y（1） inlagrn = Z 退出功能最后如果如果（n = 2）然后 Z =（Y（1）*（T x（2））Y（2）*（T x（1）））/（x（1）x（2）） inlagrn = Z 退出功能最后如果我= 0 而（（x（i） T）和（我 = n））我=我+ 1 结束的时候 K =我- 4 如果（K＜0）K = 0 M = I + 3 如果（m＞n - 1）m = n - 1 我= K M S = 1 # J = K M 如果（J 我）然后S = S（T x（j + 1））/（x（i + 1）x（j + 1））的拉格朗日插值公式下J Z = Z + * y（i + 1）下一个我 inlagrn = Z 端功能昏暗的T双，Z为双 a（0至9）为双昏暗的K（0～9）倍私有子form1_load（ByVal sender系统。对象，ByVal E系统。EventArgs）处理MyBase。负荷一（0）= 6.58 一（1）= 5.99 一（2）= 5.3 一（3）= 4.92 一（4）= 4.57 一（5）= 4 一（6）= 3.54 一（7）= 3.23 一（8）= 2.85 一（9）= 2.1 K（0）= 4.23 K（1）= 4 K（2）= 3.56 K（3）= 3.21 K（4）= 3.02 K（5）= 2.56 K（6）= 2.35 K（7）= 1.95 K（8）= 1.55 K（9）= 1.04 端子私有子textbox3_textchanged（ByVal sender系统。对象，ByVal E系统。EventArgs）处理textbox3.textchanged 端子私有子button1_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理单击Button1。如果文本=“”的实例。 textBox2。文本=（“请输入查询数值”）退出子最后如果如果Not IsNumeric（textBox1文本）然后 textBox2。文本=（“输入的不是一个数字”）退出子最后如果如果瓦迩（textBox1文本） 6.58或Val（textBox1文本）＜2.1 textBox2。文本=（“不在查询范围”）退出子最后如果我作为整数暗淡昏暗的IsFind布尔 isfind = false 我= 0到9 如果实例。文本=一个（我）然后 textBox2。文本=格式（K（我）、“0”） isfind =真最后如果下一个我如果Not IsFind再 textBox2。文本=（“未赋予插值下不能查询”）退出子最后如果端子私有子button2_click（ByVal sender系统。对象，ByVal E系统。EventArgs）处理单击Button2。如果文本=“”的实例。 textBox2。文本=（“请输入查询数值”）退出子最后如果如果Not IsNumeric（textBox1文本）然后 textBox2。文本=（“输入的不是一个数字”）退出子最后如果如果瓦迩（textBox1文本） 6.58或Val（textBox1文本）＜2.1 textBox2。文本=（“不在查询范围”）退出子最后如果我作为整数暗淡定义m为整数定义x，y为双 X = Val（textBox1文本）我= 0到9 如果（X -（我））*（X -（i + 1）） = 0 M =我退出最后如果下一个我 Y =（X -（m + 1））×K（m）/（A（M）-（m + 1））+（X A（M））×K（m + 1）/（a（m + 1）-（M）） textBox2。文本格式（Y =“0”）端子私有子button3_click（ByVal sender系统。对象，ByVal E系统处理按钮点击事件）。如果文本=“”的实例。 textBox2。文本=（“请输入查询数值”）退出子最后如果如果Not IsNumeric（textBox1文本）然后 textBox2。文本=（“输入的不是一个数字”）退出子最后如果如果瓦迩（textBox1文本