机械优化设计一维搜索vb编程Word文档格式.doc
- 文档编号:13261686
- 上传时间:2022-10-09
- 格式:DOC
- 页数:3
- 大小:58.50KB
机械优化设计一维搜索vb编程Word文档格式.doc
《机械优化设计一维搜索vb编程Word文档格式.doc》由会员分享,可在线阅读,更多相关《机械优化设计一维搜索vb编程Word文档格式.doc(3页珍藏版)》请在冰豆网上搜索。
,a2!
a3!
Dimf1!
f2!
f3!
a0=Val(Text1.Text)
h=Val(Text2.Text)
a1=a0
f1=f(a1)
a2=a1+h
f2=f(a2)
Iff2>
=f1Then
h=-h
a3=a1:
f3=f1
a1=a2:
f1=f2
a2=a3:
f2=f3
a3=a2+h
f3=f(a3)
Else
a3=a2+h
f3=f(a3)
EndIf
Do
h=2*h:
a1=a2
f1=f2:
a2=a3
f2=f3:
LoopWhilef3<
f2
Ifa1<
a3Then
a=a1
b=a3
a=a3
b=a1
Label4.Caption="
×
ó
¶
Ë
µ
ã
a="
&
a&
Space(5)&
"
Ó
Ò
b="
b
EndSub
PrivateSubCommand2_Click()
End
黄金分割法
f=Val(Text1.Text)*x^2+Val(Text6.Text)*x+Val(Text5.Text)
e!
f1!
F3!
a=Val(Text2):
b=Val(Text3):
e=Val(Text4)
a1=b-0.618*(b-a):
a2=a+0.618*(b-a)
Iff1>
=f2Then
a=a1:
f2=f(a2)
Else
b=a2:
a2=a1:
f2=f1
a1=b-0.618*(b-a)
f1=f(a1)
EndIf
LoopUntilb-a<
=e
a3=(a+b)/2
F3=f(a3)
Label1.Caption="
求优结果:
"
Chr(13)+Chr(10)&
函数在x="
a3&
极值为:
Format(F3,"
0.00000"
)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 机械 优化 设计 搜索 vb 编程