VB课程设计题目(直线拟合)四星

VB课程设计题目(直线拟合)四星

ID:35625974

大小:55.50 KB

页数:10页

时间:2019-04-03

VB课程设计题目(直线拟合)四星_第1页
VB课程设计题目(直线拟合)四星_第2页
VB课程设计题目(直线拟合)四星_第3页
VB课程设计题目(直线拟合)四星_第4页
VB课程设计题目(直线拟合)四星_第5页
资源描述:

《VB课程设计题目(直线拟合)四星》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库

1、Vb课程设计题目(直线拟合)四星一.功能直线拟合就是将实验中得到的具有线性特性的一组数据通过最小二乘法拟合成一条直线,求出直线方程并绘制出该直线的图形。也就是寻找一条直线使这些离散的点尽可能平均的位于该直线的两边,它对于寻找数据的规律有很大的帮助,是一个比较实用的程序。二.课程设计详细内容该题目的程序由三个窗体组成在Form1中,有1个框架控件,内有6个单选按钮组成的控件数组、1个标签控件、2个命令按钮。单选按钮控件数组用来选择要输入的数据组数,当选择好后,单击“确定”按钮,就可以进入下一个窗体。单击“取消”按钮则退出程序。在Form2中有2个命令按钮、20个文本框(每10个组成一个控

2、件数组)、10个标签控件和许多直线组成。在文本框中输入实验数据后,点击“确定”按钮,若数据没有全部输入,则出现消息框,提醒没有完全输入。若已经完全输入,则显示Form3,隐藏Form2。与此同时,对实验数据计算,得出拟合直线的截距和斜率,并在Form3的标签控件1中体现;根据所得的斜率和截距得到拟合直线方程,并在Form3的标签2中体现;还可以在Form3中绘出拟合直线和每个实验点(用红色),根据实验数据调整坐标系统,画出拟合直线。三、调试程序的过程万事开头难,刚开始时我感觉编程无从下手,但还是硬着头皮开时编程,从窗体的布局开始,根据书上的样式给控件命名其中遇到的第一个问题是控件数组同

3、名问题,通过查书和询问同学我解决了。后面有遇到第二个问题,全局变量的设置问题,这也是概念不清引起的,通过看书这个问题也解决了。第三个问题是显示拟合直线。一开始,我在Form3中画了一个图片框,运行时总显示不了直线,后来索性将它删掉,再次运行时终于能出现直线,可是直线的位置与设想相差太大了。连续尝试了1个多星期后,终于明白了,原来我直接利用得到的直线方程的点的坐标在窗体上画直线是不对的,因为我所画的坐标轴的单位长度和窗体的单位长度不相等,之间需要一定的转换。于是再次修改代码,可还是没有出现预想的情况。重新检查后,没有发现程序错误。我又尝试输入一组特殊数据:(10,21),(20,41),

4、(30,61),(40,81),(50,101)它们的拟合直线应该是Y=2X+1,斜率是2,截距是1,可是运行后斜率是-0.2,截距是-0.1,我再次检查了数据计算部分的代码,又和和我同题目的同学讨论了一番最后发现“令”中的“+”号应改为“-”。这是粗心惹的祸,修改后,在调试过程中再也没出现什么大的问题。四、输入输出数据当选择5组数据时,Ⅰ:(54,76)、(65,83)、(87,89)、(82,61)、(34,22);Ⅱ:(34,56)、(24,89)、(29,59)、(78,61)、(94,57);Ⅲ:(58,26)、(44,77)、(55,89)、(67,65)、(76,98)。

5、运行结果:Ⅰ:截距A=7.9171725,斜率B=0.9041657,直线方程为Y=0.9041657X+7.9171725,坐标比例:×1Ⅱ:截距A=74.72493,斜率B=-0.199323,直线方程为Y=74.7293X-0.199323,坐标比例:×1Ⅲ:截距A=41.1017,斜率B=-0.4983051,直线方程为Y=41.1017X+0.4983051,坐标比例:×1当选择6组数据时,Ⅰ:(54,76)、(65,83)、(87,89)、(82,61)、(34,22)、(44,88);Ⅱ:(34,56)、(24,89)、(29,59)、(78,61)、(94,57)、(4

6、4,88);Ⅲ:(58,26)、(44,77)、(55,89)、(67,65)、(76,98)、(44,88)。运行结果:Ⅰ:截距A=33.64924,斜率B=0.5931818,直线方程为Y=0.5931818X+33.64924,坐标比例:×1Ⅱ:截距A=80.64387,斜率B=-0.2735675,直线方程为Y=-0.2735675X8+0.64387,坐标比例:×1Ⅲ:截距A=69.0728,斜率B=8.381743E-02,直线方程为Y=8.381743E-02X+69.0728,坐标比例:×1五、课程设计总结与心得经过此次程序设计,使我对许多事情的看法有了改变。记得上学期

7、学VB的时候,感觉VB很简单,老师布置的作业也很快完成,多余的时间就在偷偷玩游戏。刚知道自己要做直线拟合这道题时,翻了一下书,感觉很简单,相比选择难题的同学,我心中不免有些得意,心想:快速做完后,再做一个,说不定能得个优。刚开始事情就有点不顺,但也没什么大问题,一直到写完所有程序,开始运行的时候,才发觉最糟糕的事情出现了——运行中没有出现拟合直线,其他的问题都好办,可最终显示不出拟合直线就是失败,眼看着交作业的日子越来越近,心中却一点思绪都没有

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。