|
Nate Sutton, Ph.D.
|
'''
Temporal structure of a visual receptive feild.
This can simulate changes due to time of the fields
(Dayan and Abbott, pg 66)
'''
ms = .001
a = 1/15
tau = var('tau')
time = a*exp(-a*tau)*((((a*tau)^5)/factorial(5))-(((a*tau)^7)/factorial(7)))
plot(time, (tau,0,200))
|
'''
Transformation of space (in angle degrees of visual stimulus input) to time values
(Dayan and Abbott, pg 72)
'''
psi = pi/9
c = .02
x = var('x')
tau = var('tau')
xPrime(x,tau) = (x*cos(psi))-((c*tau)*sin(psi))
plot3d(xPrime, (x, -3, 3), (tau, 0, 200))
![]() ![]() |
'''
Time variable translated due to angle in degrees (space) of visual stimulus
(Dayan and Abbott, pg 72)
'''
psi = pi/9
c = .02
x = var('x')
tau = var('tau')
tauPrime(x,tau) = (tau*cos(psi))+((x/c)*sin(psi))
plot3d(tauPrime, (x, -4, 4), (tau, 0, 200))
![]() ![]() |
''' Gabor function without time which can plot firing response in relation to space, angles in degrees of x and y comprise space (Dayan and Abbott, pg 63) ''' sigX = 1 sigY = 2 k = 1/.56 psi = 0 gabor(x,y) = (1/(2*pi*sigX*sigY))*exp(-(x^2/(2*sigX^2))-(y^2/(2*sigY^2)))*cos(k*x-psi) plot3d(gabor*(.002), (x, -4, 4), (y, -5, 5))
![]() ![]() |
''' Gabor with time included as a non-seperable space-time receptive field Different time points shown below correspond to the animated plot shown in the beginning of this worksheet. ''' # time 0 tau = 0 gaborWithTime = gabor(xPrime(x,tau),y)*timeWithPrime(x,tau) plot3d(gaborWithTime, (x, -4, 4), (y, -5, 5))
![]() ![]() |
# time 25 tau = 25 gaborWithTime = gabor(xPrime(x,tau),y)*timeWithPrime(x,tau) plot3d(gaborWithTime, (x, -4, 4), (y, -5, 5))
![]() ![]() |
# time 50 tau = 50 gaborWithTime = gabor(xPrime(x,tau),y)*timeWithPrime(x,tau) plot3d(gaborWithTime, (x, -4, 4), (y, -5, 5))
![]() ![]() |
# time 100 tau = 100 gaborWithTime = gabor(xPrime(x,tau),y)*timeWithPrime(x,tau) plot3d(gaborWithTime, (x, -4, 4), (y, -5, 5))
![]() ![]() |
# time 150 tau = 150 gaborWithTime = gabor(xPrime(x,tau),y)*timeWithPrime(x,tau) plot3d(gaborWithTime, (x, -4, 4), (y, -5, 5))
![]() ![]() |
# time 200 tau = 200 gaborWithTime = gabor(xPrime(x,tau),y)*timeWithPrime(x,tau) plot3d(gaborWithTime, (x, -4, 4), (y, -5, 5))
![]() ![]() |
Reference:
Dayan, Peter, and Laurence F. Abbott. Theoretical neuroscience. Vol. 806. Cambridge, MA: MIT Press, 2001.
|