在工作中经常会遇到插值与拟合,刚好我正在学习vb2005,就用其编写了个插值与拟合的小软件。在使用本软件之前要先安装微软的.net framework 2.0,下载地址:http://www.microsoft.com/downloads/details.aspx?FamilyID=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5&displaylang=zh-cn ,安装的过程需要几分钟,请耐心等待。
在工作中经常会遇到插值与拟合,刚好我正在学习vb2005,就用其编写了个插值与拟合的小软件。
在使用本软件之前要先安装微软的.net framework 2.0,下载地址:http://www.microsoft.com/downloads/details.aspx?FamilyID=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5&displaylang=zh-cn ,安装的过程需要几分钟,请耐心等待。
以下是插值与拟合软件的安装包,双击里面的文件 插值软件_1_0_0_5.application就可以安装了,安装好了会在开始菜单里出现,要卸载它的话进入控制面板就可以卸载了。
下面是程序启动的界面
在左上方表格区 右键>导入数据可以把以文本格式存储的数据导入,也可以手动输入。文本数据的格式如下:
两列以tab键分隔(把EXCEL里面的两列数据复制>粘贴到文本文件里就ok了。)
1 38.00
4 38.07
7 38.39
10 39.21
13 39.95
16 40.23
19 40.32
22 40.35
25 40.33
28 40.27
31 40.16
34 40.01
所要插值的点值的x坐标同样可以由数据文件导入(在左下角的表格区域右键),格式如下:
1
1.5
2.3
3.4
5.6
2楼
直线差值
示例1:用推理公式做了一个洪水过程,用其进行调洪计算,由于5~8时段内过程线变化剧烈,为了调洪结果更加准确,我们可以在5~8时段内插入些点值来控制。
插值结果如图
回复
3楼
多项式插值
示例2:现有一个水位流量关系,使用多项式插出需要的点值。
导入数据文件,选多项式插值,在弹出的窗口里选4项式插值,结果如图
回复
4楼
多项式插值
示例3:根据三点求抛物线方程,并求出抛物线上任意点的坐标。
结果如图
回复
5楼
三次样条插值
示例4:三次样条曲线可以简单的认为是过控制点画光滑的曲线,有三种边界条件,这里用的是自然边界条件。
(求助:希望有高手能告诉我EXCEl里的光滑曲线是这么画出来的,先谢了!)
有一个水位过程,对其插值,结果如图
回复
6楼
注意事项
1.程序每次进行插值计算时会生成一个隐藏的工作簿,如果要
显示出来请按F2。
2.程序启动的时候会在生成一个excel进程,当有多个excel进程时
,程序退出时无法判断要终结哪个(望有高手赐教!!),所以为了不在用户的内存里留下垃圾,
程序退出之后终结所有的excel进程,所以请提前做好保存工作。
3.如果不想终结所有的excel进程,请在程序启动之后候按F1。
回复
7楼
声明:
本软件是在excel 的基础上做的一个二次开发软件。
以前用的是vba,现在用vb2005发现里面的很多东西让人很困惑,比如
在图表里添加一个系列,竟然不能设置其引用的值,困惑了很久,还有
所要插值的点超过20多个时候,插值点坐标可以计算出来,插值点竟然无法在图表里绘出,说是
公式出错,要崩溃了,希望有高手能指点迷津,在次先谢过了!
源代码
代码写的很丑,考虑了下还是发布吧,就当是起到抛砖引玉的作用。
有问题QQ:95356671 结交编程爱好者。
回复
8楼
支持楼主,继续努力!
回复
9楼
aaa
回复
10楼
谢谢!下载来学习一下先
回复
11楼
太感谢楼主拉,早就想学习一下这个,但一直没有机会,值得一看!!!!!
回复