Динамическое программирование. Задача о ресурсах.

[delaimo]

Сообщение от Utkin

Это обычная транспортная задача . Просто от Вас требуют не стандартное решение (а может даже и стандартное, но под другим соусом).
И метод потенциалов под определенным углом есть динамическое программирование .
Кто выдал задание? Нельзя у него уточнить, что именно требуется?

Объяснить сложно))) Но вот теория.
Мне бы хотя бы понять как делать))

[Человек_Борща]

Мне бы хотя бы понять как делать))

Для этого надо читать теорию. Если теория не понятна, читать теорию объясняющую нужную вам теорию.

[Smitt&Wesson]

Чё вы тут распределять собираетесь, тем более динамически?

Результаты оптимизации по состоянию на:  03.06.2014 17:19:50

Максимум целевой функции  "Прибыль предприятия" = 150	

ограничения	данные расчёта	знак	задан.знач-я
Эл. Компоненты	     15	<=	15	
Железо	                 9    <=	9	
Пластик	          18         <=	30	


переменные	данные расчёта	
Магнитофон	0	
Видеокамера	3	
Эл. замок	0	
Телевизор	0

Из ваших железок, только 3 видеокамеры выйдет и то, пластик недоиспользован .
Решено симплекс-методом.

[delaimo]

Сообщение от Smitt&Wesson

Чё вы тут распределять собираетесь, тем более динамически?

Результаты оптимизации по состоянию на:  03.06.2014 17:19:50

Максимум целевой функции  "Прибыль предприятия" = 150	

ограничения	данные расчёта	знак	задан.знач-я
Эл. Компоненты	     15	<=	15	
Железо	                 9    <=	9	
Пластик	          18         <=	30	


переменные	данные расчёта	
Магнитофон	0	
Видеокамера	3	
Эл. замок	0	
Телевизор	0

Из ваших железок, только 3 видеокамеры выйдет и то, пластик недоиспользован .
Решено симплекс-методом.

Я уже написал что изображением ошибся (я без понятия куда нужную табличку дел...)
И суть сделать с помощью динамического, а не просто сделать задачу.
http://stu.sernam.ru/book_sop.php?id=16 тут объясняется как это сделать, но ничего не понятно


по сути и эта таблица подойдет, как видно максимум одному предприятию можно отдать 8 ед ресурса и после какого-то кол-ва ресурсов цена уже не будет возрастать

Вообщем выручайте, готов даже заплатить за код.

[delaimo]

Господа помогите понять, мне нужно решить задачу с помощью динамического программирования но я не понимаю его сути...

Вообщем есть процедура помогите понять она сделана с помощью динамического программирования или нет?

По сути этот код вычисляет максимум стоимости в задаче о ресурсах

procedure P1;
var i,j,ii:integer;
begin
    for j:=1 to KStr do    begin
MasShet[1][j][1]:=MasDano[1][j];MasShet[1][j][2]:=0;MasShet[1][j][3]:=j;
    end;{j}
for i:=1 to KStr do    begin
for j:=2 to KStl do    begin
if MasShet[j-1][i][1]<MasDano[j][i] then
begin
MasShet[j][i][1]:=MasDano[j][i];MasShet[j][i][2]:=0;MasShet[j][i][3]:=i;
end
else
 begin
 MasShet[j][i][1]:=MasShet[j-1][i][1]; MasShet[j][i][2]:=i; MasShet[j][i][3]:=0;
 end;
if i>1 then begin
for ii:=1 to i-1 do
    begin
if (MasShet[j-1][i-ii][1]+MasDano[j][ii])>MasShet[j][i][1] then
begin
MasShet[j][i][1]:=MasShet[j-1][i-ii][1]+MasDano[j][ii];MasShet[j][i][2]:=i-ii;MasShet[j][i][3]:=ii;
end;    end;{ii}    end;    end;{j}    end;{i}
i:=1;
 for j:=2 to KStr do begin if MasShet[KStl][j][1]>MasShet[KStl][j-1][1]then i:=j;  end;{j}
MasTemp[KStl]:=MasShet[Kstl][i][3];
i:=MasShet[KStl][i][2];
for ii:=1 to KStl-1 do begin MasTemp[KStl-ii]:=MasShet[KStl-ii][i][3]; i:=MasShet[KStl-ii][i][2];    end;{ii}
end;{P1()}

Если не понятен код то вот вся программа

[Человек_Борща]

В код вносят ясность комментарии. Тут и проект не поможет....