机械优化设计一维搜索vb编程.doc

《机械优化设计一维搜索vb编程.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、单峰区间确定Functionf(xAsSingle)AsDoublef=Val(Text3.Text)*x*x+Val(Text4.Text)*x+Val(Text5.Text)EndFunctionPrivateSubCommand1_Click()Dima!,b!,a0!,h!Dima1!,a2!,a3!Dimf1!,f2!,f3!a0=Val(Text1.Text)h=Val(Text2.Text)a1=a0f1=f(a1)a2=a1+hf2=f(a2)Iff2>=f1Thenh=-ha3=a1:f3=f1a1=a2:

2、f1=f2a2=a3:f2=f3a3=a2+hf3=f(a3)Elsea3=a2+hf3=f(a3)EndIfDoh=2*h:a1=a2f1=f2:a2=a3f2=f3:a3=a2+hf3=f(a3)LoopWhilef3

3、AsDoublef=Val(Text1.Text)*x^2+Val(Text6.Text)*x+Val(Text5.Text)EndFunctionPrivateSubCommand1_Click()Dima!,b!,e!,a3!Dima1!,a2!,f1!,f2!,F3!a=Val(Text2):b=Val(Text3):e=Val(Text4)a1=b-0.618*(b-a):a2=a+0.618*(b-a)f1=f(a1)f2=f(a2)DoIff1>=f2Thena=a1:a1=a2:f1=f2a2=a+0.618*

4、(b-a)f2=f(a2)Elseb=a2:a2=a1:f2=f1a1=b-0.618*(b-a)f1=f(a1)EndIfLoopUntilb-a<=ea3=(a+b)/2F3=f(a3)Label1.Caption="求优结果："&Chr(13)+Chr(10)&"函数在x="&a3&Chr(13)+Chr(10)&"极值为："&Format(F3,"0.00000")EndSubPrivateSubCommand2_Click()EndEndSub