COMMENT
Revised 12/15/2000 in light of a personal communication
from Misha Tsodyks that u is incremented _before_ x is
converted to y--a point that was not clear in the paper.
If u is incremented _after_ x is converted to y, then
the first synaptic activation after a long interval of
silence will produce smaller and smaller postsynaptic
effect as the length of the silent interval increases,
eventually becoming vanishingly small.
Implementation of a model of short-term facilitation and depression
based on the kinetics described in
Tsodyks et al.
Synchrony generation in recurrent networks
with frequency-dependent synapses
Journal of Neuroscience 20:RC50:1-5, 2000.
Their mechanism represented synapses as current sources.
The mechanism implemented here uses a conductance change instead.
The basic scheme is
x -------> y Instantaneous, spike triggered.
Increment is u*x (see discussion of u below).
x == fraction of "synaptic resources" that have
"recovered" (fraction of xmtr pool that is
ready for release, or fraction of postsynaptic
channels that are ready to be opened, or some
joint function of these two factors)
y == fraction of "synaptic resources" that are in the
"active state." This is proportional to the
number of channels that are open, or the
fraction of max synaptic current that is
being delivered.
tau_1
y -------> z z == fraction of "synaptic resources" that are
in the "inactive state"
tau_rec
z -------> x
where x + y + z = 1
The active state y is multiplied by a synaptic weight to compute
the actual synaptic conductance (or current, in the original form
of the model).
In addition, there is a "facilition" term u that
governs the fraction of x that is converted to y
on each synaptic activation.
-------> u Instantaneous, spike triggered,
happens _BEFORE_ x is converted to y.
Increment is U*(1-u) where U and u both
lie in the range 0 - 1.
tau_facil
u -------> decay of facilitation
This implementation for NEURON offers the user a parameter
u0 that has a default value of 0 but can be used to specify
a nonzero initial value for u.
When tau_facil = 0, u is supposed to equal U.
Note that the synaptic conductance in this mechanism
has the same kinetics as y, i.e. decays with time
constant tau_1.
This mechanism can receive multiple streams of
synaptic input via NetCon objects.
Each stream keeps track of its own
weight and activation history.
The printf() statements are for testing purposes only.
ENDCOMMENT
VERBATIM
#include <stdlib.h> //open the standard library of C
ENDVERBATIM
NEURON {
POINT_PROCESS tmgsyn
RANGE e, i
RANGE tau_1, tau_rec, tau_facil, U, u0
NONSPECIFIC_CURRENT i
}
UNITS {
(nA) = (nanoamp)
(mV) = (millivolt)
(umho) = (micromho)
}
PARAMETER {
: e = -90 mV for inhibitory synapses, 0 mV for excitatory
: tau_1 was the same for inhibitory and excitatory synapses
: in the models used by T et al.
: tau_1 = 3 ms
: tau_1 = 1 ms after fitting
: tau_rec = 100 ms for inhibitory synapses,
: 800 ms for excitatory
: tau_facil = 100 ms for inhibitory synapses,
: 0 ms for excitatory
: tau_facil = 200 after fitting
: U = 0.04 for inhibitory synapses, 0.5 for excitatory
: the (1) is needed for the < 0, 1 > to be effective
: in limiting the values of U and u0
: 0.15 in the ctrl case, 0.36 in the Abeta case
: initial value for the "facilitation variable"
: u0 = 0 Abeta Tsodyks 1.1
e = 0 (mV)
tau_1 = 1 (ms) < 1e-9, 1e9 >
tau_rec = 50 (ms) < 1e-9, 1e9 >
tau_facil = 200 (ms) < 0, 1e9 >
U = 0.36 (1) < 0, 1 >
u0 = 0 (1) < 0, 1 >
}
ASSIGNED {
v (mV)
i (nA)
x
}
STATE {
g (umho)
}
INITIAL {
g=0
}
BREAKPOINT {
SOLVE state METHOD cnexp
i = g*(v - e)
}
DERIVATIVE state {
g' = -g/tau_1
}
NET_RECEIVE(weight (umho), y, z, u, tsyn (ms)) {
INITIAL {
: these are in NET_RECEIVE to be per-stream
y = 0
z = 0
: u = 0
u = u0
tsyn = t
: this header will appear once per stream
: printf("t\t t-tsyn\t y\t z\t u\t newu\t g\t dg\t newg\t newy\n")
}
: first calculate z at event-
: based on prior y and z
z = z*exp(-(t - tsyn)/tau_rec)
z = z + ( y*(exp(-(t - tsyn)/tau_1) - exp(-(t - tsyn)/tau_rec)) / ((tau_1/tau_rec)-1) )
: now calc y at event-
y = y*exp(-(t - tsyn)/tau_1)
x = 1-y-z
: calc u at event--
if (tau_facil >= 0) {
u = u0 + (u-u0)*exp(-(t - tsyn)/tau_facil)
} else {
u = U
}
: printf("%g\t%g\t%g\t%g\t%g", t, t-tsyn, y, z, u)
if (tau_facil > 0) {
state_discontinuity(u, u + U*(1-u))
}
state_discontinuity(g, g + weight*x*u)
state_discontinuity(y, y + x*u)
tsyn = t
: printf("\t%g\t%g\n", g, y)
}