16.12.2014, 20:28 | #1 (permalink) |
Новичок
Регистрация: 16.12.2014
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Точка максимума функции Y
при ограничениях: -x1/19-x2/3+1/4<=0 -2*x1+2*19*x2-19*2<=0 2*2*x1-19*x2-19*2<=0 Pascal |
16.12.2014, 20:28 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я уверен, что в этих обсуждениях вы найдете решение Проблемная точка доступа Найдена точка доступа Роутер или точка доступа |
17.12.2014, 10:35 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А вот это
Цитата:
38*х2, 4*х1, 38 или как? |
|
17.12.2014, 14:06 | #3 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
И вообще - что тут делать Паскалем, я как-то не вижу. Задача элементарно решается посредством карандаша и бумаги.
1. Y(x1,x2) - монотонно-возрастающая функция, следовательно решение дадут максимально-допустимые значения х1 и х2. Их мы найдём из системы неравенств. 2. Решая систему из второго и третьего неравенств, находим: х1<=19, x2<=2. 3. Убеждаемся, что максимальные значения х1=19 и х2=2 удовлетворяют первому неравенству. 4. Окончательно: х1=19, х2=2, Y=76. |
18.12.2014, 12:03 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Код:
Var x1,x2:Real; Begin x1:=0; While ((1+1/19*x1)>=(3/4-3/19*x1)) and ((1+1/19*x1)>=(-2+4/19*x1)) do x1:=x1+0.01; writeln('x1 = ',x1:0:3); if (3/4-3/19*x1)>(-2+4/19*x1) then x2:=(3/4-3/19*x1) else x2:=(-2+4/19*x1); writeln('x2 = ',x2:0:3); writeln(' Y = ',(x1*2+x2*19):0:3); Readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|