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

人工智能 实验上机报告三 班级：130811 学号 姓名：潘 圣 志 上机实验（三） 小型专家系统 定义题目（包含图） 短跑运动员水平测试系统 刘翔： 皮肤 黄 胡子 有 脸型 长 国际大奖 有 身高 高 史冬鹏： 胡子 无 国际大奖 有 身高 高 黄晓明： 皮肤 古铜 胡子 有 嗓门 大 国际大奖 无 身高 矮 系统要根据属性识别运动员特质，例如，皮肤黄色，有胡子，高个子。 二．谓词定义 database xpositive( symbol, symbol) . xnegative( symbol, symbol) . predicates run. animal- is( symbol) . it- is( symbol) . positive( symbol, symbol) . negative( symbol, symbol) . clear- facts. remember( symbol, symbol) . ask( symbol, symbol) . 程序代码 trace Dababase Spositive(symbol,symbol) Snegative(symbol,symbol) Predicates Run Person_is(symbol) Positive(symbol,symbol) Negative(symbol,symbol) Clear_faces Remember(symbol,symbol,symbol) Ask(symbol,symbol) Goal Run Clauses 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(\n\nPlease 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(“mustache”,”exist”). Positive(“zhengshu”, “gun”). Positive(“Stature”, “high”) 给出运行结果