/* tcomp14: test of rod */


timinc = 1e-4;
endexp = .10;
ploti = endexp / 200;

plmax = -.01;
plmin = -.06;

rodrm = 5000;
at 1 sphere dia 5 rm rodrm;			/* rod anatomy */
at 1 rod (0,0); 
conn 1 to 2 cable length 50 dia 1.5 rm rodrm;
at 2 sphere dia 5 rm rodrm;
					/* synapse from rod to horiz */

conn 2 to 3 synapse linear igain 1 thresh -.06 timec1 1.5;

conn 3 to 5 cable length 10 dia .1;
conn 5 to 6 cable length 10 dia .5;
conn 6 to 7 cable length 10 dia 2;
at 7 sphere dia 30;
conn 7 to 8 cable length 50 dia 5;

stim rod 1 inten 1e4 start .008 dur .002;


plot V[6],V[5],V[3],V[2],V[1];
run;

