;;;; -*- mode:Lisp; syntax:Common-Lisp; package:user -*- ;;;;
;;;; Copyright 1992 Patrick H. Winston.  All rights reserved.
;;;; Version 1.1, transferred from master disk on 21 Jan 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 23, Learning by Training Perceptrons

;;;; LOAD PERCEPTRON SYSTEM
(load "train.lsp")

;;;; LOAD PERCEPTRON TEST DATA
(load "digits.lsp")

;;;; RUN PERCEPTRON TESTS

(progn (defperceptron *zero* (0 1 2 3 4 5 6 7))
       (train-perceptron *zero* 0 *samples*))

(progn (defperceptron *one* (0 1 2 3 4 5 6 7))
       (train-perceptron *one* 1 *samples*))

(progn (defperceptron *two* (0 1 2 3 4 5 6 7))
       (train-perceptron *two* 2 *samples*))

(progn (defperceptron *three* (0 1 2 3 4 5 6 7))
       (train-perceptron *three* 3 *samples*))

(progn (defperceptron *four* (0 1 2 3 4 5 6 7))
       (train-perceptron *four* 4 *samples*))

(progn (defperceptron *five* (0 1 2 3 4 5 6 7))
       (train-perceptron *five* 5 *samples*))

(progn (defperceptron *six* (0 1 2 3 4 5 6 7))
       (train-perceptron *six* 6 *samples*))

(progn (defperceptron *seven* (0 1 2 3 4 5 6 7))
       (train-perceptron *seven* 7 *samples*))

(progn (defperceptron *eight* (0 1 2 3 4 5 6 7))
       (train-perceptron *eight* 8 *samples*))

(progn (defperceptron *nine* (0 1 2 3 4 5 6 7))
       (train-perceptron *nine* 9 *samples*))