# BackPropModel.nsl

nsl set system.model BackPropModel

set steps 800 
set numPats 4
set graphTime [expr $steps*$numPats]

nsl set system.trainEpochSteps $steps ;# -1 
nsl set system.trainDelta 1
nsl set system.trainEndTime $numPats

nsl set system.simDelta .25
nsl set system.simEndTime .5 

nsl set BackPropModel.tf.pInput { 
{ 0 0 } { 0 1 } { 1 0 } { 1 1 } }
nsl set BackPropModel.tf.pOutput { 
{ 0 } { 1 } { 1 } { 0 } }

#nsl set BackPropModel.tf.pInput \
#0 0 0 1 1 0 1 1 
#nsl set BackPropModel.tf.pOutput \
#0 1 1 0

nsl set BackPropModel.bp.bh.lrate 0.8 ;# 0.3 , 0.15
nsl set BackPropModel.bp.bo.lrate 0.8 ;# 0.3 , 0.15
nsl set BackPropModel.bp.be.stopError 0.05

nsl create window_interface 
nsl create display_frame .bp

nsl create display_window .bp.tss -width 1000 -height 200 -graph temporal_graph \
        -layer BackPropModel.bp.be.tss -t1 $graphTime -wymin -0.5 -wymax 1.5 -grid NSL_ON -x_axis NSL_ON

nsl init
nsl train
nsl load backproprun