create soma
create dend

access dend
 L =  3988 // PUT LENGTH OF DENDRITE HERE 1 LAMBDA=1994 um
access soma
 L = 25

forall nseg=int(L/10)+1

access dend
 diam = 2.5
access soma
 diam = 25

connect dend(0), soma(1)

forall insert pas
forall g_pas=1/70000
forall Ra=110
global_ra=110
forall e_pas=-65

objectvar clamp
soma clamp = new IClamp(0.5)
clamp.del = 0
clamp.dur = 8000

objectvar salpha
soma salpha = new AlphaSynapse(0.5)
salpha.onset = 500
salpha.tau = 300
salpha.gmax = 0.01

objectvar dalpha
dend dalpha = new AlphaSynapse(0.99)
dalpha.onset = 4000
dalpha.tau = 300
dalpha.gmax = 0.01

load_proc ("nrnmainmenu")
xopen("iclamp.ses")