vb拉格朗日插值PrivateSubCommand1_Click()DimnAsIntegerDimyi()AsSingle,xi()AsSingle,li()AsSingleDimy0AsSingle,x0AsSinglen=Val(InputBox("输入插值点的个数"))+1x0=Val(InputBox("输入要求点的x值"))ReDimyi(n)ReDimxi(n)ReDimli(n)Fori=1Tonyi(i)=Val(InputBox("输入第"&i...
PrivateSubCommand1_Click()DimnAsIntegerDimyi()AsSingle,xi()AsSingle,li()AsSingleDimy0AsSingle,x0AsSinglen=Val(InputBox("输入插值点的个数"))+1x0=Val(InputBox("输入要求点的x值"))ReDimyi(n)ReDimxi(n)ReDimli(n)Fori=1Tonyi(i)=Val(InputBox("输入第"&i&"个插值点的y值"))xi(i)=Val(InputBox("输入第"&i&"个插值点的x值"))NextiFori=1Tonli(i)=1NextiFori=1TonForj=1TonIfi<>jThenli(i)=li(i)*(x0-xi(j))/(xi(i)-xi(j))NextjNextiFori=1Tony0=y0+li(i)*yi(i)Nexti=y0EndSub
本文档为【vb拉格朗日插值】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。