決策支持系統(tǒng)的開發(fā)與實(shí)例-資料下載頁
2026-01-04 19:32本頁面
【正文】 B MXHZ YJJB HZ DJYND BSLT WNC R1 R2 R4 R5 R3 R6 R11 R9 R14 R13 R12 R10 R7 R8 動(dòng)物分類專家系統(tǒng) ? R1：有毛發(fā) 哺乳動(dòng)物 ? R2：能產(chǎn)乳 哺乳動(dòng)物 ? R3：哺乳動(dòng)物 吃肉 食肉動(dòng)物 ? R4：哺乳動(dòng)物 有蹄 有蹄動(dòng)物 ? R5：食肉動(dòng)物 顏色是黃褐色 有深色斑點(diǎn) 獵豹 ? R6:食肉動(dòng)物 顏色是黃褐色 有黑色條紋 老虎 ? R7:有蹄動(dòng)物 顏色是白色 有黑色條紋 斑馬 專家系統(tǒng)開發(fā)工具 CLIPS 符號(hào)體系 ? 需要完全照樣輸入計(jì)算機(jī)的字和字符，即不被 、[]、 {}所括住的所有內(nèi)容。 ? (example) ? (example[1]) ： (example), (example 1) ? 表示其中的字所表示的意義要用一個(gè)相應(yīng)的任意值代替。 表示任意多個(gè)包括 0個(gè)與其中的字相應(yīng)的值。多個(gè)不包括 0個(gè)。 ? (example integer)： (example 1) (example 6) ? integer ：不輸或 1， 34… ? {}表示選用其中的任意一項(xiàng)，僅且一項(xiàng)。 {all,none,some} 語言符號(hào) ? 字：以可打印的 ASCII字符開始，后隨零個(gè)或多個(gè)字符。區(qū)分大小寫。 ?fire，不能出現(xiàn)〈 ,？ , （）， |， +… ? 字串：零個(gè)或任意個(gè)字符 ?“ activate the sprinkler system” ? 數(shù)值：符號(hào)、值和指數(shù)。 ?2, 1, 事實(shí) ? 事實(shí)： CLIPS程序必須有據(jù)以推理的數(shù)據(jù)和信息。由配對(duì)的（）括住的一個(gè)或多個(gè)字段組成。 ? 新的事實(shí)用 (assertfact)加入到事實(shí)表 (factlist)中；撤銷已存在的事實(shí)用(retract factindex) ?(assert (emergency fire) (emergency flood)) ?(retract 1 2 3) 規(guī)則 (defrule rulename [optional ment] patterns = actions) 無模式時(shí)，系統(tǒng)將自動(dòng)加入一個(gè)模式 (initialfact)。 動(dòng)作表也可以為空。 定義規(guī)則 ：如果發(fā)生的緊急情況是火災(zāi)，那么就啟動(dòng)噴淋系統(tǒng)。 規(guī)則 ? 。這是個(gè)簡單的規(guī)則 ? (defrule fireemergency “ An example rule” ? (emergency fire) ? = ? (assert (action activatesprinklersystem))) Printout命令 ? 在規(guī)則的動(dòng)作部分可以用 printout命令打印輸出信息 ? (printout logicalname printitems) ?(defrule fireemergency ?(emergency fire) ?= ?(printout t “ activate the sprinkler system” ctrl)) 變量 ? 在？后面跟一個(gè)表意的字段名，以字母開頭， ?speed, ?name ? 在規(guī)則的模式中約束一個(gè)值，然后，斷言規(guī)則動(dòng)作部分中的約束變量。 (defrule grandfather (isagrandfather ?name) = (assert (isaman ?name))) 變量 ? 通過變量不但可以加入事實(shí)，也可以撤銷事實(shí)。 ?(defrule modifygrandfatherfact ??oldfact (isagrandfather Jack) ?= ?(retract ?oldfact) ?(assert (hasagrandchild Jack) ? (isaman))) 字段通配符 ? 觸發(fā)規(guī)則的模式可以使用通配符指定 ,？可以代替任意一個(gè)字段 ?(defrule findbrownhairedpeople ?(person ?name ? brown) ?= ?(printout ?name “ has brown hair” crlf)) ? (person Jack green brown) ? (person Jane brown brown) 特權(quán) ? 特權(quán)被用來設(shè)置規(guī)則觸發(fā)的優(yōu)先級(jí)別。設(shè)置范圍 [10000 10000],默認(rèn)為 0 ? 格式 : (declare (salience 特權(quán)數(shù)值 )) (defrule init (declare (salience 9980)) … ) Read函數(shù) ? 使用 read函數(shù)獲取用戶輸入的信息。將獲取的輸入信息賦值給一個(gè)事實(shí)的語法格式為：事實(shí)名稱=（ read） ? (defrule xxread ? (declare (salience 50)) ? (xxread) ? = ? (printout t crlf crlf ? “請(qǐng)問是鼻塞流涕嗎？” crlf ? “選擇 y/n” ) ? (assert (BSLT=(read)))) (BSLT y) (BSLT n) 其他常用命令 reset命令：首先清除事實(shí)表中的所有事實(shí)，然后生成一個(gè)新事實(shí)（ initialfact） run:啟動(dòng)規(guī)則的執(zhí)行 clear：清除所有的事實(shí)和規(guī)則 halt：暫停規(guī)則的執(zhí)行 step:一步步執(zhí)行規(guī)則
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1