动物专家系统实验

华南农业大学信息学院综合性、设计性实验成绩单专业计算机班级01级1班学号200137412620013741322001374130200137410820013741032001374116姓名司徒志远张轶张微郭景顺陈俊侠黎楚彬实验题目动!按下列规则，写出一个分类专》奶的动物是哺乳类；（3）有羽二则它是鸟类；（5）吃肉的哺乳三是肉食动物；（7）反刍食物的哺（9）黄褐色有暗斑点的肉食类是老虎；（11）长腿长脖子有黄条纹的有蹄类是斑马；（13）不游泳黑白色的鸟是企鹅；（15）物识别专家系统象系统：（1）有毛的动物是哺乳类；（2）有巨的动物是鸟类；（4）若动物会飞且会生蛋，类是肉食动物；（6）犬牙利爪，眼睛向前的乳类是有蹄类；（8）有蹄的哺乳类是有蹄类；［是金钱豹；（10）黄褐色有黑条纹的肉食类、褐色暗斑的有蹄类疋长颈鹿；（12）有黑白；会飞长腿长脖的鸟是鸵鸟；（14）不会飞善善飞的鸟是信天翁。自我评价司徒志远负责总体设计郭景顺，黎楚彬负责资料收集。司徒志远，张轶负责程序设计陈俊侠负责程序测试。张微负责文档报告。教师评语评价指标：题目内容完成情况优口良口中口差口对算法原理的理解程度优口良口中口差口程序设计水平优口良口中口差口试验报告结构清晰优口良口中口差口试验总结和分析详尽优口良口中口差口成绩教师签名动物识别专家系统、实验内容按下列规则，写出一个分类专家系统：（1）有毛的动物是哺乳类；（2）有奶的动物是哺乳类；（3）有羽毛的动物是鸟类；（4）若动物会飞且会生蛋，则它是鸟类；（5）吃肉的哺乳类是肉食动物；（6）犬牙利爪，眼睛向前的是肉食动物；（7）反刍食物的哺乳类是有蹄类；（8）有蹄的哺乳类是有蹄类；（9）黄褐色有暗斑点的肉食类是金钱豹；（10）黄褐色有黑条纹的肉食类是老虎；（11）长腿长脖子有黄褐色暗斑的有蹄类是长颈鹿（12）有黑白条纹的有蹄类是斑马；（13）不会飞长腿长脖的鸟是鸵鸟；（14）不会飞善游泳黑白色的鸟是企鹅；（15）善飞的鸟是信天翁。二、实验目的1．加深对产生式表示法的认识；2.专家系统的学习与应用

三、实验原理四、设计过程1．环境与配置windows系统，Delphi7.0(可视化程序设计)2结果如下五．总结经过这个实验，我们更加深入的认识了专家系统，设计出来了一个可以运行的系统。虽然这个系统是很小的，但是通过实验，我们可以学到很多东西。作为人工智能的一次综合性作业，通过实验，我们更加深入的理解了知识的表示，利用和控制。这次实验打到了预期的目标。附录：主要源代码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结论FROM推导';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('结论').asString)〈>0)thenbeginifstrWhere=''thenstrWhere:='WHERE条件like'+'''%'+query1.fieldbyname('结论').asString+'%'''elsestrWhere:=strWhere+'or条件like'+'''%'+query1.fieldbyname('结论').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('结论').asString)〈＞0)thenbeginsub:=query1.fieldbyname('结论').asString;if(Pos(sub，strWhere)〈＞0)thenbegintag:=1;break;endelsebeginstrWhere:=strWhere+'and条件like'+'''%'+query1.fieldbyname('结论').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('结论').asString)〈＞0)thenbeginstrWhere:=strWhere+'and条件like'+'''%'+query1.fieldbyname（'结论'）.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（'结论'）.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