Решение уравнений в Excel

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Margo
Сообщения: 3
Зарегистрирован: 13 дек 2005, 12:17

Я столкнулась с проблемой, ни как не могу решить задание. Все задания должны решаться в Excel. Помогите пожалуйста решить эти примеры.
1)Найти корни уравнения
х^3-2,84х^2-5,60х+14,76=0
2)Найти все решения системы нелинейных уравнений
2х^2+3у^2=6
2х-7у=6
3) Четыре сталелитейных завода: 1, 2, 3 и 4 производят еженедельно соответственно 950, 300, 1350 и 450 тонн стали определенного сорта. Стальные балванки должны быть переданы потребителям А, В, С, Д, Е, еженедельные запросы которых составляют соответственно 250, 1000, 700, 650, 450 т. стали. Стоимость ранспортировки от заводов к потребителям приведена в таблице.

Завод Потребитель
А В С Д Е
1 12 16 21 19 32
2 4 4 9 5 24
3 3 8 14 10 26
4 24 33 36 34 9
Какой нужно составить план распределения стальных болванок, чтобы минимизировать их общую стоимость.
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

1)
В ячейку, скажем, A1 введите некоторое число. Это будет начальное значение для X.
В соседнюю B1 введите формулу =A1^3-2,84*A1^2-5,60*A1+14,76
Теперь понятно, что A1 должно быть таким, чтобы формула дала результат 0.
Ну а теперь делаем Сервис/Поиск решения.
A1 - это изменяемая ячейка. B1 - целевая. Для целевой надо выбрать не максимум, не минимум, а как раз точное значение и в качестве этого значения ввести 0.
С помощью кнопки параметры можно произвести выбор алгоритма решения, указать точность и т.п.
Жмем [Выполнить]

2)
Все то же самое. Только изменяемых ячейки две (например A1 и A2). Также 2 формулы (B1 и B2). Одна целевая - устремляем ее к значению 6. А другую вводим в окошко ограничений, в виде "B2=6".
Все.

3)
Изменяемых ячеек будет целая матрица: A1 :D 5
Тарифы перевозок введем, скажем, в A11 :D 15
Далее совершенно аналогично второй задаче.
Только в системе:
1 уравнение (это будет целевая функция - ее надо составить как =СУММПРОИЗВЕД(A1 :D 5;A11 :D 15))
еще неравенства - 10 штук (A1 :D 5>=0 мы для Excel считаем за одно неравенство, а остальные типа
СУММ(A1 :D 1)<=250; СУММ(A2 :D 2<=1000 и т.д. По столбцам то же самое).

Удачи.
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Да, это ищет только одно оптимальное решение.
Если решений несколько, то ВСЕ с помощью "Сервис/Поиск_решения" не найти.
Можно найти некоторые. Для этого надо просто задавать разные начальные условия поиска.

Например для первой задачи введем в A1 999999999 и решим. Потом введем -999999999 и еще раз повторим поиск решения. Если получится другйо результат, значит решений как минимум два. Если тот же самый, то решений как минимум одно.
В третьей задаче поле для экспериментов с начальными условиями гораздо больше :)
Margo
Сообщения: 3
Зарегистрирован: 13 дек 2005, 12:17

Огромное спасибо за помощь, я во всем разобралась кроме 3 задачи, если возможно то напишите пожалуйста поподробней куда и что писать. Как я поняла 10 неравенств надо писать в ограничения, но там я не как не могу написать СУММ. И что писать в изменяемых ячейках?
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

=СУММ(...) писать в ячейки.
А вот в окне Ограничения нужно добавить только неравенства у которых в левой части ячейка, а в правой константа.

Т.е. что-то типа
E1<=250
E2<=1000
...
A1 :D 5>=0

В E1 формула: =СУММ(A1 :D 1)
В E2 формула: =СУММ(A2 :D 2)
...
А также по столбцам:
A6: =СУММ(A1:A5)
B6: =СУММ(B1:B6)
....


Ну а изменяемые ячейки - это A1 :D 5

A1 - это сколько болванок в день отправлять с первого завода потребителю A
B1 - cо второго - потребителю А
...
A2 - это сколько болванок в день отправлять с первого завода потребителю В
B2 - cо второго - потребителю В
...
A3 - c первого - потребителю С
и т.д.
Margo
Сообщения: 3
Зарегистрирован: 13 дек 2005, 12:17

ОГРОМНОЕ СПАСИБО, ВЫ МНЕ ОЧЕНЬ ПОМОГЛИ!!!
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

:) Еще бы! Сам 2 года студентов этими задачами мучил.
Натали Капризная
Сообщения: 1
Зарегистрирован: 16 май 2010, 17:08

помогите решить.пожалуйста!!!!!!до среды очень надо... :(
решить надо в excel
Y = (1+sin x) ^2
X € [-5; 5]
спасибо за ранее...
Ответить