人工智能动物识别系统JAVA

1、实验报告课程名称 人工智能与专家系统实验名称动物分类专家系统设计系别电子信息科学学院专业班级指导教师学号姓名实验日期2016.4.1实验成绩一、实验目的1、加深理解专家系统的结构原理与实际应用。2、初步掌握知识获取的基本方法。3、掌握产生式规则知识表示方法及其编程实现方法。4、初步掌握知识库的组建方法。5、 加深理解推理机的算法原理并初步拿握其编程实现方法。二、实验环埴1、硬件环境：微机2、褊程语言不限三、实验原理一个基于规则专家系统的完整结构示于图 1。其中，知识库、推理机和工作存储器是构成专家系统的核心。系统的主要部分是知识库和推理引伞。知识库由谓词演算事实和有关讨论主题的规则构成。推理引

2、擎由所有操纵知识库来演绎用户要求的信息的过程构成一如消解 .前向链或反向链。用户接口可能包括某种自然语言处浬系统，它允许用户用一个有限的自然语言形式与系统交互；也可能用带有菜单的图形接口界面。解释亍系统分析被系统执行的推理结构，并把它解释给用户。用户知识工程师图1一个基于规则专家系统的完整结构三.实验内容运用下列规则，设计并实现一个小型动物分类专家系统。规则1:如果：动物有毛较则：该动物是哺乳动物规则2 :如果：动物有奶则：该单位是哺乳动物规则 3:如果：该动物有羽毛则：该动物是鸟规则 4 :如果：动物会飞，且会下蛋则：该动物是鸟规则 5 :如果：动物吃肉则：该动物是肉食动物规则 6 :如果：

3、动物有犬齿，且有爪，且眼盯前方则：该动物是食肉动物规则 7 ：如果：动物是哺乳动物，且有蹄则：该动物是有蹄动物规则 8 :如果：动物是哺乳动物，且是反刍动物则：该动物是有蹄动物规则 9 :如果：动物是哺乳动物，且是食肉动物，且是黄褐色的，且有暗斑点 则：该动物是豹规则 10 :如果：如臬：动物是黄褐色的，且是哺乳动物，且是食肉，且有黑条纹则：该动物是虎规则 11 :如果：动物有暗斑点，且有长腿，且有长脖亍，且是有蹄类则：该动物是长颈鹿规则 12 :如果：动物有黑条纹，且是有蹄类动物则：该动物是斑马规则 13 :如果：动物有长腿，且有长脖于，且是黑色的，且是鸟，且不会飞则：该动物是舵鸟规则 14

4、 :如果：动物是鸟，且不会飞，且会游泳，且是黑色的则：该动物是企鹅规则 15 :如果：动物是鸟，且善飞则：该动物是信天翁利用上述 15条规则，可区分7种动物。(2)推浬机设计：采用正向推浬。(3)实脸代码packag c ex;im pore java.aw t.C heckbox;import java.aw c* ;im pore java.nw；imporc javax .sw ing.* ;public class R ZS ex cends J Frame implements A ccion Listener private sta cic J Panel jp = new JPa

5、ncl();private J Label jll =ncw J Labclfit 选择条件： J;sea cic C heckboxQ Chcckb() x =0 用数组创复选框new Checkbox( H 有毛发 )new Checkbox(K 有奶 ”) ，new Checkbox(M 有羽毛 J,new Checkbox (M 会飞，且生蛋 TOC o 1-5 h z new Checkbox C 吃肉J,new Checkbox(M有犬齿，旦有爪，且眼盯前方 J,new Checkbox(M 有蹄”) ，new Checkbox(K 反刍动物 ”) ，new Checkbox(K

6、黄褐色有暗斑点)new Checkbox(M 黄褐色有黑条纹)new Checkbox(M 暗斑点，长腿，长荐亍)new Checkbox(M 黑条纹 J,new Checkbox(M长腿，长脖亍，黑色，不会飞new Checkbox(M不会飞，会游泳，黑色的)new Checkbox(M 善飞);static J B urton bud =ncw JB urton( M 确 定” ) ；static J B urton buc2 =ncv JB urton( M 垂直 ) ；static J Label Ibllmagc = new Labcl(ncw ImagcIcon( M 照片 nic

7、c.jpgH); private J Label jl2 =ncw J Labclf tfe tH 结果：H);private J Label j I 3 =ncw J Labcl( ,Mt);public RZS ()# 图形界面jp.sccLay out(null);jp.add(jll);jll.secBounds(3(), 0, 200,30);for(inc i = ();i=5;i+)jp.add(C heckbox i )； Checkboxi.sccBounds(30, 3()+ 产 5(), 200,26);for(inc i = 5;i=10;i+)jp.add(C hec

8、kbox i) ；Checkbox i.sctBounds(230, 30+(i-5)*50, 200,26); for(inc i = 10;i = 14;i+)jp.add(C heckbox i) ；C heckbox i .Serb ounds(430, 3() +(i-10)* 5(), 200,26);jp.add(butl);butl .sctBounds(30, 280, 100,30);jp.add(but2);but2.serB ounds(l 5(), 280, 10() ,3();jp.add(j!2);jl2.sctBounds(3(), 33(), 200,30);

9、jp.add(jl3);jl 3 .sccB ounds( 30 , 38() , 200 ,3(); burl.add A ctionListencr(ncw A ccionListcncrQpublic void accionPerform cd( A ccionEvent c)!/推理机if(Chcckbox0.gecS catc()= = rruc |C hcckbox l.gccS tatc()=cruc)& (Checkbox 4 .getS cacc() = = cruc |C heckbox 5 .getS caCc() = = truc)& (Checkbox 8-getSc

10、acc()=truc)jl3 .setTex ”豹 J;else if(C heckbox 0 .gecS cacc() = = cruc |C heckbox 1 .gecS caccO = = truc)& (Checkbox 4 .getS cacc() = = cruc |C heckbox 5 .gecS caCc() = = truc)& (Checkbox 9.gecScacc() = = cruc) jI3.scrTex ”虎 J;else if(C heckbox 0 .gecS cacc() = = cruc |C heckbox 1 .gecS caccO = = tru

11、c)& (Checkbox 6 getS carc() = = truc |C heckbox 7.getS cacc() = = truc)& (Checkbox 10 .gecS ratc() = = cruc)jI3.setTex t(w 长颈鹿J;else if(C heckbox 0 .gecS cacc() = = cruc |C heckbox 1 .gecS caccO = = truc)& (Checkbox 6 -getS ca cc() = = cruc |C heckbox 7 .gecS ca tc() = = truc)& (Checkbox 11 J.gccS c

12、arcO = = truc) 13.secTexcf 斑马 ” );else if(Chcckbox 2.getScatcO=truc) & (Checkbox 12.getScace()=truc) jB.secTcx f 鸵鸟” );else if(Chcckbox 2 -gecS tatc() = = cruc |C heckbox 3 .getS catcO = = cruc) & (Checkbox 13.gecS catc() = = cruc)13.secTex cf企鹅”)；else if(Chcckbox 2 -gecS tatc() = = cruc |C heckbox

13、3 .getS catcO = = cruc) & & (Checkbox 14.getS catc() = = cruc) 13.sccTcxcC 信天翁 J;else jl3.sctTcxt件不足或出错，谙重新勾选条件”););but2.addActionListencr(new A ctionListcncr()public void accionPerform cd( A ccionEvcnc c) 护重直for(inr i=0;i=14;i+)jl 3 .secTexCheckbox i ? secS tarc(falsc);)；jp.add(lblImagc);lbllmagc.s

14、ccB ounds(630,3(), 300, 400) ；chis.add(jp);chis.sccTidcC 动物识别系统u) ；this.sctB ounds(l()() ,100,1000,5()();this.sctVisiblc( true);public void accionPerform cd( A ccionEvciit c) #T) O() A uto-g ciicratcd method stub public static void main(Srring args) new RZS ();packag c tx;im pore java.aw c.C heckbox

15、 ;import java.aw c.* ;im pore java.aw t.event.* ;import javax.swing.*;public class R ZS ex tends J Frame implements A ccion Listener private sea cic J Panel jp = new JPancl();private J Label jll =ncw JLabcl( Hi 选择条件：J;Sta cic C heckboxO Checkbox23new C heckbox ( M 有毛发 )new Checkbox(H 有奶 ) ，new Check

16、boxC 有羽毛 )new Checkbox (H 会飞，且生蛋”) ，new CheckboxC 吃肉 )new Checkbox(,f有犬齿，且有爪，旦眼盯前方)new CheckboxCW 蹄 )new Checkbox 刍动物 J,new CheckboxC 黄褐色有暗斑点 )new CheckboxC#褐色有黑条纹)new Checkboxes 斑点, 长腿，长脖亍 )new CheckboxC 黑条纹 )new Checkboxes,：腿，长脖于，黑色，不会飞)new Checkboxes会飞，会游泳，黑色的)new Checkbox ( 善 飞);static JBurton b

17、ud =ncw JB utu) n(,1 确 定” ) ；sta tic J B urton buc2 =ncv JB utton( ,1A 直”；)static J Label Ibilmagc = new J Labe 1(new Imagdcon( M 照片 nicc.jpg*); private J Label jl2 =ncw JLabcl( M 推出结果： u); private J Label j I 3 =ncw J Labcl( HM);public RZS ()jp.sccLayour(null);jp.add(jll);jll.sctBounds(30, 0, 200,3

18、0);for(inc i = 0;i=5;i+) jp.add(C heckbox i )； Checkbox iJ.sccB oundsCSO, 3()+产 5(), 200,26); for(inc i = 5;i = 10;i+)jp.add(C heckbox i) ；Checkbox i -Serb Guilds(230, 3() +(i-5)* 5(), 200,26); for(int i = 10;i 33(), 200,30);jp.add(jl3);jl 3 .sccB ounds( 30 , 38() , 200 ,3();public void accionPerfor

19、m cd( A ccionEvent c)burl.add A crionListcncr(ncw A ccionListcncrQf(Chcc&k&box0 .gecS catc()= = truc |C hcckbox l.gccS tatc()=cruc)(Checkbox 4 .gecS caccO = = cruc |C heckbox 5 .gecS catcO = = truc) & (Checkbox 8-gttScace()=truc)/这里要把其它的复选框.gcrStatc() = = false,否则选择两种动物以上 会出错，但是 我懒，没改。jl3 .setTex ”豹

20、 J;else if(C heekbox 0 .geeS eaee() = = erue |C heekbox 1 .geeS eaeeO = = true)& (Cheekbox 4 .getS eaee() = = erue |C heekbox 5 .geeS eate0 = = true)& (Cheekbox 9.geeSeaee() = = erue) jI3.setTex ”虎 J;else if(C heekbox 0 .geeS eaee() = = erue |C heekbox 1 .geeS eaeeO = = true)& (Cheekbox 6 getS eare(

21、) = = true |C heekbox 7.getS eaeeQ = = true)& (Cheekbox 10 .geeS rate() = = erue)j 13.setTex 长颈鹿 ”) ；else if(C heekbox 0 .geeS eaee() = = erue |C heekbox 1 .geeS eaeeO = = true)& (Cheekbox 6 -getS ea ee() = = erue |C heekbox 7 .geeS ea te() = = true)& (Cheekbox 11 J.geeS tareQ = = true)i 13 .setTex X 斑马” ) ；else if(C heek box 2 .getS eaeeO = = true) & (C heekbox 12 .getS ea Ce() = = true) i 13 .setTex *鸵鸟”);else if(Cheekbox 2 -geeS ta re() = = erue |C heek box 3 .getS ea teO = = erue)& (Cheekbox 13.geeS eate() = = erue)i 13-setTex 企鹅”