欢迎来到天天文库
浏览记录
ID:48520889
大小:81.50 KB
页数:8页
时间:2020-01-23
《最速下降法编程.ppt》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、相关公式如下:X(k)点的搜索方向令:=0参考界面函数请输入初始点x1x2计算清除计算后结果x1x2目标函数值请输入精度优化设计VB编程(仅供参考)PrivateSubCommand1Click()Dimx1AsSingle,x2AsSingle,JDAsSingleDimcAsSingle,JGAsSingle,aAsSinglex1=Val(text1.Text)x2=Val(text2.Text)JD=Val(text3.Text)a=0c=Sqr((2/3*x1)^2+x2^2)DoWhilec>JD
2、a=(4/9*x1^2+x2^2)/(8/27*x1^2+x2^2)x1=x1+a*(-2/3*x1)x2=x2+a*(-x2)c=Sqr((2/3*x1)^2+x2^2)LoopJG=1/3*x1^2+1/2*x2^2text4.Text=JGtext5.Text=x1text6.Text=x2EndSubPrivateSubCommand2Click()text3.Text=“”text4.Text=“”text5.Text=“”text6.Text=“”EndSub
此文档下载收益归作者所有