;;;;  Sample date for the EXPLORER and UNIMEM programs.
;;;;  Instances are represented as feature/value pairs.
;;;;  However there are two changes.  First, the instances are not classified.
;;;;  Second, instances are named (to make the programs' output more readable).
;;;;  Instances must be uniquely named.  The value of the instance is its features.

;;;; --------------------------------------------------------------------------------------
;;;;                   Geometric Shapes - The Domain used by Tanimoto
;;;; --------------------------------------------------------------------------------------

(setf geometry-domain
   '( (equal-sides true false) (non-zero-area true false) (many-sides true false)))

(setf box            '((equal-sides false) (non-zero-area true)  (many-sides false)))
(setf square         '((equal-sides true)  (non-zero-area true)  (many-sides false)))
(setf isosceles      '((equal-sides false) (non-zero-area true)  (many-sides false)))
(setf right-triangle '((equal-sides false) (non-zero-area true)  (many-sides false)))
(setf trapezoid      '((equal-sides false) (non-zero-area true)  (many-sides false)))
(setf parallelogram  '((equal-sides false) (non-zero-area true)  (many-sides false)))
(setf rhombus        '((equal-sides true)  (non-zero-area true)  (many-sides false)))
(setf polygon        '((equal-sides false) (non-zero-area true)  (many-sides true) ))
(setf line           '((equal-sides true)  (non-zero-area false) (many-sides false)))
(setf point          '((equal-sides true)  (non-zero-area false) (many-sides false)))

(setf geometry-examples
   '(box square isosceles right-triangle trapezoid parallelogram rhombus polygon line point))

;;; Set some global variables used by the programs.


;;;; --------------------------------------------------------------------------------------
;;;;                   Simple example used to illustrate CLUSTER/2
;;;; --------------------------------------------------------------------------------------


(setf t1 '((color red)(size small)(shape square)))
(setf t2 '((color blue)(size small)(shape square)))
(setf t3 '((color green)(size small)(shape square)))
(setf t4 '((color orange)(size big)(shape circle)))
(setf t5 '((color blue)(size big)(shape circle)))
(setf t6 '((color red)(size big)(shape circle)))

(setf test-examples '(t1 t2 t3 t4 t5 t6))

(setf test-domains '((color red blue green orange)(size small big)(shape square circle)))