level 1
qu1 = fu1[t]
qv1 = fv1[t]
qu = {qu1}
qv = {qv1}
M = MatrixForm[{{{34.45428319573334` + 10.472846264820031` qu +
0.8075222624000002` qu^2 -
0.3122061168793633` qv^2}, {1.0946841805411454` qv}, \
{7.348812836608349` + 1.0946841805411454` qu}},
{{-1.0946841805411454` qv}, {0.8075222624000002`},
0}, {{7.348812836608349` + 1.0946841805411454` qu},
0, {1.6147756243801052`}}}]
G = MatrixForm[-2 Dt[(4 t)/15 + 4/15 \[Pi]^2 Sin t,
t] {{0, 0, 0}, {0,
0, {1.0946841805411454`}}, {0, {-1.0946841805411454`}, 0}}]
K = MatrixForm[ {{0, 0, 0},
{0, {775888.0835571943` -
0.8075222624000002` (4/15 + (4 \[Pi]^2 Sin)/15 +
4/15 \[Pi]^2 t Dt[Sin, t])^2}, 0}, {0,
0, {13.681061451793486` +
0.3122061168793633` (4/15 + (4 \[Pi]^2 Sin)/15 +
4/15 \[Pi]^2 t Dt[Sin, t])^2}}}]
Q = MatrixForm[{{{-2 (4/15 + (4 \[Pi]^2 Sin)/15 +
4/15 \[Pi]^2 t Dt[Sin, t]) (5.236423132410016` Derivative[1][
fu1][t] +
0.8075222624000002` fu1[t] Derivative[1][fu1][t] -
0.3122061168793633` fv1[t] Derivative[1][fv1][
t])}}, {{5.236423132410016` (4/15 + (4 \[Pi]^2 Sin)/15 +
4/15 \[Pi]^2 t Dt[Sin, t])^2}}, {0}} + {{(2 \[Pi] Sin t)/
15}, {0}, {0}}]
q = MatrixForm[Transpose[( {
{{(4 t)/15 + 4/15 \[Pi]^2 Sin t}, {fu1[t]}, {fv1[t]}}
} )]]
dSolveAlways[
M Dt[q, {t, 2}] + G Dt[q, t] + K q = Q, {fu1[t], fv1[t]}]
2021年03月11日 09点03分





