CLIPS西瓜病害诊断项目咨询：是否需用salience及实现复选框界面

1. 是否需要在规则中加入salience（优先级）？ #

需要根据诊断逻辑决定，但当前代码结构下，加入salience能大幅提升诊断效率和用户体验。

当前代码的核心问题是：所有询问症状的规则会按定义顺序依次触发，哪怕用户已经明确排除了某类病害（所有对应症状选no），系统仍会继续询问其他病害的症状，流程冗余。此外，如果存在多病害症状重叠的情况，salience可以控制诊断结果的输出优先级。

具体优化建议：

• 给诊断规则（如check、check-two）设置更高的salience值，让它们优先于询问规则触发，匹配到结果后直接终止流程，避免无效询问。示例：

  (defrule check
    (salience 10)
    (OWS yes)
    (YHP yes)
    (SDA yes)
    (DGB yes) 
  => 
  (println "该植株患有西瓜细菌性果斑病。")
  (halt) ; 匹配结果后停止运行，避免后续询问
  )
  

• 给询问规则添加触发条件：仅当未诊断出病害时才触发。比如在诊断规则中断言(diagnosis-made)，询问规则的LHS加入(not (diagnosis-made))，防止已确诊后继续询问。

如果你的病害无重叠症状、且要求用户完成所有症状询问再统一诊断，也可以不用salience，但这种模式用户体验较差。

2. 如何将控制台交互式输入改为复选框形式？ #

CLIPS本身仅支持控制台交互，要实现复选框输入，需结合GUI框架或Web前端收集用户输入，再将输入传递给CLIPS推理。以下是两种可行方案：

方案一：Python + Tkinter 桌面GUI #

通过clipspy库调用CLIPS，结合Tkinter实现可视化复选框界面：

1. 安装依赖：pip install clipspy tkinter
2. 核心实现步骤：
   • 整理所有症状，生成对应复选框组件
   • 用户勾选后，将选中状态转换为CLIPS事实（选中=yes，未选中=no）
   • 断言事实到CLIPS环境，运行规则并展示诊断结果

简化示例代码：

import clips
import tkinter as tk
from tkinter import ttk

def run_diagnosis():
    # 初始化CLIPS环境并加载规则
    env = clips.Environment()
    env.build("""
    (defrule check
      (salience 10)
      (OWS yes)
      (YHP yes)
      (SDA yes)
      (DGB yes) 
    => 
    (assert (diagnosis "西瓜细菌性果斑病")))
    
    (defrule check-two
      (salience 10)
      (corky yes)
      (misshaping yes)
      (dark yes)
    =>
    (assert (diagnosis "西瓜细菌性果皮坏死病")))
    """)
    
    # 获取用户勾选的症状状态
    symptoms = {
        "OWS": var_ows.get(),
        "YHP": var_yhp.get(),
        "SDA": var_sda.get(),
        "DGB": var_dgb.get(),
        "corky": var_corky.get(),
        "misshaping": var_misshaping.get(),
        "dark": var_dark.get()
    }
    
    # 向CLIPS断言事实
    for sym, is_checked in symptoms.items():
        env.assert_string(f"({sym} {'yes' if is_checked else 'no'})")
    
    # 运行规则并获取诊断结果
    env.run()
    diagnosis = None
    for fact in env.facts():
        if fact.template.name == "diagnosis":
            diagnosis = fact[0]
            break
    
    # 展示结果
    result_label.config(text=f"诊断结果：{diagnosis if diagnosis else '未匹配到对应病害'}")

# 构建GUI界面
root = tk.Tk()
root.title("西瓜病害诊断系统")

# 创建症状复选框
var_ows = tk.BooleanVar()
ttk.Checkbutton(root, text="子叶油状水渍", variable=var_ows).pack(anchor="w")

var_yhp = tk.BooleanVar()
ttk.Checkbutton(root, text="沿叶脉黄晕", variable=var_yhp).pack(anchor="w")

var_sda = tk.BooleanVar()
ttk.Checkbutton(root, text="叶片小型深色角斑", variable=var_sda).pack(anchor="w")

var_dgb = tk.BooleanVar()
ttk.Checkbutton(root, text="幼果表面深绿色斑块", variable=var_dgb).pack(anchor="w")

var_corky = tk.BooleanVar()
ttk.Checkbutton(root, text="果皮木栓化干腐", variable=var_corky).pack(anchor="w")

var_misshaping = tk.BooleanVar()
ttk.Checkbutton(root, text="果实畸形", variable=var_misshaping).pack(anchor="w")

var_dark = tk.BooleanVar()
ttk.Checkbutton(root, text="深色水渍状凹陷", variable=var_dark).pack(anchor="w")

# 诊断按钮与结果标签
ttk.Button(root, text="开始诊断", command=run_diagnosis).pack(pady=10)
result_label = ttk.Label(root, text="")
result_label.pack()

root.mainloop()

方案二：Web前端（HTML+JS） #

使用clips.js（CLIPS的JavaScript移植版）在浏览器中实现：

1. 引入clips.js库
2. 在HTML中构建复选框列表
3. 用户提交后，将选中状态转换为CLIPS事实，运行规则并展示结果

该方案无需安装桌面程序，用户可通过网页直接访问使用。

附：用户提供的原始CLIPS代码 #

CLIPS> (defrule bacterial-fruit-blotch-of-watermelon 
   =>
   (print "Is the plant showing a symptom of Oily and water-soaked cotyledons? ")
   (assert (OWS (read)))
   (print "Is the plant showing a symptom of Yellow halo paralleling veins? ")
   (assert (YHP (read)))
   (print "Is the plant showing a symptom of Small dark and angled lesion on leaves? ")
   (assert (SDA (read)))
   (print "Is the plant showing a symptom of Dark green blotch on the upper surface of developing fruit? ")
   (assert (DGB (read))))
CLIPS> (defrule check
   (OWS yes)
   (YHP yes)
   (SDA yes)
   (DGB yes) 
=> 
(println "The plant is showing a symptom of bacterial fruit blotch of watermelon disease."))
CLIPS> (defrule bacterial-rind-necrosis
 =>
 (print " Is the plant showing a symptom of corky, dry necrosis? ") 
 (assert (corky (read)))
 (print " Is the plant showing a symptom of misshapen? ")
 (assert (misshaping (read))) 
 (print " Is the plant showing a symptom of dark ,water-soaked depression? ") 
 (assert (dark (read))))
CLIPS> (defrule check-two
 (corky yes)
 (misshaping yes)
 (dark yes)
=>
(println "The plant is showing a symptom of bacterial rind necrosis of watermelon disease."))
CLIPS> (reset)
CLIPS> (run)
Is the plant showing a symptom of Oily and water-soaked cotyledons? no
Is the plant showing a symptom of Yellow halo paralleling veins? n
Is the plant showing a symptom of Small dark and angled lesion on leaves? no
Is the plant showing a symptom of Dark green blotch on the upper surface of developing fruit? no
 Is the plant showing a symptom of corky, dry necrosis? yes
 Is the plant showing a symptom of misshapen? yes
 Is the plant showing a symptom of dark ,water-soaked depression? yes
The plant is showing a symptom of bacterial rind necrosis of watermelon disease.
CLIPS> 

内容的提问来源于stack exchange，提问作者Ahmad Rumah