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

Оглавление
1. ПОСТАНОВКА ЗАДАЧИ
2. ОБОСНОВАНИЕ МАТЕМАТИЧЕСКОЙ МОДЕЛИ
3. КРАТКИЕ СВЕДЕНИЯ О МЕТОДЕ РЕШЕНИЯ ЗАДАЧИ
3.1 ТАБЛИЧНЫЙ СИМПЛЕКС-МЕТОД
3.2 МЕТОД ИСКУССТВЕННЫХ ПЕРЕМЕННЫХ
4. ПРОВЕРКА ДОСТОВЕРНОСТИ ПОЛУЧЕННЫХ РЕЗУЛЬТАТОВ
5. АЛГОРИТМ РЕШЕНИЯ ЗАДАЧИ
6. ЛИСТИНГ ПРОГРАММЫ, РЕАЛИЗУЮЩИЙ АЛГОРИТМ ЗАДАЧИ
7. РУКОВОДСТВО ПОЛЬЗОВАТЕЛЯ
7.1 СИСТЕМНЫЕ ТРЕБОВАНИЯ
7.2 ОПИСАНИЕ ВОЗМОЖНОСТЕЙ
7.4 ГЛАВНОЕ МЕНЮ ПРОГРАММЫ
7.5 ИСПОЛЬЗОВАНИЕ
8. РЕШЕНИЕ ЗАДАЧИ КУРСОВОЙ РАБОТЫ НА ПЭВМ ПО ИСХОДНЫМ ДАННЫМ ИНДИВИДУАЛЬНОГО ВАРИАНТА
9. СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

', 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 с.