added opulation vector project

projects/project_populationvector/solution/firingrate.m

@@ -0,0 +1,9 @@
+function rate = firingrate(spikes, tmin, tmax)
+% mean firing rate between tmin and tmax.
+rates = zeros(length(spikes), 1);
+for i = 1:length(spikes)
+	times= spikes{i};
+	rates(i) = length(times((times>=tmin)&(times<=tmax)))/(tmax-tmin);
+end
+rate = mean(rates);
+end

projects/project_populationvector/solution/populationvector.m

@@ -0,0 +1,43 @@
+close all
+files = dir('../unit*.mat');
+for file = files'
+	a = load(strcat('../', file.name));
+	spikes = a.spikes;
+	angles = a.angles;
+	figure()
+	for k = 1:size(spikes, 1)
+		subplot(3, 4, k)
+		spikeraster(spikes(k,:), -0.2, 0.6);
+	end
+end
+
+
+%% tuning curves:
+close all
+cosine = @(p,xdata)0.5*p(1).*(1.0-cos(2.0*pi*(xdata/180.0-p(2))));
+files = dir('../unit*.mat');
+figure()
+for j = 1:length(files)
+	file = files(j);
+	a = load(strcat('../', file.name));
+	spikes = a.spikes;
+	angles = a.angles;
+	rates = zeros(size(spikes, 1), 1);
+	for k = 1:size(spikes, 1)
+		r = firingrate(spikes(k,:), 0.0, 0.2);
+		rates(k) = r;
+	end
+	[mr, maxi] = max(rates);
+	p0 = [mr, angles(maxi)/180.0-0.5];
+	%p = p0;
+	p = lsqcurvefit(cosine, p0, angles, rates');
+	phase = p(2)*180.0
+	subplot(2, 3, j);
+	plot(angles, rates, 'b');
+	hold on;
+	plot(angles, cosine(p, angles), 'r');
+	hold off;
+	xlim([0.0 180.0])
+	ylim([0.0 50.0])
+	title(sprintf('unit %d', j))
+end

projects/project_populationvector/solution/spikeraster.m

@@ -0,0 +1,30 @@
+function spikeraster(spikes, tmin, tmax)
+% Display a spike raster of the spike times given in spikes.
+%
+% spikeraster(spikes, tmax)
+%   spikes: a cell array of vectors of spike times in seconds
+%   tmin: plot spike raster starting at tmin seconds
+%   tmax: plot spike raster upto tmax seconds
+
+ntrials = length(spikes);
+for k = 1:ntrials
+    times = spikes{k};
+    times = times((times>=tmin) & (times<=tmax));
+    if tmax < 1.5
+        times = 1000.0*times; % conversion to ms
+    end
+    for i = 1:length( times )
+      line([times(i) times(i)],[k-0.4 k+0.4], 'Color', 'k'); 
+    end
+end
+if (tmax-tmin) < 1.5
+    xlabel('Time [ms]');
+    xlim([1000.0*tmin 1000.0*tmax]);
+else
+    xlabel('Time [s]');
+    xlim([tmin tmax]);
+end
+ylabel('Trials');
+ylim([0.3 ntrials+0.7 ]);
+end
+