人工智能 动物识别专家系统Word格式.docx
- 文档编号:17495122
- 上传时间:2022-12-06
- 格式:DOCX
- 页数:9
- 大小:17.10KB
人工智能 动物识别专家系统Word格式.docx
《人工智能 动物识别专家系统Word格式.docx》由会员分享,可在线阅读,更多相关《人工智能 动物识别专家系统Word格式.docx(9页珍藏版)》请在冰豆网上搜索。
该动物是鸟
规则4:
动物会飞,且会下蛋
规则5:
动物吃肉
该动物是肉食动物
规则6:
动物有犬齿,且有爪,且眼盯前方
该动物是食肉动物
规则7:
动物是哺乳动物,且有蹄
该动物是有蹄动物
规则8:
动物是哺乳动物,且是反刍动物
规则9:
动物是哺乳动物,且是食肉动物,且是黄褐色的,且有暗斑点则:
该动物是豹
规则10:
动物是黄褐色的,且是哺乳动物,且是食肉,且有黑条纹则:
该动物是虎
规则11:
动物有暗斑点,且有长腿,且有长脖子,且是有蹄类则:
该动物是长颈鹿
规则12:
动物有黑条纹,且是有蹄类动物
该动物是斑马
规则13:
动物有长腿,且有长脖子,且是黑色的,且是鸟,且不会飞则:
该动物是鸵鸟
规则14:
动物是鸟,且不会飞,且会游泳,且是黑色的
该动物是企鹅
规则15:
动物是鸟,且善飞
该动物是信天翁
六.推理树
老虎规则10
哺乳动
物黑条纹黄褐色
肉食动物规则6规则2
规则1
能产奶吃肉规则5
有犬齿有爪眼顶前方有毛发
七.代码
#include<
string.h>
math.h>
stdio.h>
iostream.h>
#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){Number=Num;
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:
rule(char*N,intP[],intC){inti;
list*L;
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)
cout<
\nError"
;
while(L!
=NULL){F=Fact;
for(;
){if(abs(L->
GetNumber())==F->
GetNumber())
break;
F=F->
}if(L->
GetNumber()>
0){if((F->
GetSucc())==true){L=L->
continue;
}
if((F->
GetSucc())==false)returnfalse;
}else{if((F->
GetSucc())==True)
returnFalse;
GetSucc())==False){L=L->
}}
F->
GetName()<
(Y/N)"
endl;
c=getchar();
flushall();
if((c=='
Y'
)||(c=='
y'
)){if(L->
0)
PutAct(1,True);
if(L->
GetNumber()<
0){F->
Tag=-1;
else{if(L->
PutAct(-1,False);
else{F->
L=L->
}F=Fact;
){if(Conc==F->
}if(Conc<
24){F->
}if(Tag!
=-1){F=Fact;
}cout<
\nThisaniamalis"
returnTrue;
}returnFalse;
}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;
}i=0;
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)
}if(!
没有这种动物."
pressanykeytoexit."
getchar();
八.截图
九."
感想
通过这次课程设计我对专业课的学习有了更加深刻的认识,让我知道了学无止境的道理。
我们每一个人永远不能满足于现有的成就,人生就像在爬山,一座峰的后面还有更高的山峰在等着你。
挫折是一份财富,经历是一份拥有。
这次课程设计必将成为我人生旅途上一段美好的回忆。
以后我要更加努力学好每门专业课,让自己拥有更多的知识,才能解决更多问题。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 人工智能 动物识别专家系统 动物 识别 专家系统