// $Id: tt.g,v 16.1 2000/03/02 14:43:39 ajay Exp $
setclock 0 0.0001
int i,j

create randomspike /rs1
setfield ^ min_amp 1.0 max_amp 1.0 rate 150 \
	  reset 1 reset_value 0 abs_refract 5e-3

create randomspike /rs2
setfield ^ min_amp 1.0 max_amp 1.0 rate 150 \
	  reset 1 reset_value 0 abs_refract 5e-3

create table /t
call /t TABCREATE 99 0 99 // 100 cols
for (i=0; i<=99; i=i+1)
  setfield /t table->table[{i}] {0}
end
setfield /t step_mode 4 stepsize 0.5
addmsg /rs1 /t INPUT state

create table2D /t2
call /t2 TABCREATE 1 0 1 99 0 99 // 2 rows, 100 cols 
for (i=0; i<=1; i=i+1)
  for (j=0; j<=99; j=j+1)
	setfield /t2 table->table[{i}][{j}] {0}
  end
end
setfield /t2  step_mode 4 \  // TAB_SPIKE
	    stepsize  0.5  // below max_amp of rs elements
addmsg /rs1 /t2 INPUT2 state table->table[0]

create xform /f
create xgraph /f/g   \
 -xgeom 0 -ygeom 5% -wgeom 100% -hgeom 95% \
 -title "Random Spikes" \
 -XUnits time -YUnits state \
 -xmax 0.2 \
 -ymin -0.5 \
 -ymax 2

xshow /f
addmsg /rs1 /f/g PLOTSCALE state *state *red 1 0
reset

step 2000 // 200 ms

for (i=0; i<10; i=i+1)
 for (j=0; j<10; j=j+1)
  echo {getfield /t table->table[{i*10 + j}]} -n
  echo "  " -n
 end
 echo
end
echo // newline

for (i=0; i<=1; i=i+1)
    for (j=0; j<=99; j=j+1)
	echo  {getfield /t2 table->table[{i}][{j}]} -n
	echo "  " -n
    end
    echo // newline
end