;;; -*- Syntax: Common-lisp; Mode: LISP; Package: USER; Base: 10 -*- ;;; ;;; AUTOCLASS II DATA BASE EXECUTION FILE *** 40 CLASSES *** ;;; ;;; Data Base Title : Clouds DB ;;; ;;; Source of Data Base : Phillipe Collard ;;; ;;; Prepared by : Michael Marshall ;;; ;;; Data Base File : >marshall>autoclass>clouds>clouds2.db ;;; ;;; Classification File ;;; ;;;*************************************************** ;;; ;;; EXECUTE THE FOLLOWING FORMS AT THE TOP LEVEL OF A LISP LISTENER ;;; ;;; GENERATE BEST CLASSIFICATIONS ;;; (send *terminal-io* :set-more-p nil) ; turn off *MORE* processing (send *terminal-io* :set-deexposed-typeout-action :permit) ; allow Lisp Listener to typeout when de-exposed (load "cha:>u>taylor>ui>autoclass-x>AC>development-30E.bin") (load "cha:>u>taylor>ui>autoclass-x>AC>dev-will.bin") (read-db "CHA:>marshall>autoclass>clouds>CLOUDS2.DB" 'all :variable-descriptions t) ; ### (collect-real-priors-from-data) (setf *current-results* "cha:>marshall>autoclass>clouds>CLOUDS2-20.WT-SET") ; ### (setf *partition* (make-part&classes 20)) (setf *last-cycle-partition-p* nil) (find-best-n 5 20 *partition* 'disperse-cycle 5 *current-results*) ;;; LOADING SINGLE BEST CLASSIFICATION FOR USER INTERFACE ;;; (load "cha:>u>taylor>ui>autoclass>load-it.lisp") ;; load user interface (load "cha:>marshall>autoclass>clouds>clouds-data-mods.bin") (read-db "CHA:>marshall>autoclass>clouds>CLOUDS2.DB" 'all :variable-descriptions t) ; ### (collect-real-priors-from-data) (setf *current-results* "cha:>marshall>autoclass>clouds>CLOUDS2-20.WT-SET") ; ### (get-best-of-weightings *current-results*) (setf *partition* (make-part&classes 20)) (collect-weights *partition*) (update-partition-mmls *partition*) (let ((vol (sys:console-volume))) (setf (sys:console-volume) .8225) (mapcar #'eval '((beep) (sleep .22) (beep) (sleep .11) (beep) (beep) (sleep .22) (beep) (sleep .55) (beep) (sleep .22) (beep))) (setf (sys:console-volume) vol)) ;;; HARDCOPIES FOR BASIC CLASSIFICATION CLASSES ;;; All class metrics All-classes by Attribute (up to 10) All-attributes by Class ;;; XREFS FOR BASIC CLASSIFICATION CLASSES ;;; (print-clouds-classes ">marshall>autoclass>clouds>SORT-CLASSES2-2.TEXT") ; ### (print-clouds-classes-3 ">marshall>autoclass>clouds>SORT-CASE-IDS2-2.TEXT") ; ### (hardcopy:hardcopy-file ">marshall>autoclass>clouds>SORT-CLASSES2-2.TEXT" "stones") (sleep 30) (hardcopy:hardcopy-file ">marshall>autoclass>clouds>SORT-CASE-IDS2-2.TEXT" "stones")