机械优化设计上机实验指导书进退法

《机械优化设计上机实验指导书进退法》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、《机械优化设计上机实验指导书》（编写人：武照云）一、上机实验教学的性质、目的及任务上机实验是理论联系实际的重要环节。通过上机可以使学生巩固加深对所学内容的理解，能够分析并掌握机械优化设计的一些基本方法，能够阅读、编写、调试简单的优化求解程序，或选用适当的优化方法解决简单的工程实际优化问题，从而培养学牛把理论应川于实际、解决实际问题的能力，为以后从事专业技术或研究工作打下坚实的基础。二、主要设备及软件配置硬件：计算机（1台从）软件：VB6.0软件三、上机实验内容（一）实验名称利用进退法求解一维优化问题的搜索区间（二）实验内容1、题目用进退法求函数/（x）=x2-7x+10的搜索区间[a,

2、b]2、实验过程指导（1）打开MicrosoftVisualBasic6.0软件，新建"工程1”（2）创建应用程序界而①单击左侧控件箱屮的Label控件，然示鼠标变成十字线；将鼠标移到窗体上，再拖动鼠标画出适合控件人小的方框（拖动的意思是按住鼠标左键用鼠标指针移动对象），这样就憾好了一个Label控件，其名称为“Labell”。然后，在右侧的属性栏中，找到Caption属性,将其属性值改为“进退法实验程序”；①按上面的同样方法,在窗体中放置Label控件（“Labe】2”），将其Caption属性设置为"初始点二”；②在Label2后而放置一个ToxtBox（文本框）控件，其名称默认为

3、Toxtl,在属性栏中，找到Text属性，将其值设置为空；③在Textl后面，放置Label控件（“Lsbel3”），将其Caption属性设置为“初始步长hO二”；④在Labe13后面放置一个TextBox（文本框）控件，其名称默认为Text2,在屈性栏屮，找到Text属性，将其值设置为空；⑤在窗体中，放置一个CommandButton（按钮）控件，其名称默认为Command1,在属性栏中,找到Caption属性,设置为“开始求解”;⑥在按钮下方,放置控件Label4,Caption属性设置为“计算结果为：”,在Label4后面,再放控件Label5,将Caption属性设置为空;⑦

4、双击上而已放置的CoinmandButton（按钮）控件，自动出现代码输入窗口FE工程1-Fontl(Code)□0®Conaandl▼

5、

6、ClickzJPrivateSubCommandlJC1ick()TEndSub⑧在下方空口处输入如卜•代码:'用于求X的函数值PrivateFunctionFVtilue(xAsDouble)AsDouble'在这里可以修改成任一函数表达式FValue=x"2-7*x+10EndFunction⑨在上方的PrivateSubCommand1_C1ick()和EndSub之间，输入如下代码：'声明变量DimhAsDouble,alAsDouble,

7、flAsDouble,a2AsDouble,f2AsDouble,a3AsDouble,f3AsDouble,aAsDouble,bAsDouble'进退法程序代码h=CDbl(Text2.Text)al=CDbl(Tcxtl.Text)fl=FValue(al)a2=al+hf2=FValue(a2)Iff2>=flThen'改变搜索方向h=・h'区间符号变换a3=alf3=flal=a2fl=f2a2=a3f2=fBEndIf'计算a3点及具函数值a3=a2+hf3=FValue(a3)'搜索函数的高■低■高区间DoWhilef3

8、2fl=f2a2=a3f2=f3'计算a3点及其函数值a3=a2+hf3=FValue(a3)Loop'根据搜索方向，输出区间端点Ifh>0Thena=alb=a3Elsea=a3b=alEndIf'在屏幕上输出计算结果Label5.Caption二“左端点a=u+CStr（a）+“，右端点b二”+CStr（b）（3）调试。按F5调试程序（或菜单一一运行——启动）在启动窗体的文本框屮，输入初始参数（如初始点为0,初始步长为1）,然后点击“开始求解”按钮，程序会马上返冋计算结果（如左端点心2,右端点b=8）可以再输入不同的初始参数进行调试，并观察在不同初始参数下的计算结果有何不同。本题I

9、I是针对函数/（x）=〒_7x+10进行求解，也可以修改成其他断数衣达式，然后再进行调试（有兴趣同学可以尝试）（4）保存程序（最好将自己编制的程序保存到e盘）