|

楼主 |
发表于 2022-9-23 11:08
|
显示全部楼层
本帖最后由 elim 于 2022-9-25 11:51 编辑
@春风晚霞,永远,下面是我用 gp/pari 软件对\(\displaystyle\int_a^b\sqrt{1+x^{-4}}dx\) 给出的代码和计算。比 Mathematica 快很多。欢迎提出改进易见,提出问题加以讨论。
- \p 105
- realprecision = 115 significant digits (105 digits displayed)
- ac = 105;
- c0=sqrt(2*Pi)*gamma(3/4)/gamma(1/4);
- g(a,b,n,o)=my(m=max(n,10),s=0.0,h=(b-a)/m);for(k=1,m,s=s+sqrt(1.+(a+(k-0.5*(1+o))*h)^(-4)));return(s*h);
- F(x,d)=my(t=x,n=2,s=x);while((t=t*(3.-n)*(5-2*n)/(x^4*n*(1-2*n)))&&(s=s+t)&&(abs(t)*10^d>1),n=n+2);return(s);
- G(x)=my(u=x,sg=1);if(u==1,return(0.0));if((x<1)&&(u=1./x),sg=-1);return(sg*(F(u,ac)-c0));
- L(a,b)=if((a<= 0.0)||(b<= 0.0),return(0));return(sign(b-a)*abs(G(b)-G(a)));
复制代码 |
|