# 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.epochSteps 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