人工智能動物識別系統(tǒng)JAVA

1、實驗報告課程名稱 人工智能與專家系統(tǒng)實驗名稱動物分類專家系統(tǒng)設計系別電子信息科學學院專業(yè)班級指導教師學號姓名實驗日期2016.4.1實驗成績一、實驗目的1、加深理解專家系統(tǒng)的結構原理與實際應用。2、初步掌握知識獲取的基本方法。3、掌握產生式規(guī)則知識表示方法及其編程實現(xiàn)方法。4、初步掌握知識庫的組建方法。5、 加深理解推理機的算法原理并初步拿握其編程實現(xiàn)方法。二、實驗環(huán)埴1、硬件環(huán)境：微機2、褊程語言不限三、實驗原理一個基于規(guī)則專家系統(tǒng)的完整結構示于圖 1。其中，知識庫、推理機和工作存儲器是構成專家系統(tǒng)的核心。系統(tǒng)的主要部分是知識庫和推理引傘。知識庫由謂詞演算事實和有關討論主題的規(guī)則構成。推理引

2、擎由所有操縱知識庫來演繹用戶要求的信息的過程構成一如消解 .前向鏈或反向鏈。用戶接口可能包括某種自然語言處浬系統(tǒng)，它允許用戶用一個有限的自然語言形式與系統(tǒng)交互；也可能用帶有菜單的圖形接口界面。解釋亍系統(tǒng)分析被系統(tǒng)執(zhí)行的推理結構，并把它解釋給用戶。用戶知識工程師圖1一個基于規(guī)則專家系統(tǒng)的完整結構三.實驗內容運用下列規(guī)則，設計并實現(xiàn)一個小型動物分類專家系統(tǒng)。規(guī)則1:如果：動物有毛較則：該動物是哺乳動物規(guī)則2 :如果：動物有奶則：該單位是哺乳動物規(guī)則 3:如果：該動物有羽毛則：該動物是鳥規(guī)則 4 :如果：動物會飛，且會下蛋則：該動物是鳥規(guī)則 5 :如果：動物吃肉則：該動物是肉食動物規(guī)則 6 :如果：

3、動物有犬齒，且有爪，且眼盯前方則：該動物是食肉動物規(guī)則 7 ：如果：動物是哺乳動物，且有蹄則：該動物是有蹄動物規(guī)則 8 :如果：動物是哺乳動物，且是反芻動物則：該動物是有蹄動物規(guī)則 9 :如果：動物是哺乳動物，且是食肉動物，且是黃褐色的，且有暗斑點 則：該動物是豹規(guī)則 10 :如果：如臬：動物是黃褐色的，且是哺乳動物，且是食肉，且有黑條紋則：該動物是虎規(guī)則 11 :如果：動物有暗斑點，且有長腿，且有長脖亍，且是有蹄類則：該動物是長頸鹿規(guī)則 12 :如果：動物有黑條紋，且是有蹄類動物則：該動物是斑馬規(guī)則 13 :如果：動物有長腿，且有長脖于，且是黑色的，且是鳥，且不會飛則：該動物是舵鳥規(guī)則 14

4、 :如果：動物是鳥，且不會飛，且會游泳，且是黑色的則：該動物是企鵝規(guī)則 15 :如果：動物是鳥，且善飛則：該動物是信天翁利用上述 15條規(guī)則，可區(qū)分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 用數(shù)組創(chuàng)復選框new Checkbox( H 有毛發(fā) )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 動物識別系統(tǒng)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 有毛發(fā) )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 企鵝”