動物識別系統(tǒng)(共17頁)

1、學(xué)生(xu sheng)實驗報告實驗課名稱： 人工(rngng)智能(zh nn)實驗項目名稱： 產(chǎn)生式系統(tǒng)實驗專業(yè)名稱： 計算機科學(xué)與技術(shù)班級： 2012240201學(xué)號： 12學(xué)生姓名： 雷彬教師姓名： 陳亮亮 2014 年 12 月 10 日實驗(shyn)日期： 2012 年 12 月 10 日 實驗室名稱(mngchng)： 明遠(mn yun)2202 一實驗名稱：產(chǎn)生式系統(tǒng)實驗二實驗?zāi)康呐c要求： 1、確定推理方法（正向還是反向），并根據(jù)問題設(shè)計實現(xiàn)一個簡單的不通用推理機（匹配、沖突消解）2、規(guī)則庫要求至少包含15條規(guī)則3、初始事實可以任意給定，輸入初始事實后能夠得到推理結(jié)果4、設(shè)

2、計人機界面，解釋模塊提供查詢規(guī)則的功能5、可以不考慮知識庫管理模塊6、提交實驗報告7、報告中要有推理樹三實驗內(nèi)容：動物識別專家系統(tǒng)是流行的專家系統(tǒng)實驗?zāi)Ｐ停卯a(chǎn)生式規(guī)則來表示知識，共15條規(guī)則、可以識別七種動物，這些規(guī)則既少又簡單，可以改造他們，也可以加進新的規(guī)則，還可以用來識別其他東西的新規(guī)則來取代這些規(guī)則。四算法描述： 動物識別的15條規(guī)則：規(guī)則1：如果：動物有毛發(fā) 則：該動物是哺乳動物規(guī)則2：如果：動物能產(chǎn)奶 則：該單位是哺乳動物規(guī)則3: 如果：該動物有羽毛 則：該動物是鳥規(guī)則4：如果：動物會飛，且會下蛋 則：該動物是鳥規(guī)則5：如果：動物吃肉 則：該動物是肉食動物規(guī)則6：如果：動物有犬

3、齒，且有爪，且眼盯前方 則：該動物是食肉動物規(guī)則7：如果：動物是哺乳動物，且有蹄 則：該動物是有蹄動物規(guī)則8：如果：動物是哺乳動物，且是反芻動物 則：該動物是有蹄動物規(guī)則9：如果：動物是哺乳動物，且是食肉動物，且是黃褐色的，且有暗斑點則：該動物是豹規(guī)則10：如果：動物是黃褐色的，且是哺乳動物，且是食肉，且有黑條紋則：該動物是虎規(guī)則11：如果：動物有暗斑點，且有長腿，且有長脖子，且是有蹄類則：該動物是長頸鹿規(guī)則12：如果：動物有黑條紋，且是有蹄類動物則：該動物是斑馬規(guī)則13：如果：動物有長腿，且有長脖子，且是黑色的，且是鳥，且不會飛則：該動物是鴕鳥規(guī)則14：如果：動物是鳥，且不會飛，且會游泳，且

4、是黑色的則：該動物是企鵝規(guī)則15：如果：動物是鳥，且善飛 則 ：該動物是信天翁 首先給定初始事實，將初始事實放入動態(tài)數(shù)組中，并用初始事實與15條規(guī)則進行匹配，如果規(guī)則匹配成功，將規(guī)則的后件存入數(shù)組中，再用數(shù)組中所有的元素與規(guī)則進行匹配，滿足即加入數(shù)組，直到匹配出動物。如果給定初始事實能推出多種動物，按照數(shù)組中條件的先后順序，順序循環(huán)匹配規(guī)則，先匹配出哪種動物就顯示該動物。五源程序：/ MFC_AnimalDlg.cpp : 實現(xiàn)文件#include stdafx.h#include MFC_Animal.h#include MFC_AnimalDlg.h#include afxdialogex

5、.h#ifdef _DEBUG#define new DEBUG_NEW#endif/ 用于應(yīng)用程序“關(guān)于”菜單項的 CAboutDlg 對話框class CAboutDlg : public CDialogExpublic:CAboutDlg();/ 對話框數(shù)據(jù)enum IDD = IDD_ABOUTBOX ;protected:virtual void DoDataExchange(CDataExchange* pDX); / DDX/DDV 支持/ 實現(xiàn)protected:DECLARE_MESSAGE_MAP();CAboutDlg:CAboutDlg() : CDialogEx(CA

6、boutDlg:IDD)void CAboutDlg:DoDataExchange(CDataExchange* pDX)CDialogEx:DoDataExchange(pDX);BEGIN_MESSAGE_MAP(CAboutDlg, CDialogEx)END_MESSAGE_MAP()/ CMFC_AnimalDlg 對話框CMFC_AnimalDlg:CMFC_AnimalDlg(CWnd* pParent /*=NULL*/): CDialogEx(CMFC_AnimalDlg:IDD, pParent)m_hIcon = AfxGetApp()-LoadIcon(IDR_MAIN

7、FRAME);void CMFC_AnimalDlg:DoDataExchange(CDataExchange* pDX)CDialogEx:DoDataExchange(pDX);DDX_Control(pDX, IDC_COMBO1, m_point1);DDX_Control(pDX, IDC_COMBO4, m_point2);DDX_Control(pDX, IDC_COMBO5, m_point3);DDX_Control(pDX, IDC_COMBO6, m_point4);DDX_Control(pDX, IDC_COMBO7, m_point5);DDX_Control(pD

8、X, IDC_COMBO8, m_point6);DDX_Control(pDX, IDC_COMBO9, m_point7);BEGIN_MESSAGE_MAP(CMFC_AnimalDlg, CDialogEx)ON_WM_SYSCOMMAND()ON_WM_PAINT()ON_WM_QUERYDRAGICON()ON_BN_CLICKED(IDC_BUTTON2, &CMFC_AnimalDlg:OnClickedButton2)ON_BN_CLICKED(IDC_BUTTON1, &CMFC_AnimalDlg:OnClickedButton1)END_MESSAGE_MAP()/ C

9、MFC_AnimalDlg 消息處理程序BOOL CMFC_AnimalDlg:OnInitDialog()CDialogEx:OnInitDialog();/ 將“關(guān)于.”菜單項添加到系統(tǒng)菜單中。/ IDM_ABOUTBOX 必須在系統(tǒng)命令范圍內(nèi)。ASSERT(IDM_ABOUTBOX & 0 xFFF0) = IDM_ABOUTBOX);ASSERT(IDM_ABOUTBOX AppendMenu(MF_SEPARATOR);pSysMenu-AppendMenu(MF_STRING, IDM_ABOUTBOX, strAboutMenu);/ 設(shè)置此對話框的圖標(biāo)。當(dāng)應(yīng)用程序主窗口不是對話

10、框時，框架將自動/ 執(zhí)行此操作SetIcon(m_hIcon, TRUE);/ 設(shè)置大圖標(biāo)SetIcon(m_hIcon, FALSE);/ 設(shè)置小圖標(biāo)/ TODO: 在此添加額外的初始化代碼m_point1.SetCurSel(0);/設(shè)置組合框的默認值為第一項 m_point2.SetCurSel(0);m_point3.SetCurSel(0);m_point4.SetCurSel(0);m_point5.SetCurSel(0);m_point6.SetCurSel(0);m_point7.SetCurSel(0);return TRUE; / 除非將焦點設(shè)置到控件，否則返回 TRUE

11、void CMFC_AnimalDlg:OnSysCommand(UINT nID, LPARAM lParam)if (nID & 0 xFFF0) = IDM_ABOUTBOX)CAboutDlg dlgAbout;dlgAbout.DoModal();elseCDialogEx:OnSysCommand(nID, lParam);/ 如果向?qū)υ捒蛱砑幼钚』粹o，則需要下面的代碼/ 來繪制該圖標(biāo)。對于使用文檔/視圖模型的 MFC 應(yīng)用程序，/ 這將由框架自動完成。void CMFC_AnimalDlg:OnPaint()if (IsIconic()CPaintDC dc(this); /

12、用于繪制的設(shè)備上下文SendMessage(WM_ICONERASEBKGND, reinterpret_cast(dc.GetSafeHdc(), 0);/ 使圖標(biāo)在工作區(qū)矩形中居中int cxIcon = GetSystemMetrics(SM_CXICON);int cyIcon = GetSystemMetrics(SM_CYICON);CRect rect;GetClientRect(&rect);int x = (rect.Width() - cxIcon + 1) / 2;int y = (rect.Height() - cyIcon + 1) / 2;/ 繪制圖標(biāo)dc.Draw

13、Icon(x, y, m_hIcon);elseCDialogEx:OnPaint();/當(dāng)用戶拖動最小化窗口時系統(tǒng)調(diào)用此函數(shù)取得光標(biāo)/顯示。HCURSOR CMFC_AnimalDlg:OnQueryDragIcon()return static_cast(m_hIcon);void CMFC_AnimalDlg:OnClickedButton2()/ TODO: 在此添加控件通知處理程序代碼(CListBox*)GetDlgItem(IDC_LIST1)-ResetContent();int i,j,n;int flag = 1;bool check=true;CString msg;CS

14、tring point7;CString Fact10;int k=-1;m_point1.GetWindowText(point0); m_point2.GetWindowText(point1); m_point3.GetWindowText(point2); m_point4.GetWindowText(point3); m_point5.GetWindowText(point4); m_point6.GetWindowText(point5); m_point7.GetWindowText(point6); for(i=0;i=5;i+)if(pointi!=無)for(j=i+1;j

15、=6;j+)if(pointi=pointj)check=false;if(check=false)MessageBox(L特征不能一樣！);elsefor(i=0;iInsertString(k,pointi);for(i=0;iInsertString(k+1,msg);k+;Factk = msg;if(Factk!=哺乳動物) /R2for(i=0;iInsertString(k+1,msg);k+;Factk = msg;/Sleep(1000);for(i=0;iInsertString(k+1,msg);k+;Factk = msg;n=0;if(Factk!=鳥) /R4for

16、(i=0;iInsertString(k+1,msg);k+;Factk = msg;for(i=0;iInsertString(k+1,msg);k+;Factk = msg;n=0;if(Factk!=食肉動物) /R6for(i=0;iInsertString(k+1,msg);k+;Factk = msg;for(j=0;j=k;j+) /R7if(Factj=哺乳動物)for(i=0;iInsertString(k+1,msg);k+;Factk = msg;if(Factk!=有蹄動物) /R8for(j=0;j=k;j+) if(Factj=哺乳動物)for(i=0;iInser

17、tString(k+1,msg);k+;Factk = msg;n=0;for(j=0;j=k;j+) /R9if(Factj=哺乳動物)for(i=0;iInsertString(k+1,msg);Factk = msg;SetDlgItemText(IDC_EDIT2,msg);CStatic* cwm=(CStatic*)GetDlgItem(IDC_SHOWBITMAP);CBitmap bmpload;bmpload.LoadBitmap(IDB_BITMAP1);cwm-ModifyStyle(0,SS_BITMAP);cwm-SetBitmap(HBITMAP(bmpload.D

18、etach();n=0;for(i=0;iInsertString(k+1,msg);Factk = msg;SetDlgItemText(IDC_EDIT2,msg);CStatic* cwm=(CStatic*)GetDlgItem(IDC_SHOWBITMAP);CBitmap bmpload;bmpload.LoadBitmap(IDB_BITMAP2);cwm-ModifyStyle(0,SS_BITMAP);cwm-SetBitmap(HBITMAP(bmpload.Detach();n=0;for(i=0;iInsertString(k+1,msg);Factk = msg;Se

19、tDlgItemText(IDC_EDIT2,msg);CStatic* cwm=(CStatic*)GetDlgItem(IDC_SHOWBITMAP);CBitmap bmpload;bmpload.LoadBitmap(IDB_BITMAP3);cwm-ModifyStyle(0,SS_BITMAP);cwm-SetBitmap(HBITMAP(bmpload.Detach();n=0;for(i=0;iInsertString(k+1,msg);Factk = msg;SetDlgItemText(IDC_EDIT2,msg);CStatic* cwm=(CStatic*)GetDlg

20、Item(IDC_SHOWBITMAP);CBitmap bmpload;bmpload.LoadBitmap(IDB_BITMAP4);cwm-ModifyStyle(0,SS_BITMAP);cwm-SetBitmap(HBITMAP(bmpload.Detach();n=0;for(i=0;iInsertString(k+1,msg);Factk = msg;SetDlgItemText(IDC_EDIT2,msg);CStatic* cwm=(CStatic*)GetDlgItem(IDC_SHOWBITMAP);CBitmap bmpload;bmpload.LoadBitmap(I

21、DB_BITMAP5);cwm-ModifyStyle(0,SS_BITMAP);cwm-SetBitmap(HBITMAP(bmpload.Detach();n=0;for(i=0;iInsertString(k+1,msg);Factk = msg;SetDlgItemText(IDC_EDIT2,msg);CStatic* cwm=(CStatic*)GetDlgItem(IDC_SHOWBITMAP);CBitmap bmpload;bmpload.LoadBitmap(IDB_BITMAP6);cwm-ModifyStyle(0,SS_BITMAP);cwm-SetBitmap(HB

22、ITMAP(bmpload.Detach();n=0;for(i=0;iInsertString(k+1,msg);Factk = msg;SetDlgItemText(IDC_EDIT2,msg);CStatic* cwm=(CStatic*)GetDlgItem(IDC_SHOWBITMAP);CBitmap bmpload;bmpload.LoadBitmap(IDB_BITMAP7);cwm-ModifyStyle(0,SS_BITMAP);cwm-SetBitmap(HBITMAP(bmpload.Detach(); void CMFC_AnimalDlg:OnClickedButton1()/ TODO: 在此添加控件通知處理程序代碼m_point1.SetCurSel(0);/設(shè)置組合框的默認值為第一項 m_point2.SetCurSel(0);m_point3.SetCurSel(0);m_point4.SetCurSel(0);m_point5.SetCurSel(0);m_point6.SetCurSel(0);m_point7.SetCurSel(0);CStr