黄金分割法求函数最小值

'测试表达式 x^2+2*x'测试区间[-3 5]'

测试精度e=0.2

'书上最小值x=-1.0255 f=-0.999

Function RESULT(ByVal expression As String, ByVal x As String) As Single

Dim tmpStr As String

tmpStr = Replace(UCase(expression), "LN", "Log")

tmpStr = Replace(tmpStr, "X", x)

Dim OBJ As Object

Set OBJ = CreateObject("MSScriptControl.ScriptControl")

OBJ.Language = "vbscript"

RESULT = OBJ.Eval(tmpStr)

Set OBJ = Nothing

End Function

Private Sub Command1_Click()

Dim e As Single

Dim a1 As String

Dim a3 As String

Const r = 0.618

Dim f As String

f = InputBox("输入表达式")

a1 = InputBox("输入区间左则值")

a3 = InputBox("输入区间右则值")

e = CSng(InputBox("输入允许误差值"))

a11: a11 = CStr(CSng(a3) - r * (CSng(a3) - CSng(a1)))

f1 = RESULT(f, a11)

a12: a12 = CStr(CSng(a1) + r * (CSng(a3) - a1))

f2 = RESULT(f, a12)

22: If Abs((f2 - f1) / f1) <= e Then

If Abs((CSng(a12) - CSng(a11)) / CSng(a11)) <= e Then

GoTo 33

Else

a1 = CStr(a11)

a3 = CStr(a12)

GoTo a11

End If

Else If f1 > f2 Then

a1 = CStr(a11)

a11 = CStr(a12)

f1 = f2

GoTo a12

Else

a3 = CStr(a12)

a12 = CStr(a11)

f2 = f1

a11 = CStr(CSng(a3) - r * (CSng(a3) - CSng(a1)))

f1 = RESULT(f, a11)

GoTo 22

End If

33: If f1 > f2 Then

ax = CSng(a12)

fax = RESULT(f, a12)

Else

ax = CSng(a11)

fax = RESULT(f, a11)

End If

Print "最小值ax=" & ax Print "

最小值fax=" & fax

End Sub

Private Sub Form_Load()

Form1.WindowState = 2

End Sub

黄金分割法求函数最小值相关推荐

boost::math模块使用 Brent 方法求函数最小值的示例
boost::math模块使用 Brent 方法求函数最小值的示例实现功能 C++实现代码实现功能 boost::math模块使用 Brent 方法求函数最小值的示例 C++实现代码 #inclu ...
用模拟退火算法（simulated annealing / SA）求函数最小值
#用模拟退火算法(simulated annealing / SA)求函数最小值已知函数 f(x) = (x-1)^2 + 3,是求其在[ -2,2 ]的最小值时刻的解下面为运用模拟退火算法求解上 ...
基于遗传算法求函数最小值
一.遗传算法概述遗传算法( genetic algorithm,GA)是一种进化算法,其基本原理是仿效生物界中的"物竞天择.适者生存"的演化法则.遗传算法是把问题参数编码为染色体 ...
【Machine Learning 六】梯度下降法（基于Matlab 求函数最小值）
算法原理梯度下降法是一个最优化算法,可以用来求一个函数的最小值,最大值等,也常用于人工神经网络中更新各个感知器之间的权值,求出cost function的最小值等,应用广泛. 其原理简单,就求函数 ...
遗传算法求函数最小值（多维）1
目标函数: 代码: %%实值遗传算法求函数极值%%%% %%%%%初始化参数%%%%% clear all; %清除所有变量 close all; %清图 clc; %清屏 NP=100; %染色 ...
遗传算法求函数最小值（多维）2
目标函数: 代码: function o=func21(x) o=sum(x.^2-10*cos(2*pi.*x)+10); end %%实值遗传算法求函数极值%%%% %%%%%初始化参数%%% ...
梯度下降求函数最小值C++样例
强力推荐大家阅读<深度学习的数学>一书,日本作家所写(通俗易懂),可当作课外读物阅读 #include<iostream> #include<cmath> usin ...
MATLAB之用黄金分割法求函数极小点
函数:,初始点,精度主程序: clc clear f=@(x) (x-3)*sqrt(x); fplot(f) a=-100; b=100; [fx,x]=huangjin(f,[a b],100) ...
matlab遗传算法求多元函数最小值,matlab遗传算法求函数最小值
function obj=yichuan(lb,ub,px,pm) %lb,ub为自变量的下界与上界,px为杂交概率,pm为变异概率 popsize=40; %设定种群大小为40 maxgen=500 ...

黄金分割法求函数最小值

黄金分割法求函数最小值相关推荐

最新文章

热门文章