Читать курсовая по Отсутствует: "Разработка экспертной системы "Подбор сотовых телефонов"" Страница 5

(Назад) (Cкачать работу)

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

Заключение В данной курсовой работе была поставлена задача разработки и программной реализации экспертной системы “Сотовые телефоны”.

В ходе решения задачи были разработаны различные доменные структуры и предикаты. Было произведено кодирование на языке программирования Пролог и функциональное тестирование, в ходе которого было выявлено, что программа решает задачу корректно и устойчиво работает на тестовом наборе данных.

Список использованных источников1. Малпас Дж. Реляционный язык Пролог и его применение.- М.: Наука, 1990.-464 с.

2. Братко И. Программирование на языке Пролог для искусственного интеллекта. - Мир, 1990.-560 с.

. Курс лекций по предмету “Системы искусственного интеллекта” Михалев А.Г.

. «Встроенные предикаты Турбо- Пролога»: методические указания часть 1,2,3/ Б.В. Казаков, И.А. Казакова, А.Г. Михалёв, О.С. Дорофеева; под редакцией проф. Б.Г. Хмелевского. - Пенза: издательство ПГУ, 1998 г.

Приложение А

.pro

include "Vopros.pro"=integer*=Symbol(RNO,GATE,GATE,Cond,Cond)(1,"ТЕЛЕФОН","Alcatel One Touch 512",[10,20,30,40,111,120],[53,64,70,80,90,100,130,140,151,160,171,181,191,201,211]).(2,"ТЕЛЕФОН","Alcatel One Touch 512i",[10,20,30,40,111,120],[53,64,70,80,90,100,130,140,151,160,171,181,191,201,210]).(3,"ТЕЛЕФОН","Motorolla T190",[10,20,31,41,110,120],[51,63,70,80,91,100,131,140,150,160,170,181,191,201,211]).(4,"ТЕЛЕФОН","Ericsson T65",[11,21,30,40,111,120],[53,62,70,81,90,101,130,141,151,160,170,180,191,204,211]).(5,"ТЕЛЕФОН","LG W7000",[10,20,30,40,113,121],[54,65,71,80,91,101,130,140,150,160,170,181,190,204,211]).(6,"ТЕЛЕФОН","LG W5200",[12,20,30,40,113,121],[50,65,71,80,91,100,130,141,150,161,170,180,190,204,211]).(7,"ТЕЛЕФОН","Motorolla T720",[10,20,30,40,113,121],[52,64,71,80,90,100,131,140,150,160,170,181,190,201,210]).(8,"ТЕЛЕФОН","Nokia 6100",[12,20,31,40,113,120],[52,66,70,80,90,100,130,140,150,160,170,180,190,203,210]).(9,"ТЕЛЕФОН","Sony CMP-J70",[10,21,30,41,110,120],[53,61,71,80,91,100,131,141,151,160,170,181,191,202,211]).(10,"ТЕЛЕФОН","Siemens C55",[10,21,30,41,111,120],[52,60,71,81,91,100,131,140,151,161,170,181,191,200,211]).(11,"ТЕЛЕФОН","Ericsson R520",[10,21,30,41,110,120],[52,62,70,81,91,101,130,140,151,160,171,180,191,203,211]).(12,"ТЕЛЕФОН","Alcatel One Touch 715",[11,20,31,40,112,120],[52,61,71,80,90,100,131,141,150,161,170,181,190,202,211]).(13,"ТЕЛЕФОН","Alcatel One Touch 310",[10,20,30,41,110,120],[52,61,70,80,91,101,130,141,151,160,171,181,191,200,211])..pro"Baza.pro"= myfile(BNO)(BNO)(Integer)(BNO)(Integer)(String)(GATE)_No(BNO)_Yes(Nom,BNO)_1(BNO)_number(Nom)(Cond,GATE,integer)(RNO,Cond,Cond,integer,integer)(Cond,RNO,BNO,String,integer,integer)(Cond,RNO,String,BNO,integer,integer,integer)

Opred_Kolva_Cond(integer,integer)(Cond,integer,integer) _Yes

%------------------Предикаты критерия_crit(RNO,Cond,Cond)_crit(Cond,RNO,BNO,String)_crit(Cond,RNO,String,BNO,integer)

% Приближенный поиск_Cond(BNO,Cond) _Rule(Cond,Cond)_y(Cond,Cond) _Param(Cond)_Other_Param(X):-not(Rabota([],X,100)),otv(1),!.

Consultat(_):-otv(2),nl,("В точности таких телефонов у нас нет, но можем предложить Вам\n наиболее подходящие по основным критериям\n"),nl,/*нажмите кнопку*/

openappend(myfile,"List.txt"),(myfile),

write("В точности таких телефонов у нас нет, но можем предложить Вам \n наиболее подходящие по основным критериям\n"),nl,

closefile(myfile),Pol_Other_Param,fail.(_).

%--------------------------------------------(_,X,Y):-(rule(_,X,_,_,_)),!,not(tel(X)),

nl,write("Ваш выбор это - ",X," с уверенностью - ",Y,"%"),

openappend(myfile,"List.txt"),(myfile),

nl,write("Ваш выбор это - ",X," с уверенностью - ",Y,"%"),

closefile(myfile),(tel(X)),nl.(History,X,_):-rule(RNO,X,Ny,Cond1,Cond),_crit(RNO,History,Cond1),(RNO,History,Cond,100,Z),_Yes,([RNO|History],Ny,Z),fail.(_,_,_):-fail.

Похожие работы