level 3
我爱物理爱我💤
楼主
mA = 1; mB = 3;
h = 1;
l = 1;
time = 0.6;
\[Theta]0 = ArcTan[h/l];
s = NDSolve[{h/(Sin[\[Theta][t]])^2 \[Theta]'[t] == Sqrt[(
20*h*mB*(1/Sin[\[Theta]0] - 1/Sin[\[Theta][t]]))/(
mA + mB*(Cos[\[Theta][t]])^2)], \[Theta][
0] == \[Theta]0}, \[Theta], {t, 0, time}];
\[Theta] = \[Theta] /. s[[1]];
Plot[{Sqrt[(20*h*mB*(1/Sin[\[Theta]0] - 1/Sin[\[Theta][t]]))/(
mA + mB*(Cos[\[Theta][t]])^2)],
Sqrt[(20*h*mB*(1/Sin[\[Theta]0] - 1/Sin[\[Theta][t]]))/(
mA + mB*(Cos[\[Theta][t]])^2)]*Cos[\[Theta][t]]}, {t, 0, time}]
Clear["Global`*"]
2022年07月21日 14点07分
1
h = 1;
l = 1;
time = 0.6;
\[Theta]0 = ArcTan[h/l];
s = NDSolve[{h/(Sin[\[Theta][t]])^2 \[Theta]'[t] == Sqrt[(
20*h*mB*(1/Sin[\[Theta]0] - 1/Sin[\[Theta][t]]))/(
mA + mB*(Cos[\[Theta][t]])^2)], \[Theta][
0] == \[Theta]0}, \[Theta], {t, 0, time}];
\[Theta] = \[Theta] /. s[[1]];
Plot[{Sqrt[(20*h*mB*(1/Sin[\[Theta]0] - 1/Sin[\[Theta][t]]))/(
mA + mB*(Cos[\[Theta][t]])^2)],
Sqrt[(20*h*mB*(1/Sin[\[Theta]0] - 1/Sin[\[Theta][t]]))/(
mA + mB*(Cos[\[Theta][t]])^2)]*Cos[\[Theta][t]]}, {t, 0, time}]
Clear["Global`*"]