华南农业大学信息学院。
综合性、设计性实验成绩单。
动物识别专家系统。
一、实验内容。
按下列规则，写出一个分类专家系统：
1）有毛的动物是哺乳类；
2）有奶的动物是哺乳类；
3）有羽毛的动物是鸟类；
4）若动物会飞且会生蛋，则它是鸟类；
5）吃肉的哺乳类是肉食动物；
6）犬牙利爪，眼睛向前的是肉食动物；
7)反刍食物的哺乳类是有蹄类；
8）有蹄的哺乳类是有蹄类；
9）黄褐色有暗斑点的肉食类是金钱豹；
10）黄褐色有黑条纹的肉食类是老虎；
11）长腿长脖子有黄褐色暗斑的有蹄类是长颈鹿；
12）有黑白条纹的有蹄类是斑马；
13）不会飞长腿长脖的鸟是鸵鸟；
14）不会飞善游泳黑白色的鸟是企鹅；
15）善飞的鸟是信天翁。
二、实验目的。
1．加深对产生式表示法的认识；
2．熟悉数据库的制作与使用。
3. 专家系统的学习与应用。
三、实验原理。
四、设计过程。
1．环境与配置。
windows系统，delphi7.0（可视化程序设计）
2结果如下。
3．主要源**实现过程。
unit unit1;
interface
useswindows, messages, sysutils, variants, classes, graphics, controls, forms,dialogs, db, dbtables, grids, dbgrids, dbctrls, stdctrls, extctrls,checklst;
typetform1 = class(tform)
datasource1: tdatasource;
query1: tquery;
datasource2: tdatasource;
table1: ttable;
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;
procedure formcreate(sender: tobject);
procedure button1click(sender: tobject);
procedure button3click(sender: tobject);
procedure button2click(sender: tobject);
procedure button5click(sender: tobject);
private
public
end;var
form1: tform1;
implementation
uses unit2;
var sql,strwhere:string;
$r *.dfm}
procedure tobject);
beginsql:='select 结论 from 推导 ';
with table1 do
beginfirst;
while not eof do
begin'条件').asstring);
next;end;
end;end;
procedure tobject);
var i:integer;
begini:=0;
while i< do
if then
beginend
elsei:=i+1;
end;procedure tobject);
var i:integer;
begini:=0;
while i< do
if then
elsei:=i+1;
end;procedure tobject);
beginend;
procedure tobject);
var i,tag:integer;
sqltest,swtest,sub:string;
begini:=0;
strwhere:='
while i< do
beginif strwhere=''then
beginswtest:='where 条件 like '+
swtest:=swtest+'and '+条件 not like ''不'+'
sqltest:=sql+swtest;
tag:=0;
if then
while not do
beginif(pos('类','结论').asstring)<>0)then
beginif strwhere=''then strwhere:='where 条件 like '+结论').asstring+'%
else strwhere:=strwhere+'or 条件 like '+结论').asstring+'%
tag:=1;
end;end;
if tag=0 then
beginstrwhere:='where 条件 like '+
strwhere:=strwhere+'and '+条件 not like ''不'+'
系统辨识大作业报告
班级 13202 4 学号 2013260318 姓名亓子龙 报告日期 2013.12.03 1 最小二乘法 构造阵，利用公式计算 2 递推最小二乘法 取前20个数据，利用基本最小二乘法给出和的初值和，然后利用公式 迭代计算。1 辅助变量法 首先利用基本最小二乘估计作为计算的初值，利用计算结果构造阵...
城市旅游管理系统作业报告
城市旅游管理系统 作业报告。班级 人力资源管理1101 组号 第7组。组长 李树平。组员 李莎，杨阳。一 系统总体设计。我们想通过该系统把国内著名的景点联系起来，让旅游者通过对比来了解不同旅游景点的特色和所在城市的详细情况，以便在为自己的旅游做好打算，避免盲目的跟分游，使旅游者有明确旅游地点，游一个...
会计作业报告
目录。一 财务情况 以 文档为依据 1 二 财务状况分析 以 文档为依据 2 一 主营业务分析 2 1 财务报表相关科目变动分析表 2 2 收入分析 2 3 成本分析表 2 4 费用 2 5 现金流 3 二 经营情况分析 3 三 资产 负债情况分析 4 三 会计数据和财务指标摘要 以 文档为依据 4...