-.z.實驗7：產(chǎn)生式動物識別系統(tǒng)實驗目的理解和掌握產(chǎn)生式系統(tǒng)的推理方法，能夠用選定的編程語言實現(xiàn)推理機。二、編程環(huán)境本文主要編譯環(huán)境是Windows10VisualStudio2021三、問題描述設(shè)計一個用于動物識別的產(chǎn)生式系統(tǒng)，該系統(tǒng)通過規(guī)則庫識別老虎、金錢豹、斑馬、長頸鹿、企鵝、信天翁、鴕鳥7種動物。四、解決方案規(guī)則庫：用于描述相應領(lǐng)域知識的產(chǎn)生式集合稱為規(guī)則庫。本規(guī)則庫包括以下規(guī)則

R1：if動物有毛發(fā)

then

動物是哺乳動物

R2：if動物有奶

then

動物是哺乳動物

R3：if動物有羽毛

then

動物是鳥

R4：if動物會飛

and

會生蛋then

動物是鳥

R5：if動物吃肉then動物是食肉動物

R6：if動物有犀利牙齒and有爪and眼向前方

then動物是食肉動物

R7：if動物是哺乳動物and有蹄then動物是有蹄類動物

R8：if動物是哺乳動物and反芻then動物是有蹄類動物

R9：if動物是哺乳動物and是食肉動物and有黃褐色

and有暗斑點then動物是豹

R10：if動物是哺乳動物and是食肉動物and有黃褐色and

有黑色條紋then動物是虎

R11：if動物是有蹄類動物

and有長脖子and有長腿and有暗斑點then動物是長頸鹿

R12：if動物是有蹄類動物and有黑色條紋then動物是斑馬

R13：if動物是鳥and不會飛and有長脖子and有長腿and有黑白二色then動物是鴕鳥

R14：if動物是鳥and不會飛and會游泳and有黑白二色

then

動物是企鵝

R15：if動物是鳥and善飛then動物是信天翁

綜合數(shù)據(jù)庫 char*ans0="抱歉，我也不知道這是什么動物"; char*ans1="這個動物是金錢豹"; char*ans2="這個動物是老虎"; char*ans3="這個動物是長頸鹿"; char*ans4="這個動物有斑馬"; char*ans5="這個動物是企鵝"; char*ans6="這個動物是鴕鳥"; char*ans7="這個動物是信天翁";推理機

(1)初始化綜合數(shù)據(jù)庫，即把欲解決問題的事實送入綜合數(shù)據(jù)庫中；

(2)檢查規(guī)則庫中是否有未使用過的規(guī)則，假設(shè)無轉(zhuǎn)(7)；

(3)檢查規(guī)則庫的未使用規(guī)則中是否有其前提可與綜合數(shù)據(jù)庫中事實相匹配的規(guī)則，假設(shè)有，形成當前可用規(guī)則集；否則轉(zhuǎn)(6)；

(4)按照沖突消解策略，從當前可用規(guī)則集中選擇一個規(guī)則執(zhí)行，并對該規(guī)則作上標記。把執(zhí)行該規(guī)則后所得到的結(jié)論作為新的事實放入綜合數(shù)據(jù)庫；如果該規(guī)則的結(jié)論是一些操作，則執(zhí)行這些操作；

(5)檢查綜合數(shù)據(jù)庫中是否包含了該問題的解，假設(shè)已包含，說明解已求出，問題求解過程完畢；否則，轉(zhuǎn)(2)；

(6)當規(guī)則庫中還有未使用規(guī)則，但均不能與綜合數(shù)據(jù)庫中的已有事實相匹配時，要求用戶進一步提供關(guān)于該問題的事實，假設(shè)能提供，則轉(zhuǎn)(2)；否則，執(zhí)行下一步；

(7)假設(shè)知識庫中不再有未使用規(guī)則，也說明該問題無解，終止問題求解過程。輸出“抱歉，沒有相符合的動物〞，程序退出。流程圖五、源代碼*include<stdio.h>intmain(){ chara1; charflag0;//是否識別出動物的標志 char*str0="本系統(tǒng)可識別七種動物，請用Y和N表示是和否\n"; char*str1="這個動物有毛發(fā)嗎"; char*str2="這個動物有奶嗎."; char*str3="這個動物有羽毛嗎"; char*str4="這個動物會下蛋嗎"; char*str5="這個動物吃肉嗎."; char*str6="這個動物有犬齒有爪嗎."; char*str7="這個動物有蹄嗎."; char*str8="這個動物是嚼反芻動物嗎"; char*str9="這個動物身上是黃褐色而且有暗斑點嗎."; char*str10="這個動物身上是黃褐色而且有黑色條紋"; char*str11="這個動物長腿長脖子且身上有暗斑點嗎"; char*str12="這個動物身上有黑色條紋嗎"; char*str13="這個動物長腿長脖子."; char*str14="這個動物會游泳并有黑白兩色\t"; char*str15="這個動物擅飛"; char*str16="這個動物會不會飛"; char*ans0="抱歉，我也不知道這是什么動物"; char*ans1="這個動物是金錢豹"; char*ans2="這個動物是老虎"; char*ans3="這個動物是長頸鹿"; char*ans4="這個動物有斑馬"; char*ans5="這個動物是企鵝"; char*ans6="這個動物是鴕鳥"; char*ans7="這個動物是信天翁"; char*a[4]={str1,str2,str3,str4}; //判斷哺乳動物和鳥類 char*bl[4]={str5,str6,str7,str8}; //bL判斷是食草動物還是食肉動物 char*b2[]={str16}; //判斷鳥類會不會飛 /****************判斷具體是那種動物*************************/ char*cl[]={str9,str10}; //CL判斷金錢豹和老虎 char*c2[]={str11,str12}; //判斷長頸鹿和斑馬 char*c3[]={str13,str14}; //判斷企鵝和鴕鳥 char*c4[]={str15}; //判斷是不是信天翁 puts(str0); for(intk=0;k<4;k++){ puts(a[k]); scanf_s("%c",&a1,1); getchar(); if(a1=='Y')//區(qū)分哺乳動物和鳥類 { if(k==1){ printf_s("初步判定是哺乳動物\n");flag0=0;break; } elseif(k>2){ printf_s("初步判定是鳥類\n");flag0=1;break; } } } if(flag0==0){ //判定是哺乳動物 for(intk=0;k<4;k++){ puts(bl[k]); scanf_s("%c",&a1,1); getchar(); if(a1=='Y')//區(qū)分食肉動物和食草類動物 { if(k==1){ printf_s("初步判定是食肉動物\n"); for(intk=0;k<2;k++){ puts(cl[k]); scanf_s("%c",&a1,1); getchar(); if(a1=='Y') //區(qū)分金錢豹和老虎 { printf_s("這是是金錢豹");break; } elseif(a1=='N'&&k==1){ printf_s("這是老虎");break; } } break; } elseif(k>2){ printf_s("初步判定是食草類動物\n"); for(intk=0;k<2;k++){ puts(c2[k]); scanf_s("%c",&a1,1); getchar(); if(a1=='Y') //確定是長頸鹿還是斑馬 { printf_s("這是長頸鹿");break; } elseif(a1=='N'&&k==1){ printf_s("這是斑馬");break; } } break; } } } } elseif(flag0==1){//判定是鳥類 puts(b2[0]); scanf_s("%c",&a1,1); getchar(); if(a1=='Y')//判斷鳥類會不會飛 { puts(c4[0]); scanf_s("%c",&a1,1); getchar(); if(a1=='Y'){ //判斷是不是信天翁 printf_s("這是信天翁"); } elseif(a1=='N') { puts(ans0); } } elseif(a1=='N'){ for(intk=0;k<2;k++){ puts(c3[k]); scanf_s("%c",&a1,1); getchar(); if(a1=='Y') //確定是企鵝和鴕鳥 { printf_s("這是鴕鳥");break; } elseif(a1=='N'&&k==1){