人工智能實驗-小型專家系統(tǒng)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)專心-專注-專業(yè)精選優(yōu)質(zhì)文檔-傾情為你奉上專心-專注-專業(yè)人工智能技術(shù)導(dǎo)論小型專家系統(tǒng)班 級：學(xué) 號：學(xué) 生 姓 名： 汽車識別系統(tǒng)1. 題目: 這是一個簡單的車輛識別系統(tǒng)，有：紅旗、奇瑞350、QQ、東風(fēng)卡車、寶馬、勞斯萊斯、本田、卡宴 8種車。顧客使用我們這個系統(tǒng)，只需根據(jù)窗口提供的內(nèi)容回答“yes”或“no”，系統(tǒng)將會幫你選擇你可能中意的愛車。 2該專家系統(tǒng)設(shè)計車的特性是： （1）中國 （5）兩驅(qū)（2）外國 （6）四驅(qū) （3）轎車 （7）國產(chǎn)（4）SUV （8）進口各種車輛的特征如下： 3、謂詞定義 do_expert_

2、job do_consultingask (symbol, symbol)car_is (symbol)positive(symbol,symbol)negative (symbol,symbol)remember (symbol,symbol,symbol)clear_facts4該專家系統(tǒng)設(shè)計汽車的分類是：首先按照中國外國，再按各種特征分類，如下圖所示。 5、程序/* work. pro */* Program: Car Expert */* Purpose: To Show the working of an expert */* It is a production rule _bas

3、ed system */* Remark: This is a car classification expert system */* It uses a set of production rules for the*/* purpose of inferring. */domainsdatabase xpositive(symbol,symbol) xnegative(symbol,symbol)predicates do_expert_job do_consultingask(symbol, symbol)car_is(symbol)positive(symbol,symbol)neg

4、ative(symbol,symbol)remember(symbol,symbol,symbol)clear_factsgoal do_expert_job.clauses/* USER INTERFACE SYSTEM */do_expert_job:- makewindow(1,7,7,AN EXPERT SYSTEMS, 1, 16,15,58), nl,write( *), nl,write( WELCOME TO AGOG EXPERT SYSTEM ), nl,write( This is a car identification system ), nl,write( Plea

5、se respond by typing in ), nl, write( yes or no. Thank you ), nl, write( ), nl, write (*), nl, nl, do_consulting, write(Press space bar.),nl, readchar(_), clearwindow, exit.do_consulting:- car_is(X),!, nl,write(Your favorite car may be a(n) ,X,.),nl, clear_facts.do_consulting:- nl,write(Sorry, unabi

6、e to determine the car.),nl, clear_facts.ask(X,Y):- write(Question:-,X, it ,Y,?), readln(Reply), remember(X,Y,Reply)./* INFERENCE BIGING */positive(X,Y):- xpositive(X,Y), !.positive(X,Y):- not(negative(X,Y),!,ask(X,Y).negative(X,Y):- xnegative(X,Y), !.remember(X,Y,yes):- asserta(xpositive(X,Y).remem

7、ber(X,Y,no):- asserta(xnegative(X,Y),fail.clear_facts:- retract(xpositive(_,_),fail.clear_facts:- retract(xnegative(_,_),fail./* Production rules */car_is(swan):- positive(is,zhongguo), positive(is,jiaoche), positive(is,liangqu), positive(is,jinkou),!.car_is(qirui):- positive(is,zhongguo), positive(

8、is,jiaoche), positive(is,liangqu), positive(is,guochan),!.car_is(QQSUV):- positive(is,zhongguo), positive(is,SUV), positive(is,liangqu), positive(is,guochan),!.car_is(dongfengka):- positive(is,zhongguo), positive(is,siqu), positive(is,guochan),!.car_is(baoma):- positive(is,waiguo), positive(is,SUV), positive(is,siqu), positive(is,jinkou),!.car_is(laosilaisi):- positive(is,waiguo), positive(is,jiaoche), positive(is,liangqu), positive(is,guochan),!.car_is(bentian):- positive(is,waiguo), positive(is,jiaoche), positive(is,siqu), positive(is,guochan),!.car_is(kayan