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

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

Модератор: Admin

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

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

Сообщение rroommaann » Чт ноя 04, 2010 1:37 pm

Я решаю уравнение:
Dynamic[FindRoot[MMpump,{n2,0,4000}]]
И получаю вот такой результат:
{n2->2390}
каким образом можно переменной n2 присвоить результат решения уравнения, для того, чтобы продолжить дальнейший расчет… как вы заметили n2 – динамически изменяемая величина…
помогите пожалуйста

vladb314
Сообщения: 40
Зарегистрирован: Вт июл 03, 2007 6:30 am
Откуда: Красноярск
Контактная информация:

Сообщение vladb314 » Пт ноя 05, 2010 7:01 pm

Написать:
n2/.%

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Вт ноя 09, 2010 7:41 am

Почему то не заработало... не понимаю, но все равно спасибо за совет...
Я решил данную проблему следующим способом:

n2 = Dynamic[Last[Last[FindRoot[M == Mpump, {n2, 0, 4000}]]]]

я точно не знаю почему Last используется два раза, но без этого не работает...

rroommaann
Сообщения: 18
Зарегистрирован: Чт ноя 04, 2010 1:28 pm

Сообщение rroommaann » Вт ноя 09, 2010 1:55 pm

нет.. я всетики ошибся... проблему не решил... а вот не могу понять, куда надо поставить n2/.%

Gordon
Сообщения: 300
Зарегистрирован: Вт сен 08, 2009 8:16 pm

Сообщение Gordon » Вт ноя 09, 2010 2:27 pm

http://forum.exponenta.ru/viewtopic.php?t=10482
если n2 нужно присвоить результат:

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

Dynamic[{{Plot[ ...],
    PaddedForm[
     n2 = n2 /. FindRoot[M == Mpump, {n2, 0, 4000}], {6, 2}]}} //
  TableForm]