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