# art.nsl
# Character recognition by ART1.

nsl set system.model ArtModel

# Because we don't use 'run' command, this initialization seems
# unnessary. However, this is necessary for the simulation.
#nsl set system.simDelta 0.1
#nsl set system.simEndTime 10.0

nsl set system.trainEpochSteps 1 
nsl set system.trainDelta 1
nsl set system.trainEndTime 30

# set parameters
nsl set ArtModel.art.f1.rho 0.7
nsl set ArtModel.art.f2.rho 0.7 ;# not needed ?
nsl set ArtModel.art.f2.l 2.0

# Graphics
nsl create window_interface

# The frame which displays an input pattern I and an F1 activation
# pattern X.
nsl create display_frame .art1_patterns

nsl create display_window .art1_patterns.input -width 300 -height 300 	\
   -wymin 0 -wymax 1.2 -layer ArtModel.art.matI -graph area_level_graph	\
   -side left -grid NSL_ON 	

nsl create display_window .art1_patterns.output -width 300 -height 300 	\
   -wymin 0 -wymax 1.2 -layer ArtModel.art.matX -graph area_level_graph	\
   -side left -grid NSL_ON 

#nsl create display_frame .art1_f2

#nsl create display_window .art1_f2.v -width 600 -height 100 	\
#   -wymin 0 -wymax 1.1 -layer ArtModel.art.f2.v -graph area_level_graph \
#   -grid NSL_ON 

# nsl initTrain

nsl load pat1.nsl
nsl train
nsl delay

nsl load pat2.nsl
nsl train
nsl delay

nsl load pat1.nsl
nsl train
nsl delay

nsl load pat3.nsl
nsl train
nsl delay

nsl load pat4.nsl
nsl train
nsl delay

nsl load pat3.nsl
nsl train
nsl delay

nsl load pat1.nsl
nsl train
nsl delay