動(dòng)物識(shí)別專家系統(tǒng)試驗(yàn)報(bào)告

1、題目：動(dòng)物識(shí)別專家系統(tǒng)一.實(shí)驗(yàn)?zāi)康睦斫夂驼莆债a(chǎn)生式只是表示方法，能夠用選定的編程語(yǔ)言實(shí)現(xiàn)產(chǎn)生式系統(tǒng)的規(guī)則庫(kù)。二.實(shí)驗(yàn)內(nèi)容(1)以動(dòng)物識(shí)別系統(tǒng)的產(chǎn)生式規(guī)則為例。(2)用選定的編程語(yǔ)言建造規(guī)則庫(kù)和綜合數(shù)據(jù)庫(kù)，并能對(duì)它們進(jìn)行增加、刪除和修改操作。三.實(shí)驗(yàn)原理動(dòng)物識(shí)別專家系統(tǒng)是流行的專家系統(tǒng)實(shí)驗(yàn)?zāi)Ｐ?，它用產(chǎn)生式r來(lái)表示知識(shí)，共15條r、可以識(shí)別七種動(dòng)物，這些r既少又簡(jiǎn)單，可以改造他們，也可以加進(jìn)新的r,還可以用來(lái)識(shí)別其他東西的新r來(lái)取代這些r。動(dòng)物識(shí)別15條r:ri:IF動(dòng)物有毛發(fā)THEN該動(dòng)物是哺乳動(dòng)物r2:IF動(dòng)物能產(chǎn)奶THEN該單位是哺乳動(dòng)物r3:IF該動(dòng)物有羽毛THEN該動(dòng)物是鳥r4:IF動(dòng)物

2、會(huì)飛AND會(huì)下蛋THEN該動(dòng)物是鳥r5:IF動(dòng)物吃肉THEN該動(dòng)物是肉食動(dòng)物r6:IF動(dòng)物有犬齒AND有爪AND眼盯前方THEN該動(dòng)物是食肉動(dòng)物r7:IF動(dòng)物是哺乳動(dòng)物AND有蹄THEN該動(dòng)物是有蹄動(dòng)物r8:IF動(dòng)物是哺乳動(dòng)物AND是反芻動(dòng)物THEN該動(dòng)物是有蹄動(dòng)物r9:IF動(dòng)物是哺乳動(dòng)物AND是食肉動(dòng)物AND是黃褐色的AND有暗斑點(diǎn)THEN該動(dòng)物是豹r10:IF動(dòng)物是黃褐色的AND是哺乳動(dòng)物AND是食肉AND有黑條紋THEN該動(dòng)物是虎r11:IF動(dòng)物有暗斑點(diǎn)AND有長(zhǎng)腿AND有長(zhǎng)脖子AND是有蹄類THEN該動(dòng)物是長(zhǎng)頸鹿r12:IF動(dòng)物有黑條紋AND是有蹄類動(dòng)物THEN該動(dòng)物是斑馬r13:IF

3、動(dòng)物有長(zhǎng)腿AND有長(zhǎng)脖子AND是黑色的AND是鳥AND不會(huì)飛THEN該動(dòng)物是鴕鳥r14:IF動(dòng)物是鳥AND不會(huì)飛AND會(huì)游泳AND是黑色的THEN該動(dòng)物是企鵝r15:IF動(dòng)物是鳥AND善飛THEN該動(dòng)物是信天翁四.推理樹部分推理樹如下:五.代碼程序是用java編寫的規(guī)則對(duì)象代碼：publicclassRulepremise=newprivateArrayList<Integer>ArrayList<Integer>();privateintresultpublicvoidaddPremise(intitem)premise.add(item);publicintsize

4、()returnpremise.size();)publicintgetPremiseAt(intindex)returnpremise.get(index);)publicvoidsetResult(intresult)this.result=result;)publicintgetResult()returnresult;)規(guī)則庫(kù)代碼如下：publicclassRuleBaseprivateArrayList<Rule>rules=newArrayList<Rule>();publicintsize()returnrules.size();publicRuleBas

5、e()init();)publicvoidaddRule(Rulerule)rules.add(rule);)publicRulegetRuleAt(intindex)returnrules.get(index);)publicvoidinit()Rulerule1=newRule();rule1.addPremise(0);rule1.setResult(20);rules.add(rule1);Rulerule2=newRule();rule2.addPremise(1);rule2.setResult(20);rules.add(rule2);rule3.addPremise(2);ru

6、le3.setResult(21);rules.add(rule3);Rulerule4=newRule();rule4.addPremise(3);rule4.addPremise(13);rule4.setResult(21);rules.add(rule4);Rulerule5=newRule();rule5.addPremise(19);rule5.setResult(22);rules.add(rule5);Rulerule6=newRule();rule6.addPremise(4);rule6.addPremise(15);rule6.addPremise(12);rule6.s

7、etResult(22);rules.add(rule6);Rulerule7=newRule();rule7.addPremise(20);rule7.addPremise(9);rule7.setResult(23);rules.add(rule7);rule8.addPremise(20);rule8.addPremise(18);rule8.setResult(23);rules.add(rule8);Rulerule9=newRule();rule9.addPremise(20);rule9.addPremise(22);rule9.addPremise(14);rule9.addP

8、remise(11);rule9.setResult(24);rules.add(rule9);Rulerule10=newRule();rule10.addPremise(20);rule10.addPremise(22);rule10.addPremise(11);rule10.addPremise(5);rule10.setResult(25);rules.add(rule10);Rulerule11=newRule();rule11.addPremise(23);rule11.addPremise(6);rule11.addPremise(7);rule11.addPremise(14

9、);rule11.setResult(30);rules.add(rule11);Rulerule12=newRule();rule12.addPremise(23);rule12.addPremise(5);rule12.setResult(26);rules.add(rule12);Rulerule13=newRule();rule13.addPremise(21);rule13.addPremise(6);rule13.addPremise(17);rule13.addPremise(7);rule13.setResult(27);rules.add(rule13);Rulerule14

10、=newRule();rule14.addPremise(21);rule14.addPremise(10);rule14.addPremise(17);rule14.addPremise(8);rule14.setResult(28);rules.add(rule14);Rulerule15=newRule();rule15.addPremise(21);rule15.addPremise(16);rule15.setResult(29);rules.add(rule15);)綜合數(shù)據(jù)庫(kù)代碼如下：publicclassDatabaseArrayList<Integer>db=ne

11、wArrayList<Integer>();publicvoidaddFact(intitem)db.add(item);)publicbooleancontains(intitem)returndb.contains(item);)控制系統(tǒng)代碼如下：publicclassMachinepublicstaticStringinference(Databasedb)RuleBaseruleBase=newRuleBase();intresult=0;for(inti=0;i<ruleBase.size();i+)intsize=ruleBase.getRuleAt(i).siz

12、e();booleanflag=truefor(intj=0;j<size;j+)if(!db.contains(ruleBase.getRuleAt(i).getPremiseAt(j)flag=false;break;if(flag)intfact=ruleBase.getRuleAt(i).getResult();db.addFact(fact);if(fact>=24)result=fact;break;switch(result)case 24:return"金錢豹"；case 25:return"老虎"；case 26:return"斑馬"；case 27:return"鴕鳥"；case 28:return"企鵝"；case 29:return"信天翁"case 30:return"長(zhǎng)頸鹿"de