Question

mathematica求方程

x1 = 100
x2 = 0.002
q1 = -2.15566*10^-4
q2 = 62.5566*10^-4
q3 = 0.0618315
q4 = q2*x2 + q3
[Alpha] = N[ln[q4], 5]
NSolve[{50 + \[Alpha]*q1*
y + (3*x1)/(4*3.14*10^-7)*((7*10^-18 - 10^-25*x1)*y +
2*(-3.3*10^-30 + 2.1*10^-38*x1)*y^3) - He == 0,
1.21*10^6*(coth[He/(q1*a)] - (q1*a)/He) - y == 0}, {He, y}]
为什么解不出来He ,y

Answer 1

这方称不能解！有几个问题如下：

1. "[Alpha] = N[ln[q4], 5]"->"\[Alpha]= N[ln[q4], 5]"

2. 方程中多了变量a，却没有赋值

3. "coth"->"Cosh"