请教：这样的函数怎么调用？

yiyiyicz

在VBA编程遇到这样的问题：
sub z1(x1,x2,succ)
f1=fun(x1)
f2=fun(x2)
if f1*f2<=0 then succ="tt"
end sub
这个过程是调用函数fun(  )，求出fun(x2)，fun(x2)的值。当两个函数值乘积小于等于0，返回succ=tt

而问题在于，假设fun(  )对应的函数有两个
1，fun(x)=cos(x)+x
2，fun(x)=x^2+20

请教：怎么能只写一个过程 sub z1( )，而根据不同情况调用调用不同的函数
这些函数事先定义，可以每个工作表对应一个函数

实际情况函数有10几个，并且还会增加。
过程z1( )实际上一个方程求解的过程，很长

希望各位高手伸手帮忙，先谢谢！！！！
这是个过程调用函数的问题，不是数值解法的问题

2楼zamyi的方法，一目了然，可用。就是有点麻烦
9楼ljw的方法，代码读不懂，是一种高级方法
17楼，重新划分模块，组装流程。对标准的方程数值解做简单的变化

继续求解

Zamyi

不清不楚，猜想用SELECT CASE

蓝桥玄霜

什么样的不同情况？条件不清楚。
建议上传表格附件来说明问题。

roc.jame

怎么会这么多函数  看不明白

yiyiyicz

Zamyi 发表于 2012-8-9 08:48
不清不楚，猜想用SELECT CASE

谢谢zamyi回复
select case 我也想了。觉得比较麻烦
而且函数还要增加

yiyiyicz

蓝桥玄霜 发表于 2012-8-9 08:51
什么样的不同情况？条件不清楚。
建议上传表格附件来说明问题。

谢谢蓝桥版主回复，程序还没写完

情况详细描述：
z1( )过程是一个方程求解的一般性方法，比如两分法
但是具体求解的方程可以是抛物线，也可以是双曲线。实际待求解的曲线方程很多
现在，我希望用一个通用的方程求解的方法，去解不同的函数方程（抛物线、双曲线等）
这些曲线方程都不是线性方程，带有各式各样的三角函数

蓝桥玄霜

这方面的问题建议搜索一下，应该有类似的。
如：《科学与工程数值计算算法（Visual Basic版）》

yiyiyicz

roc.jame 发表于 2012-8-9 08:53
怎么会这么多函数  看不明白

这些函数是齿轮啮合有关的曲线
当变位系数变化，对许多因素都会有影响（轮齿肥点、瘦点，尖点，矮点等等）
现在根据几何解析关系，确定变位系数选择区间（也就是超出区间就不合理了）
这些曲线全部加起来有20几个，曲线多数形状怪异，这些曲线再围成一个复杂的区域。设计者只能在区域内选择变位系数
这些曲线可以用通用的数值方法求解（比如二分法）
也就是用一个通用的方法，求解不同的函数方程

这东西学名叫做电子封闭图，至今也没人将完整的代码公开

ljw990485

二分法吧
http://club.excelhome.net/thread-588684-1-1.html

yiyiyicz

蓝桥玄霜 发表于 2012-8-9 09:09
这方面的问题建议搜索一下，应该有类似的。
如：《科学与工程数值计算算法（Visual Basic版）》

篮版
现在，数值算法的问题都是解决了。而且得来这些方法的渠道也不一定合法。所以真实代码怕是也不方便上传
而现在遇到的是初级问题
就是只用一个通用的方程求解的方法，去解不同的函数
其实2楼zamyi讲的是个方法（select case），就是有点麻烦
看看有没有别的方法

是个初级问题，只是本人基础不行。想不出来简单的方法