插值与拟合软件(提供源代码vb2005)
freeskychenjun
2007年11月07日 09:34:38
只看楼主

在工作中经常会遇到插值与拟合,刚好我正在学习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



1194399276906.jpg

aa2e35665f27d4776e95.rar
257 KB
立即下载
freeskychenjun
2007年11月07日 09:44:07
2楼
直线差值

示例1:用推理公式做了一个洪水过程,用其进行调洪计算,由于5~8时段内过程线变化剧烈,为了调洪结果更加准确,我们可以在5~8时段内插入些点值来控制。
插值结果如图
回复
freeskychenjun
2007年11月07日 09:53:24
3楼
多项式插值

示例2:现有一个水位流量关系,使用多项式插出需要的点值。
导入数据文件,选多项式插值,在弹出的窗口里选4项式插值,结果如图
回复
freeskychenjun
2007年11月07日 10:00:53
4楼
多项式插值
示例3:根据三点求抛物线方程,并求出抛物线上任意点的坐标。
结果如图
回复
freeskychenjun
2007年11月07日 10:21:39
5楼
三次样条插值

示例4:三次样条曲线可以简单的认为是过控制点画光滑的曲线,有三种边界条件,这里用的是自然边界条件。
(求助:希望有高手能告诉我EXCEl里的光滑曲线是这么画出来的,先谢了!)



有一个水位过程,对其插值,结果如图
回复
freeskychenjun
2007年11月07日 10:30:13
6楼
注意事项

1.程序每次进行插值计算时会生成一个隐藏的工作簿,如果要
显示出来请按F2。

2.程序启动的时候会在生成一个excel进程,当有多个excel进程时
,程序退出时无法判断要终结哪个(望有高手赐教!!),所以为了不在用户的内存里留下垃圾,
程序退出之后终结所有的excel进程,所以请提前做好保存工作。

3.如果不想终结所有的excel进程,请在程序启动之后候按F1。

回复
freeskychenjun
2007年11月07日 10:35:00
7楼
声明:
本软件是在excel 的基础上做的一个二次开发软件。
以前用的是vba,现在用vb2005发现里面的很多东西让人很困惑,比如
在图表里添加一个系列,竟然不能设置其引用的值,困惑了很久,还有
所要插值的点超过20多个时候,插值点坐标可以计算出来,插值点竟然无法在图表里绘出,说是
公式出错,要崩溃了,希望有高手能指点迷津,在次先谢过了!


源代码

代码写的很丑,考虑了下还是发布吧,就当是起到抛砖引玉的作用。

有问题QQ:95356671 结交编程爱好者。
回复
zwhhxf
2007年11月16日 11:06:51
8楼
支持楼主,继续努力!
回复
oliver97
2007年11月23日 08:48:20
9楼
aaa
回复
gxls63
2007年11月23日 15:58:16
10楼
谢谢!下载来学习一下先
回复
qinxuguang82
2007年12月19日 22:15:53
11楼
太感谢楼主拉,早就想学习一下这个,但一直没有机会,值得一看!!!!!
回复

相关推荐

APP内打开