用黄金分割法求 f(x) = 8 * x ^ 3 - 2 * x ^ 2 - 7 * x + 3 的最优解(VB),在线

来源：学生作业帮编辑：灵鹊做题网作业帮分类：数学作业时间：2024/05/29 06:22:50

用黄金分割法求 f(x) = 8 * x ^ 3 - 2 * x ^ 2 - 7 * x + 3 的最优解(VB),在线等.
初始单峰区间【0,2】,迭选精度0.01

黄金分割法（又称0.618法）是用来求单峰函数的最大值（或最小值）的算法.
这是一种搜索法,不需要利用函数的导数值.
0.618法是根据黄金分割原理设计的,所以又称之为黄金分割法.
　　优选法是一种求最优化问题的方法.如在炼钢时需要加入某种化学元素来增加钢材的强度,假设已知在每吨钢中需加某化学元素的量在1000—2000克之间,为了求得最恰当的加入量,需要在1000克与2000克这个区间中进行试验.通常是取区间的中点(即1500克)作试验.然后将试验结果分别与1000克和2000克时的实验结果作比较,从中选取强度较高的两点作为新的区间,再取新区间的中点做试验,再比较端点,依次下去,直到取得最理想的结果.这种实验法称为对分法.但这种方法并不是最快的实验方法,如果将实验点取在区间的0.618处,那么实验的次数将大大减少.这种取区间的0.618处作为试验点的方法就是一维的优选法,也称0.618法.实践证明,对于一个因素的问题,用“0.618法”做16次试验就可以完成“对分法”做2500次试验所达到的效果.
所用到的 0.618 是黄金分割比的近似值.
黄金分割比 = (sqrt(5)-1)/2 = 0.61803398874989484820...
黄金分割比又等于斐波那契数列的 a(n)/a(n+1),n->∞
Private Sub Form_Activate()
Dim x As Double
Dim f As Double
Dim MM
MM = 0.1 '省略小数
For x = 0 To 2 Step 0.01
f = 8 * x * x * x - 2 * x * x - 7 * x + 3
If Abs(f - 0.618) < 0.1 Then
Print x
End If
Next
End Sub
有问题 ,思路是这样的,程序有问题

用黄金分割法求 f(x) = 8 * x ^ 3 - 2 * x ^ 2 - 7 * x + 3 的最优解(VB),在线用黄金分割法求f(x)=(x-3)的最优解附C语言程序 vb编程用牛顿迭代法求f(x)=3x^3-4x^2-5x+13 matlab中编写黄金分割算法,求一元函数f(x)=x^3-17.7x^2+19.2x-15.3在区间[5,15]内的极 VB编程问题用二分法求方程F(X)=X^3-X-1=0在区间[1,1.5]内的解要求∑=10^-2 matlab编写黄金分割法求f(x)=x2+2x在区间[-3,6]的极小值程序九万火急!不是c程序定义F(x)=max[f(x),g(x)],已知函数f(x)=x^2-x-3,g(x)=x+5,求F(x)的最大值求f(x)=(x-2)^2/(x+1),f(x)=(x^2+9)(x-3/x)的导数. 已知 X=4- 根号3 求 (X*X*X*X-6X*X*X-2X*X+18X+23) / (X*X-8X+15)的值 F(X)满足F(x)+2f(x分之1)=3X,求f(x) 已知f(x)满足2f(x)+f(1/x)=3x,求f(x) 已知f(x)满足2f(x)+f(1/x)=3x,求f(x)?