为什么对于某些值，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 (将#修改为@）