Генетический алгоритм, Применение и реализация |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Генетический алгоритм, Применение и реализация |
LOVE133 |
Сообщение
#1
|
Гарцующая лошадка Группа: Пользователи Сообщений: 107 Пол: Женский Реальное имя: Любовь Репутация: 0 |
Задача : Имеется инвестиционный капитал , который нужно распределить среди 10 фирм.Для каждой фирмы задана функция зависимости прибыли от объема вложений.Требуется найти наиболее прибыльный вариант распределения капитала при условии, что заданы минимальный и максимальный объемы вложения для каждого проекта.
Решать собираюсь так - Распределяем рандомом капитал,задаем для каждого предприятия функцию,максимальное и минимальное вложение.Теперь вопросы 1) что брать за хромосому? 2) как определить оценочную функцию в данном случае?Стремиться все должно к максимуму прибыли, но какой функцией это реализовывать? 3) Как определить функицю мутации и коэффициент мутации. В задаче должны варьироваться количество хромосом N ( я так думаю - это количество возможных вариантов из которых делается селекция и мутации) , и этот самый коэффициент мутации. |
LOVE133 |
Сообщение
#2
|
Гарцующая лошадка Группа: Пользователи Сообщений: 107 Пол: Женский Реальное имя: Любовь Репутация: 0 |
Я села на том, что никак не могу считать из файла матрицу... Как я вообще доучилась до 3 курса...
Код Program genalgoritm; uses crt; Type TMatrix = array [1..10,1..10] of integer; THromosome = record Code :array [1..100] of integer; Eval: integer; end; TGeneration= array [1..10 ] of Thromosome; var i,j,n :integer; Mat :Tmatrix; f:file of integer; begin clrscr; assign (f,'matrix.txt'); reset ( f ); for i:=1 to 10 do for j:= 1 to 10 do begin read (f,mat[i,j]); write(mat[i,j]); readln; end; close (f); for i:=1 to 10 do for j:=1 to 10 do begin write ( mat[i,j]); writeln; end; readln; end. Файл matrix.txt набивается числами типа 100 200 300 400 500 12 12 12 23 43 12 12 12 23 43 12 12 12 23 43 12 12 12 23 43 где верхняя строка - величина вклада, столбцы - это прибыль если столько вложить в предприятие... Сообщение отредактировано: LOVE133 - |
Текстовая версия | 29.04.2024 6:26 |