人工智能动物识别专家系统Word格式文档下载.docx
《人工智能动物识别专家系统Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《人工智能动物识别专家系统Word格式文档下载.docx（15页珍藏版）》请在冰点文库上搜索。
规则3:
该动物有羽毛
该动物是鸟
规则4：
动物会飞，且会下蛋
规则5：
动物吃肉
该动物是肉食动物
规则6：
动物有犬齿，且有爪，且眼盯前方
该动物是食肉动物
规则7：
动物是哺乳动物，且有蹄
该动物是有蹄动物
规则8：
动物是哺乳动物，且是反刍动物
规则9：
动物是哺乳动物，且是食肉动物，且是黄褐色的，且有暗斑点
该动物是豹
规则10：
动物是黄褐色的，且是哺乳动物，且是食肉，且有黑条纹
该动物是虎
规则11：
动物有暗斑点，且有长腿，且有长脖子，且是有蹄类
该动物是长颈鹿
规则12：
动物有黑条纹，且是有蹄类动物
该动物是斑马
规则13：
动物有长腿，且有长脖子，且是黑色的，且是鸟，且不会飞
该动物是鸵鸟
规则14：
动物是鸟，且不会飞，且会游泳，且是黑色的
该动物是企鹅
规则15：
动物是鸟，且善飞
该动物是信天翁
六．推理树
规则1
有毛发
七．代码
#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）
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."
getchar（）;
八．截图
九．感想
通过这次课程设计我对专业课的学习有了更加深刻的认识，让我知道了学无止境的道理。
我们每一个人永远不能满足于现有的成就，人生就像在爬山，一座峰的后面还有更高的山峰在等着你。
挫折是一份财富，经历是一份拥有。
这次课程设计必将成为我人生旅途上一段美好的回忆。
以后我要更加努力学好每门专业课，让自己拥有更多的知识，才能解决更多问题。
升级会员 