建置網頁介面

建置簡單的網頁介面

收集單項問題的回答,網頁介面的設計較為簡單

1. 只有一單項問題的情形
   • Demo: Block world (html file : blocks.htm)
   • clips files :
     • without web interface: blocks.clp
     • with web interface: blocks.clp
   • servlet file : Blocks.java

2. BServlet.java 可用以處理這類問題, 但限於 Unordered Fact:
   Demos:
   • Block world (clips files : blocks.clp) (html file : blocks2.htm)

3. CServlet.java 可用以處理 Ordered Fact:
   Demos:
   1. Count points for a card hand (html file : count.htm)
   2. Parse a simple sentence (html file : parse.htm)
   3. A computer "Psychiatrist" (html file : eliza.htm)
   4. Count points for a card hand
      (jess file : counting0.clp, counting2.clp)

連續收集單項問題的回答

• servlet的設計必須逐次記錄答案,這就要用到session。
• 系統也要用(read-from-web ...)產生收集單項問題的網頁, clips file 中(read)用(read-from-web ...)代替。 例如,

  (defrule one-y
     (one y)
     =>
     (printout t " " crlf)
     (printout t "問題一．你認為你是一個有個性，有自己的思想及主見的人嗎？(y/n)")
     (bind ?yn (read))
     (assert (gquestion1 ?yn)))
  
  

  改為

  (defrule one-y
     (one y)
     =>
     (printout t " " crlf)
     (read-from-web "問題一．你認為你是一個有個性，有自己的思想及主見的人嗎？(y/n)" gquestion1))
  
  

  經過servlet的處理, assert an ordered fact: (gquestion1 y)。函式 read-from-web 的設計如下:

  (deffunction read-from-web (?prompt ?factName)
     (printout t ?prompt)
     (printout t "<FORM METHOD=POST ACTION=http://" ?*host* "/servlets/JessServlet>")
     (printout t "<INPUT TYPE=\"hidden\" NAME=\"fileRB\" VALUE=\"com\">")
     (printout t "<INPUT TYPE=\"hidden\" NAME=\"fact_name\" VALUE=" ?factName ">")
     (printout t crlf "<INPUT TYPE=\"radio\" NAME=\"slot\" VALUE=\"n\" checked>no")
     (printout t "<INPUT TYPE=\"radio\" NAME=\"slot\" VALUE=\"y\" >yes")
     (printout t crlf crlf "<p><INPUT TYPE=submit VALUE=\"Enter\">")
     (printout t "</FORM>")
     )
  
  

• Demo: 個性分析測驗系統 by 王怡菁, 石貴中。
• clips files :
  • without web interface: com0.clp
  • with web interface: com.clp
• jess servlets and related files :
  JessServlet.java, ReteControl.java, toUnicode.java

建置一般的網頁介面

1. Demo: 參考諮詢專家系統 by 魏煜娟。
   此系統的 servlet QF.java 的設計 參考 JessTest2.java, 較為簡單。

2. Demo: cholesterol系統。
   此系統的 servlet cholesterol.java 的設計,需要處理 default values。
   • clips file: Project.clp
   • servlet file: cholesterol.java

3. Demo: WINEX: The WINe EXpert system
   • clips file: Project.clp
   • servlet file: JessServlet.java

(defrule QUESTIONS::ask-a-question
   ?f <- (question (already-asked FALSE)
                   (the-question ?the-question)
                   (attribute ?the-attribute)
                   (valid-answers $?valid-answers))
   =>
   (modify ?f (already-asked TRUE))
   (read-from-web ?the-question ?the-attribute ?valid-answers)
   (halt)
   (set-current-module QUESTIONS)   ; to keep answer in the same module
 )

References

• Sec. 4.4.6 I/O Routers in 4. Introduction to Programming with Jess in Java
• Java How to Program, 5/e, by Deitel