spm_cell_swap.m
View Options

			function [y] = spm_cell_swap(x)
			% Swap columns for cells in matrix arrays
			% FORMAT [y] = spm_cell_swap(x)
			% y{:,i}(:,j) = x{:,j}(:,i);
			%__________________________________________________________________________
			% Copyright (C) 2008 Wellcome Trust Centre for Neuroimaging

			% Karl Friston
			% $Id: spm_cell_swap.m 5219 2013-01-29 17:07:07Z spm $

			% return if empty
			%--------------------------------------------------------------------------
			if isempty(x)
			y = {};
			return
			end

			% swap columns for cells
			%--------------------------------------------------------------------------
			[m,n] = size(x{1});
			[k,l] = size(x);
			y = cell(k,n);
			[y{:}] = deal(zeros(m,l));
			for r = 1:k
			for j = 1:l
			for i = 1:n
			y{r,i}(:,j) = x{r,j}(:,i);
			end
			end
			end

Slepi/Code/Utilities/spm12/spm_cell_swap.m8a186cd82567master