Solve не выводит ответ

Форум пользователей пакета Mathematica

Модератор: Admin

aodemidov
Сообщения: 1
Зарегистрирован: Пт окт 19, 2018 12:17 am

Solve не выводит ответ

Сообщение aodemidov » Пт окт 19, 2018 12:19 am

Здравствуйте! Solve выводит пустой список, решение точно есть. В чем может быть проблема? Заранее спасибо.

Код: Выделить всё

In[1]:= Param = {\[CurlyPhi] -> 0.61}

Out[1]= {\[CurlyPhi] -> 0.61}

In[2]:= eq1 =
 Subscript[R, x] - Subscript[N, z1]*Sin[2 \[CurlyPhi]] -
    Subscript[N, z3]*Sin[\[CurlyPhi]] +
    Subscript[N, z4]*Sin[\[CurlyPhi]] == 0 /. Param

Out[2]= -0.939099 Subscript[N, z1] - 0.572867 Subscript[N, z3] +
  0.572867 Subscript[N, z4] + Subscript[R, x] == 0

In[3]:= eq2 =
 Subscript[R, y] - Subscript[N, z1] +
    Subscript[N, z2]*Cos[2 \[CurlyPhi]] +
    Subscript[N, z3]*Cos[2 \[CurlyPhi]] +
    Subscript[N, z4]*Cos[\[CurlyPhi]] - P == 0 /. Param

Out[3]= -P - Subscript[N, z1] + 0.343646 Subscript[N, z2] +
  0.343646 Subscript[N, z3] + 0.819648 Subscript[N, z4] + Subscript[R,
   y] == 0

In[4]:= eq3 =
 Subscript[N, z1]*a + P*2 a -
    Subscript[N, z2]*3 a*Cos[2 \[CurlyPhi]] -
    Subscript[N, z3]*3 a*Cos[\[CurlyPhi]] -
    Subscript[N, z4]*3 a*Cos[\[CurlyPhi]] == 0 /. Param

Out[4]= 2 a P + a Subscript[N, z1] - 1.03094 a Subscript[N, z2] -
  2.45894 a Subscript[N, z3] - 2.45894 a Subscript[N, z4] == 0

In[5]:= eq4 =
 Subscript[R, y]*a + P*a - Subscript[N, z2]*2 a*Cos[2 \[CurlyPhi]] -
    Subscript[N, z3]*2 a*Cos[\[CurlyPhi]] -
    Subscript[N, z4]*2 a*Cos[\[CurlyPhi]] == 0 /. Param

Out[5]= a P - 0.687291 a Subscript[N, z2] -
  1.6393 a Subscript[N, z3] - 1.6393 a Subscript[N, z4] +
  a Subscript[R, y] == 0

In[6]:= eq5 =
 Subscript[R, y]*2 a - Subscript[N, z1]*a -
    Subscript[N, z2]*a*Cos[2 \[CurlyPhi]] -
    Subscript[N, z3]*a*Cos[\[CurlyPhi]] -
    Subscript[N, z4]*a*Cos[\[CurlyPhi]] == 0 /. Param

Out[6]= -a Subscript[N, z1] - 0.343646 a Subscript[N, z2] -
  0.819648 a Subscript[N, z3] - 0.819648 a Subscript[N, z4] +
  2 a Subscript[R, y] == 0

In[7]:= eq6 =
 Subscript[R, y]*3 a - Subscript[N, z1]*2 a - P*a == 0 /. Param

Out[7]= -a P - 2 a Subscript[N, z1] + 3 a Subscript[R, y] == 0

In[8]:= Solve[{eq1, eq2, eq3, eq4, eq5, eq6}, {Subscript[R, x],
  Subscript[R, y], Subscript[N, z1], Subscript[N, z2], Subscript[N,
  z3], Subscript[N, z4]}]

Out[8]= {}