计算了很久也没结果,求大神看看
DSolve[{(-\[Mu]mg (x'[t] -
Subscript[\[Omega], y][
t] R))/(\[Sqrt]((x'[t])^2 + (y'[
t])^2 + (Subscript[\[Omega], x][t]^2 +
Subscript[\[Omega], y][t]^2) R^2 +
2 R (y'[t] Subscript[\[Omega], x][t] +
x'[t] Subscript[\[Omega], y][t]))) +
Subscript[m\[Omega], 0]^2 x[t] +
2 Subscript[m\[Omega], 0] (y'[t] + Subscript[\[Omega], x][t] R) ==
mx''[t], (-\[Mu]mg (y'[t] +
Subscript[\[Omega], x][
t] R))/(\[Sqrt]((x'[t])^2 + (y'[
t])^2 + (Subscript[\[Omega], x][t]^2 +
Subscript[\[Omega], y][t]^2) R^2 +
2 R (y'[t] Subscript[\[Omega], x][t] +
x'[t] Subscript[\[Omega], y][t]))) +
Subscript[m\[Omega], 0]^2 y[t] -
2 Subscript[m\[Omega], 0] (x'[t] - Subscript[\[Omega], y][t] R) ==
my''[t],
2/5 mR^2 Subscript[\[Omega], x]'[
t] == (R (x'[t] - Subscript[\[Omega], y][t] R))/
Sqrt[(x'[t])^2 + (y'[t])^2 + (Subscript[\[Omega], x][t]^2 +
Subscript[\[Omega], y][t]^2) R^2 +
2 R (y'[t] Subscript[\[Omega], x][t] +
x'[t] Subscript[\[Omega], y][t])]}, {y[t], x[t],
Subscript[\[Omega], x][t], Subscript[\[Omega], y][t]}, t]