/* tcomp2:  test of cable with segments */

t1 = elap_time();

timinc = 10e-6; 
endexp = .01;
complam=.01;
relax = .20;
crit  = 1e-8;
ploti = 5e-5;


plmax = .05;
plmin = -.08;

vcl = -.065;

drm = 40000;
conn 1 to 2 cable length 10 dia 1;
at 1 chan K vrev= -.077 maxcond 2e-8 ename chk;
at 1 chan Na vrev=.05 thresh =-.050 maxcond  1e-7 ename chna;

stim node 1 cclamp 0.1e-10 start 0 dur .01;

plot V[1];
plot G0 chna max 1e-7 min 0;
plot G0 chk max 1e-7 min 0;
plot G1 chna max 2 min 0;
plot G2 chna max 2 min 0;
plot G1 chk max 2 min 0;
run;


t2 = elap_time();

totsecs = (t2 - t1) * 60;

speed = ncomps * endexp / totsecs;
print speed;
