blowup_cell.m

function A=blowup_cell(A)
% function A=cell_blowup(A)
% 
% function inserts a row and a column of empty cells between all rows and columns
% i.e. A={1,2;3,4} becomes A={1,[],2; [],[],[]; 3,[],4}

[z,s]=size(A);

% blow up rows
for i=1:z-1
    A_up = A(1:(2*i-1),:);
    A_down = A((2*i):end,:);
    A=[A_up; cell(1,s);A_down];
end

% blow up columns
for j=1:s-1
    A_left = A(:,1:(2*j-1));
    A_right = A(:,(2*j):end);
    A=[A_left, cell(2*z-1,1), A_right];
end