А Вы пытаетесь решить систему численно или точно? Насчёт точного решения я не знаю. А для численного решения систему нужно подготовить.
Прежде всего, из уравнения
находим
. Параметры
и
находятся из начальных условий. Это выражение нужно подставить в остальные уравнения.
Далее, из третьего - шестого уравнений находим
, поэтому
,
,
. Параметры
определяются из начальных условий. Отсюда следует, что из четырёх уравнений можно оставить только одно - для
. Но и его нужно преобразовать, исключив
с помощью четвёртого уравнения.
Из второго уравнения также следует исключить
таким же способом. В итоге получаются три уравнения второго порядка (проверьте, вдруг где ошибся или опечатался):
Не забудьте о начальных данных. Они должны быть заданы вместе с уравнениями.
Я также не знаю, насколько велики возможности системы Mathematica в численном решении систем дифференциальных уравнений.