Wolfram mathematica 为什么Mathematica中的InverseWebierStrassp函数对于某些值仍然未赋值？

我有一些输入参数：

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]}]

我的代码中的

inverseWebierStrassp

函数对于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}

这是一个bug还是我在代码中遗漏了什么错误