/* tcomp2:  test of cable with segments */

t1 = elap_time();

timinc = 5e-5; 
endexp = .25;
complam=.1;
relax = 0;
relincr = 0;

crit  = 1e-10;
ploti = 1e-4;
/* implicit = 1; */

plmax = .1;
plmin = -.07;

vcl = -.065;

dri = 100;
drm = 40000;

cablen = 1000;

x = setvar();

conn 1 to 2 cable length=cablen dia=1;

stim node 1 cclamp 0.1e-9 start 0 dur 1e10;

plot V[1];
plot V[2];

run;

t2 = elap_time();

totsecs = (t2 - t1) * 60;

neff = totsecs / endexp;

print neff;

