实验一产生式系统(2)

end

%break; case 8

if arr_category(1)*arr_category(5)>0

arr_category(4)=1; arr_rule(i)=1; ifMore=1;

disp(['根据规则',num2str(i)]);

disp('新增信息：该动物是有蹄类动物'); end

%break; case 9 if

arr_category(1)*arr_category(3)*arr_feature(11)*arr_feature(12)>0

arr_animal(2)=1; arr_rule(i)=1; ifMore=1; mark=2;

disp(['根据规则',num2str(i)]); end

%break; case 10 if

arr_category(1)*arr_category(3)*arr_feature(11)*arr_feature(13)>0

arr_animal(1)=1; arr_rule(i)=1; ifMore=1; mark=1;

disp(['根据规则',num2str(i)]); end

%break; case 11 if

arr_category(4)*arr_feature(14)*arr_feature(15)*arr_feature(16)>0

arr_animal(4)=1; arr_rule(i)=1; ifMore=1; mark=4;

disp(['根据规则',num2str(i)]); end

%break; case 12

if arr_category(4)*arr_feature(13)>0

arr_animal(3)=1; arr_rule(i)=1; ifMore=1; mark=3;

disp(['根据规则',num2str(i)]); end

%break; case 13 if

arr_category(2)*arr_feature(14)*arr_feature(15)*arr_feature(17)*arr_feature(18)>0

arr_animal(6)=1; arr_rule(i)=1; ifMore=1; mark=6;

disp(['根据规则',num2str(i)]); end

%break; case 14 if

arr_category(2)*arr_feature(19)*arr_feature(17)*arr_feature(18)>0

arr_animal(5)=1; arr_rule(i)=1; ifMore=1; mark=5;

disp(['根据规则',num2str(i)]); end

%break; case 15

if arr_category(2)*arr_feature(20)>0

arr_animal(7)=1; arr_rule(i)=1; ifMore=1;

mark=7;

disp(['根据规则',num2str(i)]); end end end end end

function showCategory( ) %类别选项显示 %

disp('请选择分类（1:是，0：其他）：'); disp('0.哺乳动物'); disp('1.鸟');

disp('2.食肉动物'); disp('3.蹄类动物'); disp('4.反刍动物'); end

function showFeature()

%具体特征列表

% 此处显示详细说明

disp('请选择具体特征（1:是，0：其他）：'); disp('0.有毛发'); disp('1.有奶'); disp('2.有羽毛'); disp('3.会飞'); disp('4.会下蛋'); disp('5.吃肉'); disp('6.有犬齿'); disp('7.有爪'); disp('8.眼盯前方'); disp('9.有蹄'); disp('10.黄褐色'); disp('11.身上有斑点'); disp('12.身上有黑色条纹'); disp('13.有长脖子'); disp('14.有长腿');

disp('15.身上有暗斑点'); disp('16.不会飞'); disp('17.有黑白两色');

disp('18.会游泳'); disp('19.擅飞'); end

function showResult(mark) %结果显示

% 此处显示详细说明

disp('****识别结果****'); disp('该动物是：'); switch mark case 1

disp('虎'); %break; case 2

disp('金钱豹'); %break; case 3

disp('斑马'); %break; case 4

disp('长颈鹿'); %break; case 5

disp('企鹅'); %break; case 6

disp('鸵鸟'); %break; case 7

disp('信天翁'); %break; end end