人工智能动物识别专家系统Word文档格式.docx
- 文档编号:15970195
- 上传时间:2022-11-17
- 格式:DOCX
- 页数:15
- 大小:54.47KB
人工智能动物识别专家系统Word文档格式.docx
《人工智能动物识别专家系统Word文档格式.docx》由会员分享,可在线阅读,更多相关《人工智能动物识别专家系统Word文档格式.docx(15页珍藏版)》请在冰豆网上搜索。
则:
该单位是哺乳动物
规则3:
该动物有羽毛
·
该动物是鸟
规则4:
动物会飞,且会下蛋
规则5:
[
动物吃肉
该动物是肉食动物
规则6:
动物有犬齿,且有爪,且眼盯前方
该动物是食肉动物
(
规则7:
动物是哺乳动物,且有蹄
该动物是有蹄动物
规则8:
动物是哺乳动物,且是反刍动物
规则9:
动物是哺乳动物,且是食肉动物,且是黄褐色的,且有暗斑点
该动物是豹
规则10:
…
动物是黄褐色的,且是哺乳动物,且是食肉,且有黑条纹
该动物是虎
规则11:
动物有暗斑点,且有长腿,且有长脖子,且是有蹄类
该动物是长颈鹿
$
规则12:
动物有黑条纹,且是有蹄类动物
该动物是斑马
规则13:
动物有长腿,且有长脖子,且是黑色的,且是鸟,且不会飞
该动物是鸵鸟
规则14:
动物是鸟,且不会飞,且会游泳,且是黑色的
该动物是企鹅
规则15:
—
动物是鸟,且善飞
该动物是信天翁
七.推理树
八.
、
规则1
九.代码
#include<
>
!
#defineTrue1
#defineFalse0
#defineDontKnow-1
char*str[]={"
chew_cud反刍动物"
"
hooves蹄类动物"
mammal哺乳动物"
forward_eyes眼盯前方"
'
"
claws有爪"
pointed_teeth有犬齿"
eat_meat吃肉"
lay_eggs会下蛋"
fly会飞"
feathers有羽毛"
ungulate有蹄"
carnivore食肉动物"
bird鸟"
give_milk能产奶"
has_hair有毛发"
fly_well善飞"
black&
white_color黑白色"
can_swim会游泳"
long_legs长腿"
long_neck长脖子"
black_stripes黑条纹"
dark_spots黑斑点"
tawny_color黄褐色"
albatross信天翁"
penguin企鹅"
ostrich驼鸟"
zebra斑马"
;
giraffe长颈鹿"
tiger老虎"
cheetah猎豹"
0};
intrulep[][6]={{22,23,12,3,0,0},{21,23,12,3,0,0},{22,19,20,11,0,0},
{21,11,0,0,0,0},{17,19,20,13,-9,0},{17,18,13,-9,0,0},{16,13,0,0,0,0},
{15,0,0,0,0,0},{14,0,0,0,0,0},{10,0,0,0,0,0},{8,7,0,0,0,0},
{7,0,0,0,0,0},{4,5,6,0,0,0},{2,3,0,0,0,0},{1,3,0,0,0,0}};
intrulec[]={30,29,28,27,26,25,24,3,3,13,13,12,12,11,11,0};
classfact
{private:
intNumber;
charName[21];
intActive;
intSucc;
public:
fact*Next;
fact(intNum,char*L)
{
strcpy(Name,L);
Number=Num;
Active=False;
Succ=DontKnow;
|
Next=NULL;
}
char*GetName()
char*L;
L=newchar[21];
strcpy(L,Name);
returnL;
intGetNumber()
¥
returnNumber;
intGetAct()
】
returnActive;
intGetSucc()
returnSucc;
voidPutAct(constintAct0,intSuc0)
Active=Act0;
Succ=Suc0;
};
fact*Fact;
classlist
,
list*Next;
list(intNum)
【
classrule
char*Name;
list*Pre;
intConc;
rule*Next;
rule(char*N,intP[],intC);
~rule();
intQuery();
voidGetName()
cout<
<
Name;
rule:
:
~rule()
\
list*L;
while(Pre)
L=Pre->
Next;
deletePre;
^
Pre=L;
deleteName;
rule(char*N,intP[],intC)
*
inti;
Pre=NULL;
Name=newchar[strlen(N)+1];
strcpy(Name,N);
i=0;
while(P[i]!
=0)
L=newlist(P[i++]);
L->
Next=Pre;
Conc=C;
@
intrule:
Query()
charc;
intTag=0;
#
fact*F;
F=Fact;
L=Pre;
if(L==NULL)
。
\nError"
;
while(L!
=NULL)
for(;
if(abs(L->
GetNumber())==F->
GetNumber())
break;
F=F->
if(L->
GetNumber()>
0)
if((F->
GetSucc())==true){L=L->
continue;
GetSucc())==false)returnfalse;
else
GetSucc())==True)
returnFalse;
GetSucc())==False)
L=L->
F->
GetName()<
(Y/N)"
endl;
c=getchar();
flushall();
if((c=='
Y'
)||(c=='
y'
))
PutAct(1,True);
GetNumber()<
Tag=-1;
》
PutAct(-1,False);
if(Conc==F->
if(Conc<
24)
if(Tag!
=-1)
:
\nThisaniamalis"
returnTrue;
intmain()
fact*F,*T;
rule*Rule,*R;
charch[8];
inti=1;
Fact=NULL;
while(str[i-1])
F=newfact(i,str[i-1]);
Next=Fact;
Fact=F;
i++;
while(F)
T=F;
T->
Fact=T;
ch[0]='
R'
ch[1]='
U'
ch[2]='
L'
ch[3]='
E'
ch[4]='
_'
ch[5]='
a'
ch[6]='
\0'
Rule=NULL;
for(i=0;
i<
15;
i++)
R=newrule(ch,rulep[i],rulec[i]);
R->
Next=Rule;
Rule=R;
ch[5]++;
R=Rule;
i=R->
Query();
if((i==1)||(i==-1))
R=R->
if(!
R)
没有这种动物."
pressanykeytoexit."
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 人工智能 动物 识别 专家系统
![提示](https://static.bdocx.com/images/bang_tan.gif)