优化设计黄金分割法程序

黄金分割法Option Base 1ConstEps = 0.000001 Const N = 1Const H_QJ = 1#Dim x0() As DoubleDim d() As DoubleP