(呜呜呜,代码不长这个样子啊,因为下标和希腊字母极多,复制过来就变得很繁杂,知乎还在维护,不能放图,啊啊啊啊啊)
大佬们可以往自己的mathamiticas里面复制一下看
Solve[{
(*以下是浮标部分常量及方程*)
Subscript[R, f] == 2,
\[Rho] == 1.025*10^3,
g == 9.8,
Subscript[h, f] == 2,
Subscript[m, f] == 1000,
(*方程*)
0.625*v^2*Subscript[R, f]*h -
Subscript[F, 1]*Sin[Subscript[\[Theta], 1]] == 0,
\[Rho]*g*Pi (Subscript[h, f] - h)*Subscript[R, f]^2/4 ==
Subscript[m, f] + Subscript[F, 1]*Cos[Subscript[\[Theta], 1]],
(*以下是钢管部分常量及方程*)
Subscript[l, g] == 1,
Subscript[R, g] == 0.05,
Subscript[m, g] == 10,
(*方程*)
Subscript[F, 2]*Sin[Subscript[\[Theta], 2]] -
Subscript[F, 1]*Sin[Subscript[\[Theta], 1]] == 0,
Subscript[F, 3]*Sin[Subsc