;;;; -*- mode:Lisp; syntax:Common-Lisp; package:user -*- ;;;;
;;;; Copyright 1992 Patrick H. Winston.  All rights reserved.
;;;; Version 1.1.1, transferred from master disk on 23 Apr 93
;;;;
;;;; This file may reference other files containing copyrighted software.
;;;; Any restrictions on the use of such software are described in the
;;;; files containing that software.  This file may be freely copied as
;;;; long as this notice is kept intact.

;;;; Purpose: program support for Chapter 20, Learning by Managing
;;;;	      Multiple Models	

;;;; LOAD VERSION-SPACE SYSTEM
(load "version.lsp")

;;;; LOAD VERSION-SPACE TEST DATA

(load "allergy.lsp")

;;;; RUN VERSION-SPACE TEST

(reset-versions)

(assimilate-positive-example '(sams breakfast friday cheap))

(assimilate-negative-example '(lobdell lunch friday expensive))

(test-example '(sams lunch saturday cheap))

(assimilate-positive-example '(sams lunch saturday cheap))

(test-example '(sams lunch saturday cheap))

(test-example '(sarahs breakfast sunday cheap))

(assimilate-negative-example '(sarahs breakfast sunday cheap))

(test-example '(sarahs breakfast sunday cheap))

(assimilate-negative-example '(sams breakfast sunday expensive))

(test-example '(sams lunch saturday cheap))

(test-example '(sarahs breakfast sunday cheap))