| 查看: 288 | 回复: 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可能个超越方程，碰到这种怎么办 |
回复此楼» 猜你喜欢
348分环境工程·调剂
已经有5人回复
-
考研调剂
已经有4人回复
-
283分材料与化工求调剂
已经有25人回复
-
298求调剂
已经有8人回复
-
266求调剂
已经有17人回复
-
265求调剂
已经有19人回复
-
考研调剂
已经有3人回复
-
材料295
已经有6人回复
-
288求调剂 一志愿哈工大 材料与化工
已经有39人回复
-
285求调剂
已经有7人回复
