|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
原帖由 yhh8799 于 2010-6-20 18:30 发表
请ljw990485 能不能公布Equa.dll没有编译前的代码?
没问题,不知道你基础怎么样? ALT+C++,核心程序为
STDMETHODIMP Solv::BinarySearch(long f, double a, double b, double epsi, double *x)
{
double (pascal *fun)(double)=(double (pascal *)(double))f,fa,fb,s,t;
int n=0;
if(f==0)return E_POINTER;
if(b<a){s=b;b=a;a=s;}
fa=(*fun)(a);
fb=(*fun)(b);
if(fa*fb>0)return E_INVALIDARG;
while(++n<=200)
{
s=(a+b)/2;
t=(*fun)(s);
if(((t>=0?t:-t)<=epsi)||(b-a<=epsi))break;
if(t*fa>0)
{
a=s;
fa=t;
}
else
{
b=s;
fb=t;
}
}
*x=s;
return S_OK;
}
没问题,你自己研究吧,知道你基础怎么样?C++程序+ATL
[ 本帖最后由 ljw990485 于 2010-6-21 19:48 编辑 ] |
|