鮑威爾共軛方向法VB源程序

Dim NCOM, PCOM(50), XICOM(50)

Private Sub Command1_Click()

np = 2 'np個坐標軸，取x軸和Y軸兩個方向

ndim = np

Dim p(2), xI(2, 2)

For i = 1 To np

For j = 1 To np

xI(i, j) = 0#

Next j

Next i

xI(1, 1) = 1#

xI(2, 2) = 1#

p(1) = 1.5

p(2) = 1.5

'鮑威爾法計算子程序

Call powell(p(), xI(), ndim, np, ftol, iter, fret)

Picture1.FontSize = "16"

Picture1.Print Tab(6); "######################################################" Picture1.Print Tab(6); "函數：F(x1,x2)=10*(x1+x2-5)^2+(x1-x2)^2"

Picture1.Print Tab(6); "已知條件：n=2;迭代初始點：xk(n)=[0,0]T"

Picture1.Print Tab(6); "一維搜索步長tt=0.005，一維迭代精度及收斂精度ad=0.0000001" Picture1.Print Tab(6); "############################"

Picture1.Print Tab(6); "迭代次數:"; Format$(iter, "##")

For i = 1 To np

Picture1.Print Tab(6); "極值點x("; i; ")="; Format(p(i), "#0.#####0")

Next i

Picture1.Print Tab(6); "極小值yy="; Format(fret, "#0.#####0")

Picture1.Print Tab(6); "#####################################################" End Sub

Function func(x)

func = f1dim(x)

End Function

Function func2(x(), n)

'方程函數子程序

'AA = (x(1) - 2) ^ 2 + (x(2) - 5) ^ 2

總結

以上是生活随笔為你收集整理的鲍威尔共轭方向法c语言程序,鲍威尔共轭方向法VB源程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。