Методические указания и примеры выполнения задания №6 " Моделирование процессов принятия решений"

Вид материала

Содержание

Подобный материал:

1 2 3 4 5 6 7 8 9 10

Методические указания и примеры выполнения задания №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.

Blog

Методические указания и примеры выполнения задания №6 " Моделирование процессов принятия решений"

Содержание

Примеры принятия решения

Распознавание символов