如何解决为什么对于某些值,Mathematica中的InverseWeierstrassP函数仍然未被评估?
我有一些输入参数:
alpha[r]:= (650250000 r^3 (0.9989 - 0.449505 (1 - Tanh[(-1450 + r)/1160])))/22468879468420441
beta[r]:= (650250000 r^2 (1/1000 + 0.449505 (1 - Tanh[(-1450 + r)/1160])))/22468879468420441
g2[r_] := beta[r]^2/12;
g3[r_] := -(1/27 beta[r]^3/8 + (8.68201*10^-12)/12 alpha[r]^2/4);
x[r_] := InverseWeierstrassP[N[beta[r]/12],{g2[r],g3[r]}]
我的代码中的InverseWeierstrassP
函数对于r的几个输入值仍然未被评估,如下所示:
In[154]:= Table[N[x[r],3],{r,50,500,50}]
Out[154]= {1053.65 - 406.342 I,525.818 - 203.92 I,349.876 - 136.488 I,InverseWeierstrassP[{0.0000778148,1.90283*10^-8},{7.26617*10^-8,-3.7698*10^-12}],209.137 - 82.6291 I,InverseWeierstrassP[{0.000171732,6.93521*10^-8},{3.53901*10^-7,-4.05222*10^-11}],148.849 - 59.6394 I,130.026 - 52.4897 I,115.397 - 46.9514 I,103.708 - 42.5428 I}
这是一个错误还是我在代码中遗漏了一些错误?
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。