VBA中使用CallByName函数和黄金分割方法实现任意单变量函数求极值和方程求解

使用本程序可可以在Excel中求解任意形式的函数极值和方程的解。

下载地址：https://download.csdn.net/download/tom_c_tom/20367254

用法：
1、载入UfrmE窗体和ExtremandSolution类模块
2、创建一个用户自定义类模块，写入要求解或求极值的函数。模块名称和函数名称由用户指定
3、创建程序调用模块，使用New关键字声明1个类为ExtremandSolution变量和1个类为上述自定义类的变量。
4、在模块中调用求极值的方法或解方程的函数
5、ExtremandSolution类成员
    UniSolution方法：单调函数求解，返回一个解的X值。
    MultiSolution方法:非单调函数求解，返回一个解的数组变体
    CountofSolutions属性：只读。返回非单调函数解的个数，需在执行MultiSolution之后读取。
    SinglePeakCalc方法: 执行单峰求峰计算。
    XofPeak属性：只读。返回单峰函数峰的X值，需先执行SinglePeakCalc方法。
    YXofPeak属性：只读。返回单峰函数峰的Y值，需先执行SinglePeakCalc方法。
    MultiPeaksCalc方法: 执行多峰求峰计算。
    XarrayofPeaks属性：返回多峰函数求峰计算的顶点X数组变体,需先执行MultiPeaksCalc方法。
    YarrayofPeaks属性：返回多峰函数求峰计算的顶点Y数组变体,需先执行MultiPeaksCalc方法。
    CountofPeaks属性:返回多峰函数峰的个数,需先执行MultiPeaksCalc方法。

注意：函数的必须处于定义域之内，因此需要用户自行判断定义域范围，对定义域不连续的，应由用户自行分段。