Решение уравнения со степенной функцией

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

Модератор: Admin

Артём99
Сообщения: 19
Зарегистрирован: Чт авг 28, 2014 10:13 am

Решение уравнения со степенной функцией

Сообщение Артём99 » Пн май 14, 2018 10:02 pm

Здравствуйте! Решаю уравнение
Solve[x^4+x^3+x^2+x-10==0,x]
Получаю несколько результатов. Прошу подсказать. Как ограничить количество выдаваемых результатов, чтобы в решении были только положительные числа, и без всяких "i"?
Артём

Markiyan Hirnyk
Сообщения: 1221
Зарегистрирован: Вс дек 04, 2011 11:07 pm

Re: Решение уравнения со степенной функцией

Сообщение Markiyan Hirnyk » Вт май 15, 2018 8:46 pm

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

ToRadicals[Solve[x^4 + x^3 + x^2 + x - 10 == 0 && x > 0, x, Reals]]
{{x -> 1/3 (1 - 8/(55 + 3 Sqrt[393])^(1/3) + (55 + 3 Sqrt[393])^( 1/3))}}

Артём99
Сообщения: 19
Зарегистрирован: Чт авг 28, 2014 10:13 am

Re: Решение уравнения со степенной функцией

Сообщение Артём99 » Вт май 15, 2018 10:21 pm

Спасибо за ответ. Но у меня по вашей подсказке не получилось. Может что-то не так записал. Во вложении файл с моей попыткой. Просьба проверить, в чём ошибка?
Вложения
Wolfram Notebook 11.rar
(792 байт) 15 скачиваний
Артём

Markiyan Hirnyk
Сообщения: 1221
Зарегистрирован: Вс дек 04, 2011 11:07 pm

Re: Решение уравнения со степенной функцией

Сообщение Markiyan Hirnyk » Вт май 15, 2018 11:08 pm

Вы набрали

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

ToRadicals[Solve[x^4 + x^3 + x^2 + x - 10 == 0 && > 0, x, Reals]]

Пропущен x. Пожалуйста, не беспокойте по пустякам. В следующий раз отвечать в подобных случаях не намерен. Вы меня поняли?

Артём99
Сообщения: 19
Зарегистрирован: Чт авг 28, 2014 10:13 am

Re: Решение уравнения со степенной функцией

Сообщение Артём99 » Вт май 15, 2018 11:47 pm

Понял. Спасибо!
Артём