sfmfmix.tst

一套美国国家宇航局人工智能中心NASA的专家系统工具源代码

(set-strategy depth)
(unwatch all)
; smfmmix.clp test
(clear)
(open "sfmfmix.rsl" sfmfmix "w")
(load "compline.clp")
(dribble-on "sfmfmix.out")
(load "sfmfmix.clp")
(rules)
(dribble-off)
(printout sfmfmix "sfmfmix.clp differences are as follows:" crlf)
(compare-files sfmfmix.exp sfmfmix.out sfmfmix)
; close result file
(close sfmfmix)