# Recfield.nsl simulation set up 
# 12/98

nsl set system.model RecfieldModel

nsl set system.simDelta 0.1
nsl set system.simEndTime 50

# constants

nsl set RecfieldModel.recfield.a.sp 1
nsl set RecfieldModel.recfield.a.delta 4

nsl set RecfieldModel.recfield.b.sp 1
nsl set RecfieldModel.recfield.b.delta 4

nsl set RecfieldModel.recfield.w.seed 77
nsl set RecfieldModel.recfield.w.maxinitval 0.001
nsl set RecfieldModel.recfield.w.beta 0.001
nsl set RecfieldModel.recfield.w.ga 1e4
nsl set RecfieldModel.recfield.w.alpha 0.00005

nsl set RecfieldModel.recfield.q.beta 0.001
nsl set RecfieldModel.recfield.q.ga 1e4
nsl set RecfieldModel.recfield.q.alpha 0.00005

# graphics

nsl create window_interface

#nsl create display_frame .receptive_fields

#nsl create display_window .receptive_fields.e$i$j -width 650 -height 600 \
#	-layer RecfieldModel.e -elem_i $i -elem_j $j \
#	-graph area_level_graph -wymin -5 -wymax 5 -grid NSL_ON

# nsl create display_frame .excitatory_weights

# nsl create display_window .excitatory_weights.w -width 650 -height 600 \
#	-layer RecfieldModel.w -graph area_level_graph -wymin 0 -wymax 0.15 -grid NSL_ON

# nsl create display_frame .inhibitory_weights

# nsl create display_window .inhibitory_weights.q -width 650 -height 600 \
#	-layer RecfieldModel.q -graph area_level_graph -wymin 0 -wymax 0.15 -grid NSL_ON

nsl create display_frame .receptive_fields

for { set i 0 } { $i < 5 } { incr i 1 } {
	frame .receptive_fields.e$i 	
	pack .receptive_fields.e$i -side top	
#	nsl create display_frame .receptive_fields.e$i
}

for { set i 0 } { $i < 5 } { incr i 1 } {
   for { set j 0 } { $j < 5 } { incr j 1 } {
	nsl create display_window .receptive_fields.e$i.e$i$j -width 160 -height 130 \
		-layer RecfieldModel.recfield.w.e -elem_i $i -elem_j $j \
		-graph area_level_graph -wymin -5 -wymax 5 -side left -grid NSL_ON
#	gridArray .receptive_fields.e$i.e$i$j 40 20 120 110 16 18
   }
}

nsl create display_frame .excitatory_weights

for { set i 0 } { $i < 5 } { incr i 1 } {
	frame .excitatory_weights.w$i 	
	pack .excitatory_weights.w$i -side top	
#	nsl create display_frame .excitatory_weights.w$i
}

for { set i 0 } { $i < 5 } { incr i 1 } {
   for { set j 0 } { $j < 5 } { incr j 1 } {
	nsl create display_window .excitatory_weights.w$i.w$i$j -width 160 -height 130 \
		-layer RecfieldModel.recfield.w.w -elem_i $i -elem_j $j \
		-graph area_level_graph -wymin 0.0 -wymax 0.15 -side left -grid NSL_ON
#	gridArray .excitatory_weights.w$i.w$i$j 40 20 120 110 16 18
   }
}

nsl create display_frame .inhibitory_weights

for { set i 0 } { $i < 5 } { incr i 1 } {
	frame .inhibitory_weights.q$i 	
	pack .inhibitory_weights.q$i -side top	
#	nsl create display_frame .inhibitory_weights.q$i
}

for { set i 0 } { $i < 5 } { incr i 1 } {
   for { set j 0 } { $j < 5 } { incr j 1 } {
	nsl create display_window .inhibitory_weights.q$i.q$i$j -width 160 -height 130 \
		-layer RecfieldModel.recfield.q.q -elem_i $i -elem_j $j \
		-graph area_level_graph -wymin 0.0 -wymax 0.15 -side left -grid NSL_ON
#	gridArray .inhibitory_weights.q$i.q$i$j 40 20 120 110 16 18
   }
}