|
|
Mathematica 目前还有很多事情干不了, 干不完全. 它在不断改进中。它改进的速度没有它体积膨胀的速度快:)
由
可见Mathematica 可以算反Gamma函数值,只是反函数是多值的情况,不知道如何控制返回的是哪个值。
- (14:57) gp > \p 100
- realprecision = 105 significant digits (100 digits displayed)
- (14:58) gp > InG(x,a,b,h)=my([s,t]=[a,b]);while((abs(gamma(s)-x)>h)&&(w=((s+t)/2.))&&(v=(gamma(s)-x)*(gamma(w)-x)),if(v> 0,s=w, v< 0, t=w, s=t=w));return((s+t)/2.);
- (14:58) gp > InG(1./3,-3.3,-3.4,10^(-101))
- %2 = -3.390724059691994004341696638396287543328933107815136438770280261925836049189099333821049034411524956
- (14:58) gp > gamma(%)
- %3 = 0.3333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333
- (14:58) gp >
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|