動物專家系統(tǒng)實驗

華南農(nóng)業(yè)大學(xué)信息學(xué)院綜合性、設(shè)計性實驗成績單專業(yè)計算機(jī)班級01級1班學(xué)號200137412620013741322001374130200137410820013741032001374116姓名司徒志遠(yuǎn)張軼張微郭景順陳俊俠黎楚彬?qū)嶒烆}目動!按下列規(guī)則，寫出一個分類?！纺痰膭游锸遣溉轭?；（3）有羽二則它是鳥類；（5）吃肉的哺乳三是肉食動物；（7）反芻食物的哺（9）黃褐色有暗斑點(diǎn)的肉食類是老虎；（11）長腿長脖子有黃條紋的有蹄類是斑馬；（13）不游泳黑白色的鳥是企鵝；（15）物識別專家系統(tǒng)象系統(tǒng)：（1）有毛的動物是哺乳類；（2）有巨的動物是鳥類；（4）若動物會飛且會生蛋，類是肉食動物；（6）犬牙利爪，眼睛向前的乳類是有蹄類；（8）有蹄的哺乳類是有蹄類；［是金錢豹；（10）黃褐色有黑條紋的肉食類、褐色暗斑的有蹄類疋長頸鹿；（12）有黑白；會飛長腿長脖的鳥是鴕鳥；（14）不會飛善善飛的鳥是信天翁。自我評價司徒志遠(yuǎn)負(fù)責(zé)總體設(shè)計郭景順，黎楚彬負(fù)責(zé)資料收集。司徒志遠(yuǎn)，張軼負(fù)責(zé)程序設(shè)計陳俊俠負(fù)責(zé)程序測試。張微負(fù)責(zé)文檔報告。教師評語評價指標(biāo)：題目內(nèi)容完成情況優(yōu)口良口中口差口對算法原理的理解程度優(yōu)口良口中口差口程序設(shè)計水平優(yōu)口良口中口差口試驗報告結(jié)構(gòu)清晰優(yōu)口良口中口差口試驗總結(jié)和分析詳盡優(yōu)口良口中口差口成績教師簽名動物識別專家系統(tǒng)、實驗內(nèi)容按下列規(guī)則，寫出一個分類專家系統(tǒng)：（1）有毛的動物是哺乳類；（2）有奶的動物是哺乳類；（3）有羽毛的動物是鳥類；（4）若動物會飛且會生蛋，則它是鳥類；（5）吃肉的哺乳類是肉食動物；（6）犬牙利爪，眼睛向前的是肉食動物；（7）反芻食物的哺乳類是有蹄類；（8）有蹄的哺乳類是有蹄類；（9）黃褐色有暗斑點(diǎn)的肉食類是金錢豹；（10）黃褐色有黑條紋的肉食類是老虎；（11）長腿長脖子有黃褐色暗斑的有蹄類是長頸鹿（12）有黑白條紋的有蹄類是斑馬；（13）不會飛長腿長脖的鳥是鴕鳥；（14）不會飛善游泳黑白色的鳥是企鵝；（15）善飛的鳥是信天翁。二、實驗?zāi)康?．加深對產(chǎn)生式表示法的認(rèn)識；2.專家系統(tǒng)的學(xué)習(xí)與應(yīng)用

三、實驗原理四、設(shè)計過程1．環(huán)境與配置windows系統(tǒng)，Delphi7.0(可視化程序設(shè)計)2結(jié)果如下五．總結(jié)經(jīng)過這個實驗，我們更加深入的認(rèn)識了專家系統(tǒng)，設(shè)計出來了一個可以運(yùn)行的系統(tǒng)。雖然這個系統(tǒng)是很小的，但是通過實驗，我們可以學(xué)到很多東西。作為人工智能的一次綜合性作業(yè)，通過實驗，我們更加深入的理解了知識的表示，利用和控制。這次實驗打到了預(yù)期的目標(biāo)。附錄：主要源代碼unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,DB,DBTables,Grids,DBGrids,DBCtrls,StdCtrls,ExtCtrls,CheckLst,ADODB;typeTForm1=class(TForm)DataSource1:TDataSource;DataSource2:TDataSource;GroupBox1:TGroupBox;Panel2:TPanel;Panel1:TPanel;Panel3:TPanel;Splitter1:TSplitter;Splitter2:TSplitter;ListBox1:TListBox;ListBox2:TListBox;Button1:TButton;Button3:TButton;Button5:TButton;Label1:TLabel;Label2:TLabel;Button2:TButton;Query1:TADOQuery;Table1:TADOTable;Button4:TButton;procedureFormCreate(Sender:TObject);procedureButton1Click(Sender:TObject);procedureButton3Click(Sender:TObject);procedureButton2Click(Sender:TObject);procedureButton5Click(Sender:TObject);procedureButton4Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementationusesUnit2,Unit4;varsql,strWhere:String;{$R*.dfm}procedureTForm1.FormCreate(Sender:TObject);varMyPath:string;beginMyPath:=ExtractFilePath(ParamStr(0));Query1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+Mypath+'animal.mdb;PersistSecurityInfo=False';Table1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+Mypath+'animal.mdb;PersistSecurityInfo=False';Table1.Active:=True;sql:='SELECT結(jié)論FROM推導(dǎo)';withtable1dobeginfirst;whilenoteofdobeginListBoxl.Items.Add(fieldbyname('條件').asString);next;end;end;end;procedureTForm1.Button1Click(Sender:TObject);vari:integer;begini:=0;whilei<Listbox1.Items.CountdoifListBox1.Selected[i]thenbeginListBox2.Items.Add(ListBox1.Items[i]);ListBox1.Items.Delete(i);endElsei:=i+1;end;procedureTForm1.Button3Click(Sender:TObject);vari:integer;begini:=0;whilei<Listbox2.Items.CountdoifListBox2.Selected[i]thenListBox2.Items.Delete(i)Elsei:=i+1;end;procedureTForm1.Button2Click(Sender:TObject);beginListBox2.Items.Clear;end;procedureTForm1.Button5Click(Sender:TObject);vari,tag:integer;sqlTest,sWtest,sub:String;begini:=0;strWhere:='';whilei<Listbox2.Items.CountdobeginifstrWhere=''thenbeginsWtest:='WHERE條件like'+'''%'+ListBox2.Items[i]+'%''';sWtest:=sWtest+'and'+'條件notlike''%不'+ListBox2.Items[i]+'%'''sqlTest:=sql+sWtest;tag:=0;ifQuery1.Activethenquery1.Close;query1.SQL.Clear;query1.SQL.Add(sqlTest);query1.Active:=true;query1.First;whilenotquery1.Eofdobeginif(Pos('類'，queryl.fieldbyname('結(jié)論').asString)〈>0)thenbeginifstrWhere=''thenstrWhere:='WHERE條件like'+'''%'+query1.fieldbyname('結(jié)論').asString+'%'''elsestrWhere:=strWhere+'or條件like'+'''%'+query1.fieldbyname('結(jié)論').asString+'%''';tag:=1;end;query1.Next;end;iftag=0thenbeginstrWhere:='WHERE條件like'+'''%'+ListBox2.Items[i]+'%''';strWhere:=strWhere+'and'+'條件notlike''%不'+ListBox2.Items[i]+'%''';end;endelsebeginsWtest:='WHERE條件like'+'''%'+ListBox2.Items[i]+'%''';sWtest:=sWtest+'and'+'條件notlike''%不'+ListBox2.Items[i]+'%'''sqlTest:=sql+sWtest;ifQuery1.Activethenquery1.Close;query1.SQL.Clear;query1.SQL.Add(sqlTest);query1.Active:=true;query1.First;tag:=0;whilenotquery1.Eofdobeginif(Pos('類'，queryl.fieldbyname('結(jié)論').asString)〈＞0)thenbeginsub:=query1.fieldbyname('結(jié)論').asString;if(Pos(sub，strWhere)〈＞0)thenbegintag:=1;break;endelsebeginstrWhere:=strWhere+'and條件like'+'''%'+query1.fieldbyname('結(jié)論').asString+'%''';tag:=1;end;end;query1.Next;end;iftag=1thenbegini:=i+1;continue;end;sWtest:=strWhere+'and條件like'+'''%'+ListBox2.Items[i]+'%''';sWtest:=sWtest+'and'+'條件notlike''%不'+ListBox2.Items[i]+'%'''sqlTest:=sql+sWtest;ifQuery1.Activethenquery1.Close;query1.SQL.Clear;query1.SQL.Add(sqlTest);query1.Active:=true;query1.First;tag:=0;whilenotquery1.Eofdobeginif(Pos('類'，queryl.fieldbyname('結(jié)論').asString)〈＞0)thenbeginstrWhere:=strWhere+'and條件like'+'''%'+query1.fieldbyname（'結(jié)論'）.asString+'%''tag:=1;end;query1.Next;end;iftag=0thenbeginstrWhere:=strWhere+'and條件like'+'''%'+ListBox2.Items[i]+'%''';strWhere:=strWhere+'and'+'條件notlike''%不'+ListBox2.Items[i]+'%''';end;end;i:=i+1;end;sql:=sql+strWhere;ifQuery1.Activethenquery1.Close;query1.SQL.Clear;query1.SQL.Add（sql）;query1.Active:=true;ifquery1.RecordCount=1thenbeginform2:=Tform2.create（nil）;form2.Left:=form1.Left+30;form2.Top:=form1.Top+20;sub:=queryl.fieldbyname（'結(jié)論'）.asString;tag:=0;ifsub='金錢豹'thentag:=1elseifsub='老虎'thentag:=2elseifsub='長頸鹿'thentag:=3elseifsub='斑馬'thentag:=4elseifsub='鴕鳥'thentag:=5elseifsub='企鵝'thentag:=6elseifsub='信天翁'thentag:=7;casetagof1:beginform2.Imagel.Picture.LoadFromFile（'圖片/金錢豹.jpg'）;form2.Label2.Caption:='金錢豹';end;2:beginform2.Image1.Picture.LoadFromFile（'圖片/老虎.jpg'）；form2.Label2.Caption:='老虎';end;3:beginform2.Image1.Picture.LoadFromFile（'圖片/長頸鹿.jpg'）;form2.Label2.Caption:='長頸鹿';end;4:beginform2.Image1.Picture.LoadFromFile（'圖片/斑馬.jpg'）;form2.Label2.Caption:='斑馬';end;5:beginform2.Image1.Picture.LoadFromFil