西电 人工智能上机报告人工智能3.doc

人工智能实验上机报告三班级：130811 学号：13081039 姓名：潘 圣 志上机实验（三）小型专家系统一 定义题目（包含图）短跑运动员水平测试系统刘翔：皮肤黄胡子有脸型长国际大奖有身高高史冬鹏：胡子无国际大奖有身高高黄晓明：皮肤古铜胡子有嗓门大国际大奖无身高矮系统要根据属性识别运动员特质，例如，皮肤黄色，有胡子，高个子。二谓词定义databasexpositive( symbol, symbol) .xnegative( symbol, symbol) .predicatesrun.animal- is( symbol) .it- is( symbol) .positive( symbol, symbol) .negative( symbol, symbol) .clear- facts.remember( symbol, symbol) .ask( symbol, symbol) .三 程序代码 traceDababase Spositive(symbol,symbol) Snegative(symbol,symbol) Predicates Run Person_is(symbol) Positive(symbol,symbol)Negative(symbol,symbol) Clear_facesRemember(symbol,symbol,symbol)Ask(symbol,symbol) Goal RunClauses Run:- Person_is(x),!, write(“THIS IS ”, X),nl,nl,clear_facts. Run:- write (“can not determine this person”), clear_facts.Positive(X,Y);-xpositive(X,Y),!Positive(X,Y):-not(xnegetive(X,Y),ask(X,Y).Negative(X,Y):-xnegative(X,Y),!Negative(X,Y):-not(xpositive(X,Y),ask(X,Y).ask(X,Y):-write(How about his ,X,?nPress yes, if ,Y, , press no for others.n),readln(Reply), remember(X,Y,Reply).remember(X,Y,yes):-asserta(xpositive(X,Y).remember(X,Y,no):-asserta(xnegative(X,Y),fail.clear_facts:-retract(xpositive(_,_),fail.clear_facts:-retract(xnegative(_,_),fail.clear_facts:-write(nnPlease press space bar to quit), readchar(_).Person_is(“liuxiang”):- Positive(“face color”,”red”), Positive(“Stature”, “high”), Positive(“mustache”,”exist”).Positive(“face feature”, “long”).Positive(“zhengshu”, “sword”). Person_is(“huangxiaoming”):- Positive(“face color”,”black”), Positive(“mustache”,”exist”). Positive(“voice”,”high”).Positive(“zhengshu”, “spear”). Positive(“stature”, “short”). Person_is(“shidongpeng”):-Positive(