一维优化方法上机指导.docVIP

一维优化方法上机指导 一、实验目的 利用一维优化方法求目标函数的最优解。一维优化方法包括格点法、黄金分割法、二次插值法等。 二、原理 黄金分割法也称0.618法。其作法是通过对分割点函数值进行比较来逐次缩短区间。 首先，在初始有哪些信誉好的足球投注网站区间内部取两个点与，且在区间内处对称位置，两点对应的函数值为： 比较两者的大小，有下面两种情况： （1）若有，极小点必在区间内，此时新区间取为； （2）若有，极小点必在区间内，此时新区间取为。 黄金分割法取两个内点与为对称，且区间缩短率。则内分点的取点规则为： 当区间长度满足精度要求时，迭代终止。即 取最终收缩区间的中点为近似最优点，最优解为： 流程图如下： 三、上机实验内容 用黄金分割法求目标函数的最优解。给定初始区间为，精度为 代码如下： Private Sub Command1_Click() Dim a, b, x1, x2, f1, f2, e, f As Double Dim n As Integer a = Val(Text1.Text) b = Val(Text2.Text) e = Val(Text7.Text) n = 0 While (b - a) e x1 = a + 0.382 * (b - a) x2 = a + 0.618 * (b - a) f1 = x1 * x1 - 6 * x1 + 9 f2 = x2 * x2 - 6 * x2 + 9 If f1 f2 Then b = x2 a = a Else a = x1 b = b End If n = n + 1 Wend x = 0.5 * (b + a) f = x * x - 6 * x + 9 Text3.Text = n Text4.Text = f Text5.Text = a Text6.Text = b Text8.Text = x End Sub Private Sub Command2_Click() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = Text8.Text = Text1.SetFocus End Sub Private Sub Command3_Click() End End Sub 入口 给定： 出口 是 否 是 否