samer@4: function A=cellset(n,B,A)
samer@4: % cellset - set element of cell array to new value and return new cell array
samer@4: %
samer@4: % cellset :: [N], A, {[N]} -> {[N]}.
samer@4: % cellset :: N:natural, A -> {[N]}.
samer@4: %
samer@4: % The order of arguments is a bit weird here. Also, if the third argument
samer@4: % is not present, this function returns a cell array which is empty apart
samer@4: % from the last (Nth) element.
samer@4: 
samer@4: 	if nargin<3, A=cell(n,1); end;
samer@4: 	A{n}=B;
samer@4: