samer@4: function Y=paren(X,varargin)
samer@4: % paren - array dereferencing as a function
samer@4: %
samer@4: % See also SUBS: paren also accepts ':' and 'end'
samer@4: 
samer@4: n=length(varargin);
samer@4: for i=1:n
samer@4: 	if strcmp(varargin{i},'end')
samer@4: 		varargin{i}=size(X,i);
samer@4: 	end
samer@4: end
samer@4: Y=X(varargin{:});