проблема при решении неллинейного уравнения

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

Модератор: Admin

Igorek_19_rus
Сообщения: 2
Зарегистрирован: Ср апр 16, 2014 2:55 pm

проблема при решении неллинейного уравнения

Сообщение Igorek_19_rus » Чт май 08, 2014 12:27 pm

вроде простой пример неллинейного уравнения с параметрами, а не понимаю в чем дело
f8[m2_] = 8*w3^2 + 36*m2^2*(3*w2^2-w4) == 171*m2^6 + 24*m2^3*w3
sol1 = Solve[{f8[m2]}, {m2}] // FullSimplify

output

{{m2 -> Root[-8 w3^2 + (-108 w2^2 + 36 w4) #1^2 + 24 w3 #1^3 +
171 #1^6 &, 1]}, {m2 ->
Root[-8 w3^2 + (-108 w2^2 + 36 w4) #1^2 + 24 w3 #1^3 + 171 #1^6 &,
2]}, {m2 ->
Root[-8 w3^2 + (-108 w2^2 + 36 w4) #1^2 + 24 w3 #1^3 + 171 #1^6 &,
3]}, {m2 ->
Root[-8 w3^2 + (-108 w2^2 + 36 w4) #1^2 + 24 w3 #1^3 + 171 #1^6 &,
4]}, {m2 ->
Root[-8 w3^2 + (-108 w2^2 + 36 w4) #1^2 + 24 w3 #1^3 + 171 #1^6 &,
5]}, {m2 ->
Root[-8 w3^2 + (-108 w2^2 + 36 w4) #1^2 + 24 w3 #1^3 + 171 #1^6 &,
6]}}

кто-нибудь может подсказать в чем дело или может кто-нибудь скажет как в решение вставить прдположения что все w2,w3,w4 параметры > 0, т.к. иначе все плохо и получается