无约束多维优化牛顿法vb编程.docVIP

无约束多维优化牛顿法vb编程 Vb编程运行后的界面 Vb程序 Private Sub Command1_Click() Dim m1 As Double Dim m2 As Double Dim m3 As Double Dim m4 As Double Dim m5 As Double Dim m6 As Double Dim xx As Double Dim fxx As Double Dim yp1 As Double Dim yp2 As Double Dim x1 As Double Dim x2 As Double Dim ε As Double Dim ε1 As Double Dim h As Double Dim p0 As Double Dim p1 As Double Dim p2 As Double Dim p3 As Double Dim yp3 As Double Dim tidu(1, 0) As Double Dim haise(1, 1) As Double Dim haiseni(1, 1) As Double Dim s1 As Double Dim s2 As Double Dim xx1 As Double Dim xx2 As Double Dim xx3 As Double m1 = Val(InputBox(请输入x1^2的系数m1, 输入框, 0)) m2 = Val(InputBox(请输入x2^2的系数m2, 输入框, 0)) m3 = Val(InputBox(请输入x1*x2的系数m3, 输入框, 0)) m4 = Val(InputBox(请输入x1的系数m4, 输入框, 0)) m5 = Val(InputBox(请输入x2的系数m5, 输入框, 0)) m6 = Val(InputBox(请输入常数项m6, 输入框, 0)) x1 = Val(InputBox(请输入迭代初始点x1, 输入框, 0)) x2 = Val(InputBox(请输入迭代初始点x2, 输入框, 0)) ε = Val(InputBox(请输入迭代收敛精度ε, 输入框, 0)) ε1 = Val(InputBox(请输入一维有哪些信誉好的足球投注网站的收敛精度ε1, 输入框, 0)) h = Val(InputBox(请输入一维有哪些信誉好的足球投注网站的初始步长h, 输入框, 0)) p0 = Val(InputBox(请输入一维有哪些信誉好的足球投注网站的初始点p0, 输入框, 0)) Label1.Caption = 目标函数：f(X)= m1 x1^2 + m2 x2^2 + m3 x1x2 + m4 x1 + m5 x2 + m6 Label2.Caption = 迭代初始点x1= x1 和 x2= x2 vbLf 迭代收敛精度ε= ε Label3.Caption = 一维有哪些信誉好的足球投注网站的初始点p0= p0 vbLf 一维有哪些信誉好的足球投注网站的初始步长h= h vbLf 一维有哪些信誉好的足球投注网站的收敛精度ε1= ε1 tidu(0, 0) = 2 * m1 * x1 + m3 * x2 + m4 tidu(1, 0) = 2 * m2 * x2 + m3 * x1 + m5 haise(0, 0) = 2 * m1 haise(0, 1) = m3 haise(1, 0) = m3 haise(1, 1) = 2 * m2 haiseni(0, 0) = 2 * m2 / (4 * m1 * m2 - m3 ^ 2) haiseni(0, 1) = -m3 / (4 * m1 * m2 - m3 ^ 2) haiseni(1, 0) = -m3 / (4 * m1 * m2 - m3 ^ 2) haiseni(1, 1) = 2 * m1 / (4 * m1 * m2 - m3 ^ 2) Do While (tidu(0, 0)) ^ 2 + (tidu(1, 0)) ^ 2 ε s1 = -(haiseni(0, 0) * tidu(0, 0) + haiseni(0, 1) * tidu(1, 0)) s2 = -(haiseni(1, 0) * tidu(0, 0) + haiseni(1, 1) * tidu(1, 0)) p1 = p0 xx1 = x1 + p1 * s1: xx2 = x2 + p1 * s2 yp1 = m1 * xx1 ^ 2 + m2 * xx2 ^ 2 + m3 * xx1 * xx2 + m4 * xx1 + m5 * xx2 + m6 p2 = p0 + h xx1 = x1 + p2 * s1: xx2 = x2 + p2 * s2 yp