Методические указания и примеры выполнения задания №6 " Моделирование процессов принятия решений"
Вид материала | Методические указания |
- Рабочая программа, методические указания по выполнению курсовой работы, темы курсовых, 1694.43kb.
- Программа дисциплины Моделирование экономических процессов для направления 080100., 53.79kb.
- Методические указания для выполнения курсовой работы по дисциплине «Теория принятия, 547.84kb.
- Методические указания к изучению курса «модели и методы принятия решений в анализе, 683.86kb.
- Методические указания к выполнению контрольных, курсовых работ По дисциплине Имитационное, 222.24kb.
- Анализ принятия управленческих решений, 54.28kb.
- Методические указания по изучению дисциплины и задания для выполнения, 272.59kb.
- Лекция №10: «Интеллектуальные системы принятия решений и управления в условиях конфликта», 581.94kb.
- Методические указания к выполнению лабораторной работы №23 по физике для студентов, 142.34kb.
- Методические указания для выполнения контрольных работ по курсу «Автоматика и автоматизация, 447.92kb.
Методические указания и примеры выполнения задания №6
“Моделирование процессов принятия решений”
по дисциплине Моделирование
НАУЧНЫЙ РУКОВОДИТЕЛЬ КУЦОКОНЬ Н.С.
Примеры принятия решения
В данном пособии представлены примеры выполнения шестой лабораторной работы по теме «Моделирование процессов принятия решений». В ходе лабораторной работы нужно создать модель оператора который принимает решения в ходе решения какой-то задачи. В ходе выполнения работы надо учитывать коэффициент забывания информации оператором, коэффициент приобретения знания. Ниже приведены несколько примеров выполнения лабораторной работы № 6.
• Распознавание символов автор Краюшкин В.В. ЭВМд-31
• Создание коллажа автор Лебедева О.Ю. ЭВМд-31
• Проверка орфографии автор Гишкаева Л.А. ЭВМд-31
• Редактирование текста автор Шибанова А.В. ЭВМд-31
• Управление расходом электроэнергии автор Зиганшина Ю.Р. ЭВМд-31
• Игра автор Павлов А.В. ЭВМд-31
• Модель принятия решения при приёме на работу оператора ЭВМ автор Акимов С.В. ЭВМд-31
• Модель принятия решения преферансистом на этапе торговли автор Аникин А.В. ЭВМд-32
• Оптимизация комплектации ПК для конкретного пользователя автор Антонов С.В. ЭВМд-31
• Модель выбора спринтера в эстафету автор Батанова В.А. ЭВМд-32
• Моделирование процесса составления расписания уроков автор Власов И.В. ЭВМд-32
• Модель задачи коммивояжёра автор Долгов А.А. ЭВМд-31
• Выбор экономичного пути на заданном рельефе автор Гридасова Ю.Ю. ЭВМд-31
• Оптимизация размещения данных на жёстком диске автор Ильдюков Д.М. ЭВМд-32
• Модель принятия решения при покупке компьютера в г. Ульяновске автор Ильичёва Е.Н. ЭВМд-32
• Моделирование задачи автодилера автор Лебедев А.С. ЭВМд-31
• Выбор экономичного пути на заданном рельефе автор Миронов С.В. ЭВМд-31
• Модель задачи перевозки грузов автор Насибулов Ш.М. ЭВМд-32
• Модель задачи коммивояжёра автор Парушева О.М. ЭВМд-31
• Модель выбора оптимального маршрута движения автор Стариков М.Ю. ЭВМд-31
• Оптимизация трассировки городского водопровода автор Тормозов Е.В. ЭВМд-31
• Модель формирования заданий на проектирование систем «человек – оператор – человек» автор Шембергер А.В. ЭВМд-32
• Модель формирования заданий на коммерческое программирование автор Юкин А.Н. ЭВМд-32
Распознавание символов
ЦЕЛЬ: Распознать произвольно введенную букву (программа упрощена, она распознает только две буквы Т и Г).
ОГРАНИЧЕНИЯ : В матрицу предназначенную для ввода распознаваемого символа может быть введен только один символ.
АЛЬТЕРНАТИВЫ: Можно считать, что в матрицу можно ввести любое сочетание элементов(закрашенных прямоугольников) которые могут образовать любой символ, или хаотическую комбинацию.
ТИП: Однокритериальная, детерминировная, статическая.
Пример ввода буквы Т
Пример ввода буквы Г
Программа работает следующим образом: Вы задаете координаты прямоугольников матрицы , после ввода прямоугольники закрашиваются в красный цвет (после соответствующего приглашения вводите координаты, если Вы ошиблись, то введите еще раз ошибочные координаты и данный прямоугольник закрасится в первоначальный цвет)которые нужно закрасить, эти закрашенные прямоугольники образуют какой-либо символ программа пытается распознать его, если это буква Т или Г (для сообщения программе что Вы окончили ввод введите несуществующие координаты например (-1,-6), то программа может успешно распознать этот символ и сообщить Вам об этом.
Исходный текст программы (реализовано на Turbo Pascal):
uses crt;
var;
x,y,px,py,io,ii:integer;
max,min:byte;
mx,mn,max_lc,min_lc,max_rc,min_rc:byte;
sr_lc,sr_rc:byte;
mas:array[1..5,1..7]of byte;
o:array[1..20]of integer;
p:array[1..10]of byte;
k:array[1..10]of byte;
b:array[1..10]of byte;
label jf,jt;
{==================================================}
BEGIN
clrscr;
for x:=1 to 5 do begin
for y:=1 to 7 do begin
mas[x,y]:=0;
end;end;
for x:=1 to 10 do begin
o[x]:=0;end;
min:=7;max:=1;
writeln(' 12345 -> x');
textcolor(2);
for y:=1 to 7 do begin
write(y);
for x:=1 to 5 do begin
write('n ');
end;
writeln;
end;
gotoxy(1,2);write('1');
gotoxy(1,3);write('2');
gotoxy(1,4);write('3');
gotoxy(1,5);write('4');
gotoxy(1,6);write('5');
gotoxy(1,7);write('6');
gotoxy(1,8);write('7');
x:=10;
while(x>0) do begin
gotoxy(1,10);write('x: ');read(x);
gotoxy(1,11);write('y: ');read(y);
if mas[x,y]=0 then mas[x,y]:=1 else mas[x,y]:=0;
gotoxy(1,2);
for py:=1 to 7 do begin
write(py);
for px:=1 to 5 do begin
if mas[px,py]=1 then textcolor(4);
write('n ');textcolor(2);
end;writeln;end;
end;
min:=7;max:=0;
for io:=1 to 7 do begin{O}
if (mas[2,io]=1) then o[1]:=o[1]+1;
if (mas[3,io]=1) then o[2]:=o[2]+1;
if (mas[4,io]=1) then o[3]:=o[3]+1;
if (mas[1,io]=1)then begin
if min>io then min:=io;
if max
if (mas[2,io]=1)then begin
if min>io then min:=io;
if max
if (mas[3,io]=1)then begin
if min>io then min:=io;
if max
if (mas[4,io]=1)then begin
if min>io then min:=io;
if max
end;
sr_rc:=0;sr_lc:=5;
for io:=1 to 5 do begin
if mas[io,round((min+max)/2)]=1 then begin
if sr_rc
if sr_lc>io then sr_lc:=io;end;
end;
if (mas[sr_lc,round((min+max)/2)]=1) then o[4]:=o[4]+1;
if (mas[sr_rc,round((min+max)/2)]=1) then o[4]:=o[4]+1;
o[17]:=0;o[16]:=0;
min_rc:=0;min_lc:=5;
max_rc:=0;max_lc:=5;
for io:=1 to 5 do begin{T}
if mas[io,max]=1 then begin o[17]:=o[17]+1;
if max_rc
if max_lc>io then max_lc:=io;end;
if mas[io,min]=1 then begin o[16]:=o[16]+1;
if min_rc
if min_lc>io then min_lc:=io;end;
end;
if (min_lc<>min_rc)and(max_lc=max_rc)and(min_rc<>max_rc) then o[15]:=1;
if (min_lc<>min_rc)and(max_lc=max_rc)and(min_lc=max_lc)then o[15]:=2;
if (sr_lc<=max_lc)and(sr_rc>=max_rc) then o[14]:=1;
{-------------------------------------------------}
gotoxy(1,15);write('БУКВА: ');
if (o[1]=2)or(o[2]=2)or(o[3]=2) then o[20]:=o[20]+1;
if (o[4]=2)or(o[5]=2)or(o[6]=2)or(o[7]=2)or(o[8]=2) then o[20]:=o[20]+1;
if (o[15]=1)and(o[16]<>o[17])then begin writeln('T');
goto jt;end;
if (o[15]=2)and(o[16]<>o[17])then begin writeln('Г');
goto jt;end;
jf:
writeln('НЕОПОЗННАЯ БУКВА');
jt:
readkey;
END.