【正文】 readchild(Node * child,int n){//擴(kuò)展child節(jié)點(diǎn)的字節(jié)點(diǎn)n表示方向，表示空格向上向下向左向右移int i,loc,temp。for(i = 0。i 9。i++)childdata[i] = childparentdata[i]。for(i = 0。i 9。i++)if(childdata[i] == 0)break。if(n==0)loc = i%3+(i/31)*3。else if(n==1)loc = i%3+(i/3 + 1)*3。else if(n==2)loc = i%31+(i/3)*3。elseloc = i%3+1+(i/3)*3。temp = childdata[loc]。childdata[i] = temp。childdata[loc] = 0。}void Spread(Lnode * suc, Lstack * Open, Lstack * Closed, Node goal, int m){//擴(kuò)展后繼節(jié)點(diǎn)總函數(shù)int i。Node * child。for(i = 0。i 4。i++){if(Canspread(**suc, i+1))//判斷某個(gè)方向上的子節(jié)點(diǎn)可否擴(kuò)展{child =(Node *)malloc(sizeof(Node))。//擴(kuò)展子節(jié)點(diǎn)childg =(*suc)g +1。//算子節(jié)點(diǎn)的g值childparent =(*suc)。//子節(jié)點(diǎn)父指針指向父節(jié)點(diǎn)Spreadchild(child, i)。//向該方向移動(dòng)空格生成子節(jié)點(diǎn)if(BelongProgram(amp。child, Open, Closed, goal, m))// 判斷子節(jié)點(diǎn)是否屬于OPEN或CLOSED表并作出相應(yīng)的處理free(child)。} } } ///////////////////////擴(kuò)展后繼節(jié)點(diǎn)部分的函數(shù)結(jié)束//////////////////////////////////Node * Process(Lnode * org, Lnode * goal, Lstack * Open, Lstack * Closed, int m){//總執(zhí)行函數(shù)while(1){if((*Open)next == NULL)return NULL。//判斷OPEN表是否為空，為空則失敗退出Node * minf = Minf(Open)。//從OPEN表中取出f值最小的節(jié)點(diǎn)Putinto(minf, Closed)。//將節(jié)點(diǎn)放入CLOSED表中if(Equal(minf, *goal))return minf。//如果當(dāng)前節(jié)點(diǎn)是目標(biāo)節(jié)點(diǎn)，則成功退出Spread(amp。minf, Open, Closed, **goal, m)。//當(dāng)前節(jié)點(diǎn)不是目標(biāo)節(jié)點(diǎn)時(shí)擴(kuò)展當(dāng)前節(jié)點(diǎn)的后繼節(jié)點(diǎn)} }int Shownum(Node * result){//遞歸顯示從初始狀態(tài)到達(dá)目標(biāo)狀態(tài)的移動(dòng)方法if(result == NULL)return 0。else {int n = Shownum(resultparent)。printf(“第%d步：”,n)。for(int i = 0。i 3。i++){printf(“n”)。for(int j = 0。j 3。j++){if(resultdata[i*3+j]!= 0)printf(“ %d ”,resultdata[i*3+j])。else printf(“ 0 ”)。}}printf(“n”)。return n+1。} }void Checkinput(Node *suc){//檢查輸入int i = 0,j = 0,flag = 0。char c。while(i 9){while(((c = getchar())!= 10)){if(c == 39。 39。){if(flag = 0)flag = 0。}else if(c = 39。039。 amp。amp。 c {if(flag == 0){sucdata[i] =(c39。039。)。flag = 1。for(j =0。j i。j++)if(sucdata[j] == sucdata[i])flag =2。i++。}else if(flag = 0)flag =1。}elseif(flag = 0)flag =1。}if(flag {if(flag 0){if(flag ==1)printf(“含有非法字符或數(shù)字!n請(qǐng)重新輸入:n”)。else if(flag ==2)printf(“輸入的數(shù)字有重復(fù)!n請(qǐng)重新輸入:n”)。}else if(i 9)printf(“輸入的有效數(shù)字不夠!n請(qǐng)重新輸入:n”)。i = 0。flag = 0。} } }int meassure(Lstack s){ int k=0。while((snext)!=NULL){k++。s=snext。} return k。}void main(){//主函數(shù)//初始操作，建立open和closed表Lstack Open =(Stack *)malloc(sizeof(Stack))。Opennext = NULL。Lstack Closed =(Stack *)malloc(sizeof(Stack))。Closednext = NULL。Node * org =(Node *)malloc(sizeof(Node))。orgparent = NULL。//初始狀態(tài)節(jié)點(diǎn)orgf =1。orgg =1。Node * goal =(Node *)malloc(sizeof(Node))。//目標(biāo)狀態(tài)節(jié)點(diǎn)Node * result。int m。char c。int k。printf(“=================================n”)。printf(“說(shuō)明:狀態(tài)矩陣由08 九個(gè)數(shù)字表示,n請(qǐng)依次按照九宮格上的行列順序輸入,每個(gè)數(shù)字間用空格隔開(kāi)。n”)。printf(“=================================n”)。printf(“請(qǐng)輸入初始狀態(tài)(08 9個(gè)數(shù)字以空格隔開(kāi)回車(chē)表示輸入結(jié)束):n”)。Checkinput(org)。printf(“請(qǐng)輸入目標(biāo)狀態(tài)(08 9個(gè)數(shù)字以空格隔開(kāi)回車(chē)表示輸入結(jié)束):n”)。Checkinput(goal)。if(Canslove(org, goal)){//A*算法開(kāi)始，先將初始狀態(tài)放入OPEN表printf(“請(qǐng)選擇：(n)搜索 (n)搜索 n”)。scanf(“%d”,amp。m)。while((c = getchar())!= 10)。printf(“搜索中，請(qǐng)耐心等待(如果您覺(jué)得時(shí)間太久請(qǐng)重新執(zhí)行程序并輸入更快的速度,默認(rèn)值為)......n”)。Putinto(org,amp。Open)。result = Process(amp。org, amp。goal, amp。Open, amp。Closed, m)。//進(jìn)行剩余的操作printf(“總步數(shù):%d”,Shownum(result)1)。printf(“n”)。k=meassure(Closed)。printf(“擴(kuò)展節(jié)點(diǎn)數(shù)：n”)。printf(“%dn”,k)。printf(“Press Enter key to exit!”)。while((c = getchar())!= 10)。} elseprintf(“程序認(rèn)定該起始狀態(tài)無(wú)法道達(dá)目標(biāo)狀態(tài)!n”)。}第五篇：人工智能產(chǎn)生式系統(tǒng)實(shí)驗(yàn)報(bào)告解讀實(shí) 驗(yàn) 報(bào) 告【實(shí)驗(yàn)名稱】______________產(chǎn)生式系統(tǒng)_______________________ 【實(shí)驗(yàn)?zāi)康摹?。，掌握基于?guī)則推理的基本方法。【實(shí)驗(yàn)原理】產(chǎn)生式系統(tǒng)用來(lái)描述若干個(gè)不同的以一個(gè)基本概念為基礎(chǔ)的系統(tǒng)，這個(gè)基本概念就是產(chǎn)生式規(guī)則或產(chǎn)生式條件和操作對(duì)。在產(chǎn)生式系統(tǒng)中，論域的知識(shí)分為兩部分：用事實(shí)表示靜態(tài)知識(shí)；用產(chǎn)生式規(guī)則表示推理過(guò)程和行為?！緦?shí)驗(yàn)內(nèi)容】（包括規(guī)則庫(kù)和事實(shí)庫(kù)），然后進(jìn)行推理，即可以自己輸入任何的事實(shí)，并基于原有的規(guī)則和輸入的事實(shí)進(jìn)行推理。，能根據(jù)輸入的動(dòng)物特征判斷是那種動(dòng)物或給出相應(yīng)的回答。 ①首先建立事實(shí)庫(kù)事實(shí)庫(kù)是在程序的開(kāi)始直接輸入的，用戶根據(jù)需要選擇，即要求用戶先輸入特征個(gè)數(shù)，然后輸入動(dòng)物的特征，進(jìn)行識(shí)別。如果未識(shí)別出來(lái)，則可以重新選擇，或者退出。動(dòng)物的特征如下：1有奶 2有毛發(fā) 3有羽毛 4會(huì)飛 5生蛋 6有爪 7有犬齒8目盯前方 9吃肉 10有蹄 11反芻食物 12黃褐色 13黑色條紋14黑色斑點(diǎn) 15長(zhǎng)腿 16長(zhǎng)脖子 17暗斑點(diǎn) 18白色 19不會(huì)飛20黑白色 21會(huì)游泳 22善飛 23不怕風(fēng)浪24哺乳動(dòng)物 25鳥(niǎo) 26食肉動(dòng)物 27有蹄動(dòng)物 28偶蹄動(dòng)物29海燕 30老虎 31金錢(qián)豹 32長(zhǎng)頸鹿 33斑馬 34鴕鳥(niǎo) 35企鵝②建立靜態(tài)規(guī)則庫(kù)即建立產(chǎn)生式規(guī)則，本算法采用了產(chǎn)生中間事實(shí)的方法，便于建立和使用規(guī)則。為了便于設(shè)計(jì)，我們把要識(shí)別的動(dòng)物限于7種，這樣所需要的產(chǎn)生式規(guī)則就比較少。本算法共有15種規(guī)則，如下：R1: 如果動(dòng)物有奶，則它是哺乳動(dòng)物 R2: 如果動(dòng)物有毛發(fā)，則它是哺乳動(dòng)物 R3: 如果動(dòng)物有羽毛，則它是鳥(niǎo) R4: 如果動(dòng)物會(huì)飛且生蛋，則它是鳥(niǎo) R5: 吃肉的哺乳動(dòng)物是食肉動(dòng)物R6: 有爪有犬齒木釘前方的哺乳動(dòng)物是食肉動(dòng)物R7: 有蹄的哺乳動(dòng)物是有蹄動(dòng)物 R8: 反芻食物的有蹄動(dòng)物是偶蹄動(dòng)物 R9: 黃褐色有黑條紋的食肉動(dòng)物是老虎 R10:黃褐色有黑色斑點(diǎn)的食肉動(dòng)物是金錢(qián)豹R11:長(zhǎng)腿長(zhǎng)脖子有黃褐色暗斑點(diǎn)的有蹄動(dòng)物是長(zhǎng)頸鹿R12:有黑白條紋的有蹄動(dòng)物是斑馬 R13:不會(huì)飛長(zhǎng)腿長(zhǎng)脖的鳥(niǎo)是鴕鳥(niǎo) R14:不會(huì)飛會(huì)游泳黑白色的鳥(niǎo)是企鵝③正向推理過(guò)程從已知事實(shí)出發(fā)，通過(guò)規(guī)則庫(kù)求得結(jié)論，或稱數(shù)據(jù)驅(qū)動(dòng)方式。推理過(guò)程是： 216。 規(guī)則集中的規(guī)則前件與事實(shí)庫(kù)中的事實(shí)進(jìn)行匹配，得匹配的規(guī)則集合。216。 從匹配規(guī)則集合中選擇一條規(guī)則作為使用規(guī)則。216。 執(zhí)行使用規(guī)則的后件，將該使用規(guī)則的后件送入事實(shí)庫(kù)中。216。 重復(fù)這個(gè)過(guò)程直至達(dá)到目標(biāo)。如有多條匹配規(guī)則需從中選一條作為使用規(guī)則，本算法是根據(jù)規(guī)則的順序依次選擇，且規(guī)則中不存在同一組事實(shí)對(duì)應(yīng)多條匹配規(guī)則。R15:善飛不怕風(fēng)浪的鳥(niǎo)是海燕 具體表示如下： R1: 124 R2: 224 R3: 325 R4: 4*525 R5: 6*7*8*2426 R6: 9*2426 R7: 10*2427 R8: 11*2728 R9: 12*13*2430 R10: 12*14*2431 R11: 12*15*16*17*2732 R12: 13*18*2733 R13: 15*16*19*2534 R14: 19*20*21*2535 R15: 22*23*2529④實(shí)驗(yàn)流程圖開(kāi)始初始化欲加入的事實(shí)的個(gè)數(shù)及事實(shí)令i=1取出規(guī)則i的前提條件部分Ni=i+1事實(shí)庫(kù)中有相應(yīng)的事實(shí)Y取出規(guī)則i結(jié)論部分結(jié)論為新事實(shí)Y將該規(guī)則加入到事實(shí)庫(kù)中該事實(shí)是結(jié)論性事實(shí)Y將該規(guī)則的結(jié)論作為最終的結(jié)論結(jié)束NN ⑤實(shí)驗(yàn)結(jié)果及分析如輸入如下事實(shí)：有羽毛、善飛、不怕風(fēng)浪。系統(tǒng)的推理過(guò)程如下：先從規(guī)則庫(kù)中取出第一條規(guī)則R1，檢查其前提是否可與事實(shí)庫(kù)中的已知事實(shí)相匹配。R1的前提是“有奶”，但事實(shí)庫(kù)中無(wú)此事實(shí)，故匹配失??；然后取R2，匹配失敗；接著取R3，該前提與已知事實(shí)“有羽毛”相匹配，故R3被執(zhí)行，并將其結(jié)論“鳥(niǎo)”作為新的事實(shí)加入到事實(shí)庫(kù)中。此時(shí)，事實(shí)庫(kù)的內(nèi)容變?yōu)椋河杏鹈?、善飛、不怕風(fēng)浪、鳥(niǎo)；此后，R4~R14均匹配失敗，接著取R15，該前提“善飛+不怕風(fēng)浪+鳥(niǎo)”與已知事實(shí)相匹配，R15被執(zhí)行，并推出“該動(dòng)物是海燕”。由于“海燕”已是目標(biāo)集合中的一個(gè)結(jié)論，即已推出最終結(jié)果，故問(wèn)題求解過(guò)程結(jié)束。下面是程序運(yùn)行的結(jié)果：【實(shí)驗(yàn)程序】include define N 23 void main(){int i,j,k,a,b,c。int num。int fact[N],temp[N]。int flag=1。while(flag==1){ printf(“動(dòng)物的特征如下:n”)。printf(“1有奶2有毛發(fā)3有羽毛4會(huì)飛20黑白色n21會(huì)游泳22善飛23不怕風(fēng)浪n”)。printf(“請(qǐng)輸入描述該動(dòng)物特征的個(gè)數(shù):”)。scanf(“%d”,amp。num)。printf(“請(qǐng)輸入對(duì)這只動(dòng)物的特征描述的序號(hào)(按序號(hào)由小到大):n”)。for(i=0。i}//********************************for(i=0。iif(fact[i]==1)scanf(“%d”,amp。a)。fact[i]=a。會(huì)飛5生蛋n6有爪7有犬齒8目盯前方9吃肉10有蹄n11反芻食物12黃褐色13黑色條紋14黑色斑點(diǎn)15長(zhǎng)腿n16長(zhǎng)脖子17暗斑點(diǎn)18白色19不{fact[num]=24。num++。printf(“使用規(guī)則1,新增加的 }}//********************************k=0。for(i=0。i}if(temp[0]==4amp。amp。temp[1]==5){fact[num]=25。num++。printf(”使用規(guī)則4,新增加的事實(shí)if(fact[i]==4){}if(fact[i]==5){}temp[k]=fact[i]。break。temp[k]=fact[i]。k++。continue。事實(shí)為: 哺乳