| 查看: 327 | 回复: 0 | ||
[求助]
符号运算，想求一个解析解，用solve还是reduce或者别的函数
|
|
\[Alpha] = Sqrt[rn*(rn + Sqrt[fx/d])]; \[Beta] = Sqrt[rn*(Sqrt[fx/d] - rn)]; md1 = {{\[Beta]^2 + u*rn^2, 0}, {0, \[Alpha]^3 + (u - 2)*rn^2*\[Alpha]}}; md3 = {{\[Beta]^2 + u*rn^2, 0}, {0, \[Alpha]^3 + (u - 2)*rn^2*\[Alpha]}}; ma1 = {{\[Alpha]^2 - u*rn^2, 0}, {0, \[Beta]^3 - \[Beta]*(u - 2)*rn^2}}; ma3 = {{\[Alpha]^2 - u*rn^2, 0}, {0, \[Beta]^3 - \[Beta]*(u - 2)*rn^2}}; md = ArrayFlatten[{{md1, 0}, {0, md3}}]; ma = ArrayFlatten[{{ma1, 0}, {0, ma3}}]; mdni = Inverse[md]; ms = mdni.ma; mp = {{0, -Coth[\[Alpha]*b], 0, 1/Sinh[\[Alpha]*b]}, {-Cot[\[Beta]*b], 0, -1/Sin[\[Beta]*b], 0}, {0, 1/Sinh[\[Alpha]*b], 0, -Coth[\[Alpha]*b]}, {-1/Sin[\[Beta]*b], 0, -Cot[\[Beta]*b], 0}}; mr = ms.mp; mf = IdentityMatrix[4] - mr; df = FullSimplify[Det[mf]]; Solve[df == 0, fx] 过程都没有问题，最后希望是一个fx=。。。的表达式，其中n是正整数，b,d,rn,u都是实数 用solve一直解不出来，是不是因为df==0可能个超越方程，碰到这种怎么办 |
回复此楼» 猜你喜欢
40+中年人失业后，还能找到好工作吗？
已经有15人回复
-
二审4个多月了还是Awaiting Reviewer Scores
已经有5人回复
-
申请科研项目纯靠实力能成功吗？
已经有12人回复
-
用NBS溴化时溶剂除了CCl4外还有什么
已经有6人回复
-
极限拉扯，如何抉择
已经有15人回复
-
OpenAI又攻克数学难题了，离AI做有机合成还有多远？
已经有13人回复
-
课题组会帮你通过考核么？
已经有7人回复
-
招收博士生一名
已经有3人回复