ідношення (T [a_i] [j]. Get_d () < 0) / / Негативний (fabs ((T [m] [j] / T [a_i] [j]). get_d ())
}
/ / / / Перевірка на негативність среди ЕЛЕМЕНТІВ цільової функції_j=1; _i=m; (int j=2; j
{(int i=0; i 0)
{_i=i;// Перший позитивний елемент;// Вихід з циклу ПОШУК
} (a_i == m) return rez=1;// Немає оптимального решение / / вихід (int i=a_i + 1; i 0)// Позитивний (fabs ((T [i] [0] / T [i] [a_j]). get_d ())
} rez=0;// Оптімальне решение / / вихід
} CSM :: operator <<=(CSM * csmIn) / / Тут з попередньої табліці виходе нова
{_i=csmIn -> a_i; _j=csmIn -> a_j;
/ / / / Ділімо на дозволяючій елемент дозволяючій рядок и міняємо базисних змінну (int j=0; j T [ a_i] [j] / csmIn -> T [a_i] [a_j];
/ / / / Домножаем дозволяючій рядок на ел-т в дозволяючому стовпці, соотв-щий цьом рядку, и складаємо з Цім рядком (int i=0; i
{(i == a_i) continue; (int j=0; j T [i] [j]- T [a_i] [j] * csmIn -> T [i] [a_j];
}
/ / / / запроваджувані нову змінну в базис (int i=0; i baz [i]; [a_i]=a_j; optim ();
} CSM :: get_CF ()
{T [m] [0];
} CSM :: Show ()
{tab;=«БП tСЧ»; (int j=0; j
{(i == m) tab=tab + « nY»; tab=tab + « n» + Baz [i]; (int j=0; j
}
/ / / / ShowMessage (tab);
} CSM :: GetWord ()
{
/ / / / Табліцяtab;=« n »; +=«< ; td align=" center "> БП
СЧ
»; (int j=0; j
{+=«
»;=tab + «X » + (J +1) + «»; +=«
»;
} +=«»; (int i=0; i
{+=«»; +=«
»; (i==m) tab +=«F '»; tab=tab + «X » + Baz [i] + «»; +=«
»; (int j=0; j
{(i == a_i && j == a_j && rez == 2) tab +=«
» ;; tab +=«
»; +=T [i] [j]. get_a (); +=«
»;
} +=«»;
} +=«»; tab;
/ * tab;=«БП; СЧ;»; (int j=0; j
