无约束多维优化标轮换法vb编程.docVIP

坐标轮换法程序框图 Vb运行界面 Vb编程程序 Private Sub Command1_Click() Dim s110 As Double Dim s100 As Double Dim s200 As Double Dim s210 As Double Dim x100 As Double Dim x110 As Double Dim x200 As Double Dim x210 As Double Dim αα1 As Double Dim αα2 As Double Dim k As Long Dim a1#, a2#, a3#, a4#, a5#, a6# Dim h#, e1#, e# Dim α0#, α1#, α2#, α3#, a#, b# Dim xx1#, xx2#, yy1#, yy2#, yy3# Dim f2#, f1#, fxx# α0 = Val(Text10.Text) h = Val(Text11.Text) e1 = Val(Text12.Text) x100(0) = Val(Text7.Text) x110(0) = Val(Text8.Text) a1 = Val(Text1.Text): a2 = Val(Text2.Text): a3 = Va