# BackPropModel.nsl

set steps 10 ;#1500 ;# 800 
set numPats 4
set graphTime [expr $steps*$numPats]

nsl set system.epochSteps $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.inSize 2
nsl set BackPropModel.hidSize 2
nsl set BackPropModel.outSize 1
#nsl set BackPropModel.numPats $numPats

nsl set BackPropModel.train.fname xor.pat

nsl init

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

nsl set BackPropModel.layers.hiddenLayer.lrate 0.8 ;# 0.3 , 0.15
#nsl set BackPropModel.layers.hiddenLayer.momentum 0 ;# 0.8 , 0.9

nsl set BackPropModel.layers.outputLayer.lrate 0.8 ;# 0.3 , 0.15
#nsl set BackPropModel.layers.outputLayer.momentum 0 ;# 0.8, 0.9

nsl set BackPropModel.layers.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.layers.tss -t1 $graphTime -wymin -0.5 -wymax 1.5 -grid NSL_ON -x_axis NSL_ON

nsl train
nsl load backproprun