|
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. |