【導讀】專家系統(tǒng)是人工智能的一個分支,其發(fā)展速度非?？炷壳皩＜蚁到y(tǒng)應用領。域已經(jīng)滲透到數(shù)學,物理,化學,醫(yī)學等眾多領域,幾乎所有的專家系統(tǒng)都至少能。將人的效率提高到10倍左右。研制而成的，主要用于實現(xiàn)糖尿病診斷和治療功能，從而達到利用計算機模擬人。類專家診療糖尿病的目的。理，結(jié)構(gòu)，方法和過程，詳細闡述了知識庫、推理機、數(shù)據(jù)庫、人機對話界面、解釋器的設計和實現(xiàn)方法，力求將所學到的知識在專家系統(tǒng)開發(fā)中得以全面的應。用，并使系統(tǒng)在實際的操作中能按照設計的要求安全有效正確的運行。

　　

【正文】 。 應用程序?qū)ο蟮氖录欢?，一共只?6 個，分別是 Open、 Close、 Idle、SystemError、 ConnectionBegin、 ConnectionEnd 事件。 本應用程序?qū)ο笾兄挥玫?Open 事件，輸入如下程序代碼： // Profile person = ODBC = False = Connectstring=39。DSN=person39。 connect。 //打開程序登陸窗口 open(w_enter)。 圖 用戶登入界面 該圖為應用程序登陸圖，其中的下拉列表框是利用游標將數(shù)據(jù)庫的 PERSON表中的屬性 PERSONNAME 導入 。 代碼如下 DECLARE cur CURSOR for select personname 糖 尿病專家系統(tǒng) 23 from person 。 open cur。 fetch cur into :pname。 do while =0 (pname) fetch cur into :pname。 loop close cur。 注冊按鈕是進行新用戶注冊 注冊界面如下： 圖 用戶注冊界 面 可進行用戶添加 保存等功能，添加用戶后 返回到登陸界面，就能將新用戶進入下拉列表。 主界面設計 本應用程序的主要功能都是在主窗口 w_main 及在其下打開的眾多窗口中完成的。 如圖所示。將主窗口的 WindowType 屬性設立為 mdi型，以便在其下以特定方式打開其他窗口。 糖 尿病專家系統(tǒng) 24 圖 主菜單設計 主界面設計如下： 圖 主界面 如圖所示 糖尿病專家系統(tǒng)的主界面，用戶使用時可以選擇不同的方式進行操作，如果用 戶是第一次使用，或則使用一段時間后想確定自己的糖尿病分型是否改變則單擊 “糖尿病初步診斷按鈕”，代碼為 opensheet(w_first_checked,w_main,3,original!) 如果用戶長期使用想確定自己是否以開始有糖尿病慢性病可點擊慢性并發(fā)癥診斷按鈕 代碼為 opensheet(w_choose ,w_main,3,original!) 如果初患糖尿病，為了防止慢性并發(fā)癥，可單擊糖尿病預防按鈕 代碼為 opensheet(w_prevent ,w_main,3,original!) 主界 面定義了全局變量如下： string pname=39。39。//用戶姓名 date usedate //使用時間 integer years=0 //病人患病年數(shù) string syms= //癥狀 string history = // 即往史 string status= //飯前 |飯后 糖 尿病專家系統(tǒng) 25 real blood = //血糖值 real b_oggt = //OGGT 值 real b_ins = //ins 值 string ins_st //ins 狀態(tài) real p_type1 = //一型概率 real p_type2 = //2 型概率 int age =0 //年齡 integer gadcf =0 //GAD 判斷 1為陽 0 為陰 string weight=未測定 //體重判斷 1 為重 0 為瘦 real bmi=0 string result=//結(jié)論 real p_d = //患糖尿病人數(shù)概率 real p_dn= //不患的概率 糖尿病初步診斷窗口設計 根據(jù)第三章的知識樹設計，此推理過程也就由該搜索樹進行由上往下推理，并得出結(jié)論 第一個界面如下： 圖 糖尿病初步診斷詢問癥狀界面 專家先詢問患者是否有以下癥狀，用戶可以根據(jù)自 己的癥狀進行多選，后臺程序根據(jù)選擇的項目進行 BAYES 推理給出一個模糊結(jié)論 糖尿病病癥權(quán)值 糖 尿病專家系統(tǒng) 26 圖 BAYES 權(quán)值 代碼如下 real bayes= if =true then real p_d_t= //患糖尿病有三多一少癥狀的概率 real p_dn_t= //不患 real t //患三多一少的概率 real p_t_d //三多一少條件下糖尿病概率 t=p_d*p_d_t+p_dn*p_dn_t p_t_d=p_d_t*p_d*bayes=bayes+p_t_d syms=syms+三多一少癥狀 else messagebox(提示 ,您無明顯的糖尿病癥狀是否繼續(xù) ) nofeture=您無明顯的糖尿病癥狀是否繼續(xù) end if if =true then real p_d_y= real p_dn_y= real eye//視力模糊的概率 real p_y_d eye=p_d*p_d_y+p_dn*p_dn_y p_y_d=p_d_y*p_d* bayes=bayes+p_y_d syms=syms+ +視力模糊 end if if =true then real p_d_h= real p_dn_h= real hurt real p_h_d 糖尿病病癥 三多一少 視力模糊 傷口久不合 體重突然減少 遺 傳 糖 尿病專家系統(tǒng) 27 hurt=p_d*p_d_h+p_dn*p_dn_h p_h_d=p_d_h*p_d* bayes=bayes+p_h_d syms=syms++創(chuàng)口久不愈合 end if if =true then real p_d_w= real p_dn_w= real weig real p_w_d hurt=p_d*p_d_w+p_dn*p_dn_w p_w_d=p_d_w*p_d* bayes=bayes+p_w_d syms=syms+體重減少 end if if =true then syms=syms+皮膚騷癢 real p_d_s= real p_dn_s= real skin real p_s_d skin=p_d*p_d_s+p_dn*p_dn_s p_s_d=p_d_s*p_d* bayes=bayes+p_s_d end if if =true then syms=syms+遺傳 real p_d_i= real p_dn_i= real inherit real p_i_d inherit=p_d*p_d_s+p_dn*p_dn_s p_i_d=p_d_i*p_d* bayes=bayes+p_i_d end if if syms= then messagebox(提示 ,您沒以下癥狀如要想要繼續(xù)請點下一步 ) end if messagebox( 提示 , 進過 BAYES 推理您患糖尿病概率為+left(string(bayes),5)) opensheet(w_first_history,w_main,3,original!) 根據(jù)不同的病癥， BAYES 的閾值也不同，三多一少為 視力模糊為 0。 8 依糖 尿病專家系統(tǒng) 28 次類推。確定后進入既往史輸入界面。 圖 既往史 該界面是專家詢問用戶是否有以下既往史，代碼見附錄 程序 2 其中 為上一個窗口傳遞的癥狀值 接著是對血糖的測量 圖 血糖測量 該界面是關(guān)于血糖值的測量，對于斷定是否患糖尿病有重要作用為了準確的進行測量，根據(jù)知識庫的搜索樹在此進行了兩次檢測，代碼見附錄程序三 糖 尿病專家系統(tǒng) 29 圖 血糖測量 當飯前輸入為 4時 ,如上圖 ,會提示進入口服葡萄糖界面。 圖 血糖測量 2 如果輸入 15 的話會提示進入急性診斷界面 圖 口服葡萄糖界面 糖 尿病專家系統(tǒng) 30 當兩次輸入的數(shù)值符合糖尿病患病數(shù)值的時候進入下一模塊 圖 INS C 肽化驗 確定按扭代碼如下 b_ins=real(trim()) if b_ins then ins_st=高 else ins_st=底 end if opensheet(w_fifth_gadcheck ,w_main,3,original!) 接著是 GAD 檢測模塊 圖 糖尿病急性診斷 糖 尿病專家系統(tǒng) 31 圖 GAD檢測 根據(jù)第三章搜索樹的推理，當 INS 值為底的時候， GAD 為陽性變可推測換 I型糖尿病 代碼見附錄程序 4 圖 如果為陰性則繼續(xù)進行年齡和體重的推理得出結(jié)論，將會出現(xiàn)以下的情況 糖 尿病專家系統(tǒng) 32 圖 體重測量 糖尿病慢性診斷窗口 圖 患病年數(shù)樹輸入 該圖是慢性診斷的第一個窗口 ,因為糖尿病慢性病是長時間才顯出癥狀 ,所以需要輸入年數(shù)和類型 圖 慢性病選擇 糖 尿病專家系統(tǒng) 33 糖尿病預防模塊 該模塊結(jié)合了一型，二型等有關(guān)糖尿病預防的知識，設計界面如下。 圖 糖尿病預防預防 圖 糖尿病治療模塊 糖 尿病專家系統(tǒng) 34 慢性并發(fā)癥治療 模塊 由于慢性病治療模塊基本相似，選擇視網(wǎng)膜病變治療模塊 慢性病治療模塊 血糖檢測模塊 糖尿病病人控制得關(guān)鍵因素在于血糖 ,每天患者必須檢測自己的血糖值 ,如果血糖控制不好 ,就會導致很多疾病的產(chǎn)生。所以該模塊運用數(shù)據(jù)庫技術(shù)讓患者了解自己的血糖情況。 圖 血糖輸入窗口 糖 尿病專家系統(tǒng) 35 圖 血糖檢測窗口 糖 尿病專家系統(tǒng) 36 第六章 系統(tǒng)的編譯和發(fā)布 完成了醫(yī)院住院病人管理信息系統(tǒng)的編程工作并調(diào)試通過后，最后一步就是系統(tǒng)的編譯和發(fā)布。這涉及到工程對象的創(chuàng)、可執(zhí)行應用程序的生成以及發(fā)布環(huán)境的配置等多方面問題。一個系統(tǒng)開發(fā)的是否成功，歸根結(jié)底是要看用戶對系統(tǒng)的使用是否滿意。本系統(tǒng)是一個數(shù)據(jù)庫應用系統(tǒng)，需要涉及到數(shù)據(jù)庫環(huán)境配置等問題。因此需要將系統(tǒng)應用程序編譯成可執(zhí)行文件，將應用所需要的環(huán)境發(fā)布出去，這樣既可以減少應用程序的大小，又可以提高應用程序的運行速度。 和其他軟件一樣，用 PowerBuilder 提供的編譯工具可將應用程序編譯成可直接在系統(tǒng)下運行的應用程序。 創(chuàng)建工程對象 使用 Project 中的 Application Wizard 建立工程的基本步驟如下： ⑴在工具欄上單擊 New 圖標，選擇 Project 頁中的 Application Wizard 向?qū)А? ⑵在 About the Application Project Wizard 對話框中單擊