Update 'Fig1_example.m'

Fig1_example.m

@@ -1,65 +1,53 @@
-
-
-% load stimulus images
-% Natural images 1-300
-% Black image 301
-% Gray  image 302
-% While image 303
-load('ImageData.mat');
-imSize = 256; % 256x256 pixels
-
-% load Raster spikes and Receptive fields
-load('DATA.mat');
-
-% example cell and image in Fig.1
-CellID = 44;
-ImageID = 228;
-
-figure;
-set(gcf,'Position', [120 100 120+1000 100+850 ]);
-
-subplot(2,2,1)
-% Generate stimulus image
-buf = ImageData(:,ImageID);
-buf = reshape(buf,imSize,imSize);
-imagesc(buf);
-hold on;
-set(gca,'YDir','normal');
-colormap gray;
-caxis([-0.5 0.5])
-
-% Generate RF outline with 3 standard deviation
-RF = RF_parameter(CellID);
-i = zeros(2,1e3);
-for j=1:size(i,2)
-    alpha = 2*pi*(j-1)/(size(i,2)-1);
-    i(:,j) = 3*sqrtm(RF.sigma)*[cos(alpha);sin(alpha)]+RF.mu;
-end
-plot(i(1,:),i(2,:),'b','LineWidth',2);
-
-subplot(2,2,3)
-% Generate RF filter
-[X,Y] = meshgrid(1:imSize,1:imSize);
-RF_filter = normalPDF(X,Y, RF.mu, RF.sigma );
-RF_filter = RF_filter/max(RF_filter(:));
-imagesc(RF_filter)
-hold on
-set(gca,'YDir','normal');
-colormap gray;
-caxis([-0.5 0.5])
-plot(i(1,:),i(2,:),'b','LineWidth',2);
-
-% Get Raster
-data = squeeze(Raster_data(CellID,:,:,:));
-Raster = squeeze(data(ImageID,:,:));
-
-% Get all the trials for this cell
-NTrial = nnz(sum(Raster,1));
-Raster = Raster(:,1:NTrial)';
-
-subplot(2,2,[2 4])
-imagesc(Raster)
-set(gca,'YDir','normal');
-xlabel('Time')
-ylabel('Trial')
-
+
+
+% load stimulus images
+% Natural images 1-300
+% Black image 301
+% Gray  image 302
+% While image 303
+load('ImageData.mat');
+imSize = 256; % 256x256 pixels
+
+% load Raster spikes and Receptive fields
+load('DATA.mat');
+
+% example cell and image in Fig.1
+CellID = 44;
+ImageID = 228;
+
+figure;
+set(gcf,'Position', [120 100 120+1000 100+850 ]);
+
+subplot(2,2,1)
+% Generate stimulus image
+buf = ImageData(:,ImageID);
+buf = reshape(buf,imSize,imSize);
+imagesc(buf);
+hold on;
+set(gca,'YDir','normal');
+colormap gray;
+caxis([-0.5 0.5])
+
+% Generate RF outline with 3 standard deviation
+RF = RF_parameter(CellID);
+i = zeros(2,1e3);
+for j=1:size(i,2)
+    alpha = 2*pi*(j-1)/(size(i,2)-1);
+    i(:,j) = 3*sqrtm(RF.sigma)*[cos(alpha);sin(alpha)]+RF.mu;
+end
+plot(i(1,:),i(2,:),'b','LineWidth',2);
+
+% Get Raster
+data = squeeze(Raster_data(CellID,:,:,:));
+Raster = squeeze(data(ImageID,:,:));
+
+% Get all the trials for this cell
+NTrial = nnz(sum(Raster,1));
+Raster = Raster(:,1:NTrial)';
+
+subplot(2,2,[2 4])
+imagesc(Raster)
+set(gca,'YDir','normal');
+xlabel('Time')
+ylabel('Trial')
+