/usr/share/nrn/demo/singhh.hoc is in neuron 7.5-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | load_file("singhhchan.hoc")
create soma
access soma
{diam=10 L=100/PI/diam}
{insert leak}
objref nachan, kchan, stim
nachan = new nahh0(.5)
kchan = new khh0(.5)
gmaxna = .12
gmaxk = .036
proc nsing() {
nachan.gmax = gmaxna
kchan.gmax = gmaxk
nachan.Nsingle = $1
kchan.Nsingle = $1
if ($1 > 0) {
nachan.gmax /= nachan.Nsingle
kchan.gmax /= kchan.Nsingle
}
stdinit()
}
nsing(1000)
/*
xpanel("AP with a set of single channels")
xradiobutton("Continuous", "nsing(0)", 1)
xradiobutton("1 channel", "nsing(1)")
xradiobutton("10 channels", "nsing(10)")
xradiobutton("100 channels", "nsing(100)")
xradiobutton("1000 channels", "nsing(1000), 1")
xradiobutton("10000 channels", "nsing(10000)")
xpanel(100, 100)
*/
load_file(1, "singhh.ses")
proc destroy() {
objref nachan, kchan, stim
while (PWManager[0].count > 6) {
PWManager[0].close(PWManager[0].count-1)
}
}
|