《omwVB十七章程序的设计实例》由会员分享，可在线阅读，更多相关《omwVB十七章程序的设计实例（23页珍藏版）》请在金锄头文库上搜索。
1、计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页VB 应用实例篇应用实例篇第十七章第十七章 程序设计实例程序设计实例 渭龄味势夯趁庆侩傍祭诉澄铭沉胰秋瑚傻嘘磕缀子开祷剔得要诗耕鬼督硼omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页第十七章第十七章 程序设计实例程序设计实例17.1 高次方程求根实例高次方程求根实例 17.2 生物学上的应用实例生物
2、学上的应用实例 谈催栋值砒狡恃衬须纱淮直河榜抛羔童耶疤丛琐养喂玲荫桌世畔圾累惮竖omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页17.1 高次方程求根实例高次方程求根实例在在数数学学中中，通通过过二二次次方方程程的的求求根根公公式式可可以以求求得得二二次次方方程程的的解解，而而二二次次以以上上的的高高次次方方程程求求解解要要使使用用迭迭代代法法求求解解，本本例例使使用用牛牛顿顿切线法求得方程切线法求得方程f(x)的解。的解。苦句攻朵掩密救遇
3、邦眠厌奠檄鹤涩散惭哎檄恭价箱构颗瘸磊抚广普诈献充omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页17.1 高次方程求根实例高次方程求根实例分析：对方程分析：对方程f(x)给定一个初值给定一个初值x0 作为方程的作为方程的近似根，经过若干次迭代后，可以求得方程近似根，经过若干次迭代后，可以求得方程f(x)的指定精度的近似根。牛顿切线法迭代公的指定精度的近似根。牛顿切线法迭代公式为：式为：踢市竖柯湿排郡愧忱邹邱扒饶咬残勒刽俯萨宾幂苏携捶呐捻谍抉
4、筛曰辰话omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页17.1 高次方程求根实例高次方程求根实例其其中中：f(xi)是是f(xi)的的导导数数，当当xi+1-xi 时，时， xi+1就作为方程的近似解。就作为方程的近似解。现现在在以以求求三三次次方方程程f(x)=2x3-6x2-2x+22=0的的根为例根为例 它段欣腊绩跟短撬痕凄渍粮琶谅辩斜疽绎佰帘致磨锨瞬仕疤挖藩碰质应翟omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机
5、应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页17.1 高次方程求根实例高次方程求根实例海寝氰淋放誊衬芦斯俗吐伶借哗数祸跟翔肖酋澳郝栽隘琉诬菊絮邱硷侣值omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页17.2 生物学上的应用实例生物学上的应用实例生物信息学是一门交叉科学，它包含生物信息学是一门交叉科学，它包含了生物信息的获取、处理、存储、分了生物信息
6、的获取、处理、存储、分发、分析和解释等在内的所有方面，发、分析和解释等在内的所有方面，它综合运用数学、计算机科学和生物它综合运用数学、计算机科学和生物学的各种工具，来阐明和理解大量数学的各种工具，来阐明和理解大量数据所包含的生物学意义。据所包含的生物学意义。 措拉倾嫁熟坡敞央彤薯篙胚吊耳顽赁昆韩刁棋弄终资醒毖晨贪咨圭扳帕睁omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页未来的生物学家的特征可能是，用未来的生物学家的特征可能是，用计算机做数据
7、分析和模拟的能力大计算机做数据分析和模拟的能力大于使用传统的显微镜的能力。生物于使用传统的显微镜的能力。生物学是数学使用的很多的科学，因为学是数学使用的很多的科学，因为生命系统包含了化学及物理过程，生命系统包含了化学及物理过程，而这些过程都可以用数学描述。而这些过程都可以用数学描述。生物学上的应用实例生物学上的应用实例诀栅袖蜀气含她蔬侈盏诗崭察夷域烦鼎乏拈私叶烷芋细忱若冷构肘祝鸦走omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应
8、用实例生物学上的应用实例在数学模型建立的基础上，我们可在数学模型建立的基础上，我们可以使用计算机这一工具，来对生物以使用计算机这一工具，来对生物过程进行分析和模拟。在这一节中，过程进行分析和模拟。在这一节中，我们通过简单的例子，来介绍一下我们通过简单的例子，来介绍一下怎样使用计算机进行模拟。怎样使用计算机进行模拟。艇折馅稻舟旧颈静佰辉杭嗡续愁线轮攻表辕峦芳造卷屿届岸浊潦枷旭目啪omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实
9、例生物学上的应用实例在本例中，我们从对群体生长与在本例中，我们从对群体生长与群体密度的函数关系的一般观察群体密度的函数关系的一般观察入手，来研究一下无限群体生长入手，来研究一下无限群体生长模型。即细菌或酵母越多，它们模型。即细菌或酵母越多，它们就生长越快。就生长越快。峨肪涤候额钧葵楚奔谬识琼蓉纳举振乌烧勺熟女帛澄怖宽卸言树该淘帮闹omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页按照这种普遍的假设，我们可按照这种普遍的假设，我们可以写出群体生
10、长的模型方程：以写出群体生长的模型方程：Nt=N0ekt生物学上的应用实例生物学上的应用实例有搁加咎舌卵渡同疟庇箱暗咒竞要镶刃褐患榜侣潜抄侮韶别悬习凝胸珐且omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页该该方方程程描描绘绘了了初初始始群群体体密密度度为为N0，生生长长率率常常数数为为k的的任任意意时时刻刻t的的群群体体密密度度。显显然然，该该方方程程对对应应的的曲曲线线是是典典型型的的指指数数增增长长曲曲线线，它它在在一一定定范范围围内内
11、可可以以用用来描述多种正反馈或自生系统。来描述多种正反馈或自生系统。生物学上的应用实例生物学上的应用实例隅舆栋讯栋橙搭殿肿苫厨虞酞步蒙嗣围涣供忍碗塑阅侧引哨戮满腋芝吃湾omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页如图所示如图所示:生物学上的应用实例生物学上的应用实例勉丧抨求职呕构屠财料惜运壤摸抵境秉党獭掸犁驶媳特内走彻匀铣链回团omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Bas
12、ic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实例生物学上的应用实例在计算机上，我们可以使用在计算机上，我们可以使用数据流程图来对该方程进行数据流程图来对该方程进行模拟，如下图所示。模拟，如下图所示。 欣构丛去耗偿儡仕弱靡七措卞酪趋戊肮盟账名柞龄扼爱劈瞧吹协故概旦铝omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实例生物学上的应用实例T是否增加到最大是否增加到最大开
13、开始始读读入入参参数数T=0计计算算NT输输出出结结果果并并绘绘图图增增加加t t结结束束否否是是参数：0,k,tmax, t Nt=N0ekt然悲兜寞酪炮古杀坦字济遂谅赶供婿猫呆佯准率渍舜语啸黍绸狈嵌天阿钥omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实例生物学上的应用实例在在Visual Basic中实现该算法是很容中实现该算法是很容易的，只需要有一个窗口，能够输易的，只需要有一个窗口，能够输入相关的数据，并点击入相关的
14、数据，并点击“模拟模拟”按按钮后，就可以在图形框中绘出图形。钮后，就可以在图形框中绘出图形。如下图如下图 资骑礼打巧降忧蒲万质刷晓患枚矾绘脓完苏足吃标挞挟叭绝容胞首努爵松omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实例生物学上的应用实例窗窗体体设设置置囤孙书驯佣井注汉寐搁狭钓碴椽榜坎屹色烬路潜蹦候洲蓟伞述伸瞄硝叔钉omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Bas
15、ic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实例生物学上的应用实例例如，我们知道来模拟某细菌的无限生长。时例如，我们知道来模拟某细菌的无限生长。时间范围从间范围从0到到50小时。其中，初始群密度为小时。其中，初始群密度为2/毫毫升，生长率常数是升，生长率常数是0.02/小时，每隔一小时进行小时，每隔一小时进行一次采样，则可以绘制出如下的图形。而如果一次采样，则可以绘制出如下的图形。而如果希望做一次新的模拟，比如将生长率常数调整希望做一次新的模拟，比如将生长率常数调整为为0.05，那么只需要将屏幕清除，输入新的，那么只需要将屏幕清除
16、，输入新的K值，再进行一次模拟便可值，再进行一次模拟便可 捌吠彭片匡芹扣排宰峰茫膊趾芭城免醒晦肉换营釜炒汝洛酚悼坐浸幕邪饼omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实例生物学上的应用实例生生长长率率常常数数 (K=0.05)的的模模拟拟曲曲线线 巡慌刊障育粉肩杀刑襄概柠诸芍钢邱啊农亲函警瘁汀腻蒂吵丈阉示勒拿痪omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic
17、 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实例生物学上的应用实例生生长长率率常常数数 (K=0.02)的的模模拟拟曲曲线线 揽燃赣嵌份骏侯耕仅临门载丢篮朵升异磺来馁榜谆彪娥呈冠蔗癣愧传淳参omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页生物学上的应用实例生物学上的应用实例需要说明的是，对于不同的情况，应需要说明的是，对于不同的情况，应当根据实际建立恰当的当根据实际建立恰当的数据模
18、型数据模型，比，比如在以上我们讨论的无限生长模型中，如在以上我们讨论的无限生长模型中，没有考虑环境的容纳数量、死亡率等没有考虑环境的容纳数量、死亡率等因素，如果考虑这些因素的话，群体因素，如果考虑这些因素的话，群体生长公式将变的较为复杂。生长公式将变的较为复杂。爵畜紧系货涯喧抽啥月给俏募稼发娩捕痛跨磷蛀憾泌放枣芍贯稳祭茎钳惫omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页垃贾隔旷狭扛寺遵傣烫况屡驴鹰颗阻政厦稼发炬析谎望绞者林友树大拙那omwVB十七章程序的设计实例omwVB十七章程序的设计实例计算机应用基础计算机应用基础-Visual Basic 6.0-Visual Basic 6.0程序设计教程程序设计教程下一页下一页上一页上一页THANK YOU VERY MUCH！本本章章到到此此结结束束，谢谢谢谢您您的的光光临临！疼弹绘简衡刁揩捶屡顺龙雄柴稼挡妓倪缨虫脓屉瞧彤彝赐桔戒隅行瓷零通omwVB十七章程序的设计实例omwVB十七章程序的设计实例
