Математические методы системного анализа и теория принятия решений

', mtError, [mbAbort], 0);form1.n3.Enabled:=false;form1.n6.Enabled:=false;end;SimplexTables:=FS;end;procedure TForm1. Button2Click (Sender: TObject);beginform1.Task;end;procedure Tform1. Task;vari, j, p, q, inc, cntx, k, cnt, holiday: integer;sklad: real;Matr: TFirstKoef;Tools: array[1.8] of integer;NewTools: array[1.7] of integer;Simp: Simplex;Fsimp: fullsimplex;beginTools[1]: =strtoint (Edit6.Text);Tools[2]:=strtoint (Edit7.Text);Tools[3]:=strtoint (Edit8.Text);Tools[4]:=strtoint (Edit9.Text);Tools[5]:=strtoint (Edit10.Text);Tools[6]:=strtoint (Edit11.Text);Tools[7]:=strtoint (Edit12.Text);Tools[8]:=strtoint (Edit13.Text);inc:=0;fori:=1 to 8 doif Tools[i]=0 thenholiday:=i;fori:=1 to 7 doif Tools[i]<>0 thenNewTools[i]: =Tools[i+inc]elsebegininc:=1;NewTools[i]:=Tools[i+inc]end;p:=strtoint (Edit1.Text);q:=strtoint (Edit3.Text);cntx:=2;fori:=1 to TrackBar1. Position-1 dobeginMatr[i, 1]: =newTools[i];if i-1>=0 thenbeginMatr[i, cntx]: =1;cntx:=cntx+1;end;end;fori:=1 to TrackBar1. Position-1 dobeginif i-p-1>0 thenbeginMatr[i, cntx]: =1;cntx:=cntx+1;end;end;fori:=1 to TrackBar1. Position-1 dobeginif i-q-1>0 thenbeginMatr[i, cntx]: =1;cntx:=cntx+1;end;end;cntx:=TrackBar1.Position+1;fori:=TrackBar1.Position to 2*(TrackBar1.Position-1) dobeginMatr[i, 1]: =newTools[i-(TrackBar1.Position-1)];if TrackBar1. Position-2-p >= i-(TrackBar1.Position-1) thenbeginMatr[i, cntx]: =1;cntx:=cntx+1;end;end;fori:=TrackBar1.Position to 2*(TrackBar1.Position-1) doif TrackBar1. Position-2-q >= i-(TrackBar1.Position-1) thenbeginMatr[i, cntx]: =1;cntx:=cntx+1;end;fori:=TrackBar1.Position to 2*(TrackBar1.Position-1) dobeginMatr[i, cntx]: =1;ifi>TrackBar1.Position thenMatr[i, cntx-1]: =-1; cntx:=cntx+1;end;Simp:=ArtificialVars (Matr);fSimp:=SimplexTables (simp);iffsimp[1,1]<>-1 thenbeginfori:=1 to StringGrid1. RowCount dofor j:=1 toStringGrid1. ColCount dobeginStringGrid1.Cells[j, i]: ='';StringGrid1.Cells[0,i]:='День '+floattostr (i);StringGrid2.Cells[j, i]: ='';StringGrid2.Cells[0,i]:='День '+floattostr (i);end;for j:=1 to 3 dobeginStringGrid1. Cells[j, holiday]: ='Выходной';StringGrid2.Cells[j, holiday]:='Выходной';end;cnt:=0;For i:=1 to TrackBar1. Position-1 dofor j:=2 to 4*Form1.TrackBar1.Position-6-p-q doif (matr[i, j]=1) thenfor k:=2 to 2*TrackBar1.Position-1 doif (fsimp[k, 2]=j-1) thenbeginifi=holiday thencnt:=1;if j-1<=TrackBar1.Position-1 thenStringGrid1. Cells[1,i+cnt]: =''+floattostr (fsimp[k, 3]);if (j-1>TrackBar1.Position-1) and (j-1<=2*Form1.TrackBar1.Position-3-p) thenStringGrid1. Cells[2,i+cnt]: =''+floattostr (fsimp[k, 3]);if (j-1>2*Form1.TrackBar1.Position-3-p) and (j-1<=3*Form1.TrackBar1.Position-4-p-q) thenStringGrid1. Cells[3,i+cnt]: =''+floattostr (fsimp[k, 3]);end;fori:=1 to StringGrid1. RowCount dofor j:=1 toStringGrid1. ColCount dobeginif (StringGrid1.Cells[2,i]<>'') and (i<>holiday)thenif (i>=holiday) and (i-p-1<=holiday) thenStringGrid2. Cells[2,i-p-2]: =StringGrid1.Cells[2,i]elseStringGrid2.Cells[2,i-p-1]:=StringGrid1.Cells[2,i];if (StringGrid1.Cells[3,i]<>'') and (i<>holiday)thenif (i>=holiday) and (i-q-1<=holiday) thenStringGrid2. Cells[3,i-q-2]: =StringGrid1.Cells[3,i]elseStringGrid2.Cells[3,i-q-1]:=StringGrid1.Cells[3,i];end;sklad:=0;fori:=1 to StringGrid2. RowCount-1 dobeginif (StringGrid2.Cells[2,i]<>'') and (i<>holiday)thenStringGrid2.Cells[1,i]: =' '+floattostr (tools[i]strtofloat (StringGrid2.Cells[2,i]));if (StringGrid2.Cells[3,i]<>'') and (i<>holiday)thenStringGrid2.Cells[1,i]: =''+floattostr (tools[i]-strtofloat (StringGrid2.Cells[3,i]));if (StringGrid2.Cells[3,i]<>'') and (i<>holiday) and (StringGrid2.Cells[2,i]<>'')thenStringGrid2.Cells[1,i]: =''+floattostr (tools[i]-strtofloat (StringGrid2.Cells[3,i])-strtofloat (StringGrid2.Cells[2,i]));if (i<>holiday) and (StringGrid2.Cells[3,i]='') and (StringGrid2.Cells[2,i]='') thenStringGrid2. Cells[1,i]: =''+floattostr (tools[i]);if (i<>holiday) thensklad:=sklad+strtofloat (StringGrid2.Cells[1,i]);end;fori:=1 to StringGrid1. RowCount dofor j:=1 toStringGrid1. ColCount dobeginif (StringGrid1.Cells[j, i]='') or (StringGrid1.Cells[j, i]='0') thenStringGrid1. Cells[j, i]: ='

-';if (StringGrid2.Cells[j, i]='') or (StringGrid2.Cells[j, i]='0') thenStringGrid2. Cells[j, i]: ='

-';end;Label20.Caption:='Суммарныезатраты: '+floattostr (fsimp[2*(TrackBar1.Position-1)+2,3])+' у.е.';Label21.Caption:='Инструментовнаскладе: '+ floattostr (sklad)+' шт.';N6.Enabled:=true;n3.Enabled:=true;end;end;7. Руководство пользователя7.

1 Системные требования

Процессор:PentiumI или аналогичныйAMD 400 MHz и выше ОЗУ: 64 Мб и более ОС: Windows 98, 2000, ХР7.2 Описание возможностей

Программа предназначена для расчета графика ремонта и покупки инструмента, чтобы при минимальных издержках обеспечить предприятие инструментом в течении 6,7 или 8 последовательных дней. Входными данными для программы являются: стоимость покупки нового инструмента (5,6,7 у.е.), срок и цена обычного ремонта (2, 3, 4 дня за 1, 2, 3 у.е.соответственно), срок и цена срочного ремонта (1, 2, 3 дня за 3, 4, 5 у.е.соответственно), а также количество инструментов, требуемых утром каждого дня (от 15 до 45 инструментов) и номер выходного дня, в которые как производство так и ремонтные службы не работают. В результате работы программы будет составлен график оптимального ремонта и покупки инструмента, представленный в виде двух таблиц (утро и вечер каждого дня). Данные, для которых разрабатывалась данная программа, введены по умолчанию. Поэтому для расчета графика на основе этих данных достаточно заполнить потребность по дням и нажать на кнопку «Вывести результат» .

7.3 Основное окно программы7.

4 Главное меню программы7.

5 Использование

Для начала работы с программой запустите файлSimplex.exe.

7.5. 1 Ввод данных

Чтобы задать требуемое количество дней, переместите с помощью мыши соответствующий «ползунок» в области ввода начальных данных. Для того чтобы задать продолжительность и стоимость обычного ремонта, на соответствующей панели области ввода данных нажимайте с помощью мыши на стрелочки «вверх» или «вниз» в зависимости от того хотите вы увеличить или уменьшить количество дней/стоимость. Для того чтобы задать продолжительность и стоимость срочного ремонта, на соответствующей панели области ввода данных нажимайте с помощью мыши на стрелочки «вверх» или «вниз» в зависимости от того хотите вы увеличить или уменьшить количество дней/стоимость. Для того чтобы задать стоимость покупки нового инструмента, на соответствующей панели области ввода данных нажимайте с помощью мыши на стрелочки «вверх» или «вниз» в зависимости от того хотите вы увеличить или уменьшить стоимость. Для того чтобы задать количество инструментов, требуемых на каждый день, задайте значения в клетках:

7.5. 2 Расчет графика ремонта и покупки

Для того чтобы рассчитать график достаточно нажать на кнопку «Вывести результат», находящуюся внизу главного окна программы.

7.5. 3 Результат работы программы

Результат работы программы будет выведен в области вывода результата в таблицу. При нажатии на кнопку «Пересчитать» производится переход на следующую итерацию решения.

8. Решение задачи курсовой работы на ПЭВМ по исходным данным индивидуального варианта

Исходныеданныезадачи:

Начальная симплекс-таблица:

Выводответа:

9. Список использованной литературы1. Зайченко, Ю. П. Исследование операций: учебное пособие / Ю. П. Зайченко. — 2-е изд. — Киев: Вища школа, 1979. — 392 с.

2. Куцый, Н. Н. Математические методы системного анализа и теория принятия решений: пособие по курсовой работе / Н. Н. Куцый. — Иркутск: изд-во Иркутск гос. технич. ун-та, 2008. — 79 с.