Генетический алгоритм, Применение и реализация Опции

[LOVE133]

Задача : Имеется инвестиционный капитал , который нужно распределить среди 10 фирм.Для каждой фирмы задана функция зависимости прибыли от объема вложений.Требуется найти наиболее прибыльный вариант распределения капитала при условии, что заданы минимальный и максимальный объемы вложения для каждого проекта.
Решать собираюсь так - Распределяем рандомом капитал,задаем для каждого предприятия функцию,максимальное и минимальное вложение.Теперь вопросы
1) что брать за хромосому?
2) как определить оценочную функцию в данном случае?Стремиться все должно к максимуму прибыли, но какой функцией это реализовывать?
3) Как определить функицю мутации и коэффициент мутации.
В задаче должны варьироваться количество хромосом N ( я так думаю - это количество возможных вариантов из которых делается селекция и мутации) , и этот самый коэффициент мутации.

[LOVE133]

Я села на том, что никак не могу считать из файла матрицу... Как я вообще доучилась до 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 - 13.11.2007 16:00

[Lapp]

Я села на том, что никак не могу считать из файла матрицу
...
Файл 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
где верхняя строка - величина вклада, столбцы - это прибыль если столько вложить в предприятие...

Судя по расширению (.txt) и по виду, а также по тому, что он "набивается", я подозреваю, что у тебя данные в текстовом файле, а не в типизированном. Зачем же ты его описываешь как file of integer? Опиши так:
f:text;
И дальше используй операторы Read и ReadLn аналогично вводу с клавиатуры.
И еще: если есть ошибка, говори какая она. Догадываться уже надоедает..