Доброго времени суток!
Возникла проблема при построении графика функции.Так как не имею опыта работы в использовании матпакетов решил обратиться к вам.Подскажите пожалуйста,чего именно не хватает, или что здесь неверно:
Код:
NDSolve[{\[Phi][t] == ( {
{Subscript[\[Phi], 1][t]},
{Subscript[\[Phi], 2][t]}
} )}, {H == ( {
{Subscript[H, 1]},
{Subscript[H, 2]},
{Subscript[H, 3]}
} )}, {\[Psi][t] == H*\[Phi]'}, {T ==
0.5 (Subscript[H, 1]*Subscript[\[Phi]', 1][t] +
Subscript[H, 2]*Subscript[\[Phi]', 2][t] +
2*Subscript[H, 3]*Subscript[\[Phi]', 1][t]*
Subscript[\[Phi]', 2][t]*
cos (Subscript[\[Phi], 1][t] -
Subscript[\[Phi], 2][t]))}, {\[Psi]'[
t] == (\[PartialD]/\[PartialD]\[Phi])(T) - \[Gamma]*\[Phi]'[t] -
75*\[Phi]'[t] - 50*\[Phi][t]}, Subscript[\[Phi], 1][0] = 1,
Subscript[\[Phi]', 1][0] = 0, Subscript[\[Phi], 2][0] = 1,
Subscript[\[Phi]', 2][0] = 0, Subscript[\[Phi], 1][7] = 0,
Subscript[\[Phi]', 1][7] = 0, Subscript[H, 1] = 42.7,
Subscript[H, 2] = 9.4, Subscript[H, 3] = 5, Subscript[\[Phi], 1][t],
t];
Plot[Subscript[\[Phi], 1][t], {t, 0, 10}]
Выдает:
Код:
Syntax::sntxi: Incomplete expression; more input is needed .