testdat1.txt

NASA 开发使用的一个专家系统

;***********************************************************************
; TESTDATA.BAT, October 1997
;
;   This batch input file loads WXSYS.CLP into FuzzyCLIPS and
;   executes the program.  No data must be provided by the user.
;   Input and output are mirrored to the log file, TEST1.OUT.
;
;   Requires HEDGES.BAT, WXSYS.CLP and FuzzyCLIPS version 6.0.4 or later
;
;   (c) Copyright 1997 by the authors:

;   Walter Maner, Ph.D.
;   Department of Computer Science, Bowling Green State University
;   Bowling Green, Ohio
;   email:  [e-mail]
;
;   Sean Joyce, M.S.
;   Department of Computer Science, Heidelberg College
;   Tiffin, Ohio
;   email:  [e-mail]
;***********************************************************************


(clear)
(clear-window)
(unwatch all)
(batch "HEDGES.BAT")
(load "WXSYS.CLP")
(reset)

(dribble-on "TESTDATA.OUT")

(assert
 (old-data-from-user
     (primary-cloud-base middle)
     (primary-cloud-orientation very vertical)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation horizontal)
     (secondary-clouds-moving-from west)
     (cloud-cover mostly-cloudy))
 (new-data-from-user
     (primary-cloud-base low)
     (primary-cloud-orientation vertical)
     (primary-clouds-moving-from east)
     (secondary-cloud-base low)
     (secondary-cloud-orientation vertical)
     (secondary-clouds-moving-from west)
     (cloud-cover overcast))
 (old-data-from-computer
     (time-of-day 9)
     (month 1)
     (day-of-month 10)
     (wind-speed 4)
     (wind-from 330)
     (barometric-pressure 31.00)
     (relative-humidity 45))
 (new-data-from-computer
     (time-of-day 12)
     (month 1)
     (day-of-month 10)
     (wind-speed 4)
     (wind-from 80)
     (barometric-pressure 30.00)
     (relative-humidity 99)))    

(run)

;
;
; ====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Continued wet                                     |
; =====================================================
;
;

(reset)

(assert
 (old-data-from-user
     (primary-cloud-base middle)
     (primary-cloud-orientation vertical)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation horizontal)
     (secondary-clouds-moving-from west)
     (cloud-cover partly-cloudy))
 (new-data-from-user
     (primary-cloud-base middle)
     (primary-cloud-orientation vertical)
     (primary-clouds-moving-from west)
     (secondary-cloud-base low)
     (secondary-cloud-orientation very vertical)
     (secondary-clouds-moving-from west)
     (cloud-cover partly-cloudy))
 (old-data-from-computer
     (time-of-day 9)
     (month 5)
     (day-of-month 10)
     (wind-speed 4)
     (wind-from 187)
     (barometric-pressure 29.5)
     (relative-humidity 45))
 (new-data-from-computer
     (time-of-day 12)
     (month 5)
     (day-of-month 10)
     (wind-speed 4)
     (wind-from 190)
     (barometric-pressure 30.30)
     (relative-humidity 60)))

(run)

;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Dry but thunderstorms nearby                      |
; =====================================================
;
;
;

(reset)

(assert
 (old-data-from-user
     (primary-cloud-base middle)
     (primary-cloud-orientation very vertical)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation vertical)
     (secondary-clouds-moving-from northeast)
     (cloud-cover mostly-cloudy))
 (new-data-from-user
     (primary-cloud-base very low)
     (primary-cloud-orientation very very vertical)
     (primary-clouds-moving-from east)
     (secondary-cloud-base low)
     (secondary-cloud-orientation very very vertical)
     (secondary-clouds-moving-from east)
     (cloud-cover overcast))
 (old-data-from-computer
     (time-of-day 9)
     (month 5)
     (day-of-month 10)
     (wind-speed 9)
     (wind-from 143)
     (barometric-pressure 30.20)
     (relative-humidity 45))
 (new-data-from-computer
     (time-of-day 12)
     (month 5)
     (day-of-month 10)
     (wind-speed 13)
     (wind-from 90)
     (barometric-pressure 29.50)
     (relative-humidity 78)))

(run)

;
;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Dry after early thundershower                     |
; =====================================================
;
;

(reset)

(assert
 (old-data-from-user
     (primary-cloud-base middle)
     (primary-cloud-orientation horizontal)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation vertical)
     (secondary-clouds-moving-from northeast)
     (cloud-cover mostly-cloudy))
 (new-data-from-user
     (primary-cloud-base very high)
     (primary-cloud-orientation horizontal)
     (primary-clouds-moving-from north)
     (secondary-cloud-base high)
     (secondary-cloud-orientation horizontal)
     (secondary-clouds-moving-from east)
     (cloud-cover overcast))
 (old-data-from-computer
     (time-of-day 9)
     (month 8)
     (day-of-month 10)
     (wind-speed 5)
     (wind-from 143)
     (barometric-pressure 29.5)
     (relative-humidity 87))
 (new-data-from-computer
     (time-of-day 12)
     (month 8)
     (day-of-month 10)
     (wind-speed 5)
     (wind-from 90)
     (barometric-pressure 29.7)
     (relative-humidity 67)))

(run)

;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Rain ending, followed by dry weather              |
; =====================================================
;
;

(reset)

(assert
 (old-data-from-user
     (primary-cloud-base middle)
     (primary-cloud-orientation horizontal)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation horizontal)
     (secondary-clouds-moving-from northeast)
     (cloud-cover mostly-cloudy))
 (new-data-from-user
     (primary-cloud-base low)
     (primary-cloud-orientation horizontal)
     (primary-clouds-moving-from south)
     (secondary-cloud-base high)
     (secondary-cloud-orientation horizontal)
     (secondary-clouds-moving-from north)
     (cloud-cover overcast))
 (old-data-from-computer
     (time-of-day 9)
     (month 1)
     (day-of-month 10)
     (wind-speed 7)
     (wind-from 143)
     (barometric-pressure 30.20)
     (relative-humidity 19))
 (new-data-from-computer
     (time-of-day 12)
     (month 1)
     (day-of-month 10)
     (wind-speed 15)
     (wind-from 90)
     (barometric-pressure 29.90)
     (relative-humidity 33)))

(run)

;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Briefly dry, then steady rainfall                 |
; =====================================================
;
;

(reset)

(assert
 (old-data-from-user
     (primary-cloud-base middle)
     (primary-cloud-orientation very horizontal)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation very horizontal)
     (secondary-clouds-moving-from west)
     (cloud-cover mostly-cloudy))
 (new-data-from-user
     (primary-cloud-base very low)
     (primary-cloud-orientation very horizontal)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation very very horizontal)
     (secondary-clouds-moving-from west)
     (cloud-cover mostly-cloudy))
 (old-data-from-computer
     (time-of-day 4)
     (month 1)
     (day-of-month 25)
     (wind-speed 45)
     (wind-from 2)
     (barometric-pressure 29.05)
     (relative-humidity 28))
 (new-data-from-computer
     (time-of-day 7)
     (month 1)
     (day-of-month 25)
     (wind-speed 61)
     (wind-from 5)
     (barometric-pressure 28.73)
     (relative-humidity 53)))
   
(run)

;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Occasional snow showers                           |
; =====================================================
;
;

(reset)

(assert
 (old-data-from-user
     (primary-cloud-base very low)
     (primary-cloud-orientation horizontal)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation horizontal)
     (secondary-clouds-moving-from northeast)
     (cloud-cover partly-cloudy))
 (new-data-from-user
     (primary-cloud-base low)
     (primary-cloud-orientation horizontal)
     (primary-clouds-moving-from west)
     (secondary-cloud-base high)
     (secondary-cloud-orientation horizontal)
     (secondary-clouds-moving-from east)
     (cloud-cover clear))
 (old-data-from-computer
     (time-of-day 12)
     (month 6)
     (day-of-month 6)
     (wind-speed 33)
     (wind-from 143)
     (barometric-pressure 29.5)
     (relative-humidity 40))
 (new-data-from-computer
     (time-of-day 15)
     (month 6)
     (day-of-month 6)
     (wind-speed 37)
     (wind-from 125)
     (barometric-pressure 30.15)
     (relative-humidity 43)))
   
(run)

;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Fair weather                                      |
; =====================================================
;
;

(reset)

(assert
 (old-data-from-user
     (primary-cloud-base middle)
     (primary-cloud-orientation very vertical)
     (primary-clouds-moving-from west)
     (secondary-cloud-base middle)
     (secondary-cloud-orientation vertical)
     (secondary-clouds-moving-from northeast)
     (cloud-cover partly-cloudy))
 (new-data-from-user
     (primary-cloud-base very low)
     (primary-cloud-orientation very vertical)
     (primary-clouds-moving-from west)
     (secondary-cloud-base low)
     (secondary-cloud-orientation very very vertical)
     (secondary-clouds-moving-from southwest)
     (cloud-cover mostly-cloudy))
 (old-data-from-computer
     (time-of-day 7)
     (month 5)
     (day-of-month 10)
     (wind-speed 33)
     (wind-from 143)
     (barometric-pressure 30.15)
     (relative-humidity 99))
 (new-data-from-computer
     (time-of-day 10)
     (month 5)
     (day-of-month 10)
     (wind-speed 50)
     (wind-from 125)
     (barometric-pressure 29.92)
     (relative-humidity 86)))
   
(run)

;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Scattered showers                                 |
; =====================================================
;
;

(reset)

(assert
 (new-data-from-user
     (primary-cloud-base very very low)
     (primary-clouds-moving-from east)
     (secondary-cloud-base low)
     (secondary-cloud-orientation vertical)
     (primary-cloud-orientation vertical)
     (secondary-clouds-moving-from south)
     (cloud-cover partly-cloudy))
 (old-data-from-user
     (primary-cloud-base low)
     (primary-clouds-moving-from west)
     (secondary-cloud-base low)
     (secondary-cloud-orientation vertical)
     (primary-cloud-orientation vertical)
     (secondary-clouds-moving-from south)
     (cloud-cover cloudy))
 (new-data-from-computer
     (time-of-day 16)
     (month 7)
     (day-of-month 4)
     (wind-speed 75)
     (wind-from 315)
     (barometric-pressure 30.0)
     (relative-humidity 76))
 (old-data-from-computer
     (time-of-day 13)
     (month 7)
     (day-of-month 4)
     (wind-speed 20)
     (wind-from 0)
     (barometric-pressure 30.01)
     (relative-humidity 75)))

(run)

;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Unsettled, then cloudy and dry                    |
; =====================================================
;
;

(reset)

(assert 
 (new-data-from-user
     (primary-cloud-base very very low)
     (primary-clouds-moving-from east)
     (secondary-cloud-base low)
     (secondary-cloud-orientation horizontal)
     (primary-cloud-orientation vertical)
     (secondary-clouds-moving-from south)
     (cloud-cover partly-cloudy))
 (old-data-from-user
     (primary-cloud-base low)
     (primary-clouds-moving-from west)
     (secondary-cloud-base low)
     (secondary-cloud-orientation horizontal)
     (primary-cloud-orientation vertical)
     (secondary-clouds-moving-from south)
     (cloud-cover overcast))
 (new-data-from-computer
     (time-of-day 6)
     (month 10)
     (day-of-month 4)
     (wind-speed 15)
     (wind-from 270)
     (barometric-pressure 31.0)
     (relative-humidity 60))
 (old-data-from-computer
     (time-of-day 3)
     (month 10)
     (day-of-month 4)
     (wind-speed 20)
     (wind-from 0)
     (barometric-pressure 30.50)
     (relative-humidity 61)))

(run)

;
;
; =====================================================
; | ACTUAL CONDITIONS OBSERVED DURING FORECAST PERIOD |
; | Fair weather                                      |
; =====================================================
;
;

(reset)

(dribble-off)