/usr/share/nrn/demo/release.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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 | /*
?0 GUI NEURONDemonstrations Release Code
*/
help ?0
create terminal
access terminal
{nseg=1 L=10 diam=1}
celsius = 16.3
{insert HHna insert HHk insert cachan insert cadifpmp }
{insert nacax insert trel insert capump insert pas}
proc set_al() {
al_trel = alnorm*1e4^(power_trel - 2)
}
proc default() {
g_pas = .0003
e_pas = -53.1
k1_cadifpmp = 30e8
k2_cadifpmp = .25e6
k3_cadifpmp = 1.5e3
k4_cadifpmp = 5e0
pump0_cadifpmp = 1e-13
beta_cadifpmp = 100
kmp_capump=.2 vmax_capump=.0667*0
pcabar_cachan=2.5e-5
gnabar_HHna=.120
gkbar_HHk=.036
k_nacax=.00015
cao0_ca_ion = 2 // these global variables initialize cao/cai
cai0_ca_ion = 3e-6
nao=115
nai=15
ion_style("na_ion", 1, 2, 1, 0, 0) // ena initialized from constant nai/nao
GenVes_trel=.0004
tauGen_trel=10
al_trel= 7.5e5
power_trel=2
alnorm = 75
set_al()
}
default()
proc releasemenubody() {
/*
? Releasevariables
*/
xpanel("Release variables")
xvalue("tauGen","tauGen_trel",1)
xvalue("Ach Gen rate","Agen_trel",1)
xvalue("Ach Split rate","Aase_trel",1)
xvalue("power","power_trel",1, "set_al()")
xvalue("al (norm)","alnorm",1, "set_al()")
xvalue("Kd","Kd_trel",1)
xpanel()
}
proc fluxmenubody() {
/*
? ionfluxes
*/
xpanel("ion fluxes")
xvalue("kinetic pmp", "pump0_cadifpmp",1)
xvalue("beta","beta_cadifpmp", 1)
xvalue("kmp","kmp_capump", 1)
xvalue("vmax","vmax_capump", 1)
xvalue("pcabar","pcabar_cachan", 1)
xvalue("gnabar","gnabar_HHna", 1)
xvalue("gkbar","gkbar_HHk", 1)
xvalue("k exchange","k_nacax", 1)
xvalue("nao", "nao", 1, "init()")
xvalue("cai init","cai0_ca_ion", 1, "init()")
xpanel()
}
objectvar relmenu
/*
relmenu = new VBox()
relmenu.intercept(1)
releasemenubody()
relmenu.intercept(0)
relmenu.map("Release Variables", 5, 650, 100, 100)
*/
objectvar fluxmenu
/*
fluxmenu = new VBox()
fluxmenu.intercept(1)
fluxmenubody()
fluxmenu.intercept(0)
fluxmenu.map("Ion Fluxes", 250, 130, 100, 100)
*/
{xopen("$(NRNDEMO)testca.hoc")}
proc init() {local ca
finitialize(v_init)
fcurrent()
integ_ica()
}
proc advance() {
fadvance()
integ_ica()
}
/*
objectvar e
e = new Electrode(0)
e.stim.amp=.05
e.stim.del=.25
e.vc.dur[1]=3
e.map(5, 50)
e.installIclamp()
*/
proc destroy() {
objectvar relmenu, fluxmenu
execute("~proc init(){finitialize(v_init) fcurrent()}")
execute("~proc advance(){fadvance()}")
}
|