;;;======================================================
;;;   London Weather - Fuzzy and certainy factors
;;;     
;;;     
;;;     CLIPS Version 6.0 Example
;;;
;;;     To execute, merely load this and relatives.clp, reset and run.
;;;======================================================

(defrule startup
   =>
   (printout t "we are predicting weather" crlf )
	(plot-fuzzy-value t "+.*-@" nil nil (create-fuzzy-value rainfall dry)
							(create-fuzzy-value rainfall light)
							(create-fuzzy-value rainfall moderate)
							(create-fuzzy-value rainfall heavy)
							(create-fuzzy-value rainfall biblical))
	(plot-fuzzy-value t "+.*-@" nil nil (create-fuzzy-value temp cold)
							(create-fuzzy-value temp cool)
							(create-fuzzy-value temp mild)
							(create-fuzzy-value temp warm)
							(create-fuzzy-value temp hot))
	(plot-fuzzy-value t "+.*-@^" nil nil (create-fuzzy-value clouds overcast)
							(create-fuzzy-value clouds mostlycloudy)
							(create-fuzzy-value clouds partlycloudy)
							(create-fuzzy-value clouds partlysunny)
							(create-fuzzy-value clouds mostlysunny)
							(create-fuzzy-value clouds sunny))

   (assert ;(rainfall ( 1.4 0) (1.5 1) (1.6 0) ) ; establish facts about the weather
		(rainfall ( 0.2 0) (0.3 1) (0.4 0) ) 
		(temp (74.9 0) (75 1) (75.1 0) )
		(clouds (54.9 0) (55 1) (55.1 0) )
 		
             )
)