;;;======================================================
;;;   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 ( 0.2 0) (0.25 1) (0.3 0) ) ; establish facts about the weather
		(temp (24.9 0) (25 1) (25.1 0) )
		(clouds (34.9 0) (35 1) (35.1 0) )
 		
             )
)