30 lines
702 B
Mathematica
30 lines
702 B
Mathematica
|
function Y = max(X,aux,workdim)
|
||
|
|
% abs (overloaded)
|
||
|
|
|
||
|
|
switch nargin
|
||
|
|
case 1
|
||
|
|
workdim = 1;
|
||
|
|
case 2
|
||
|
|
Y = max(reshape(X,[],1),reshape(aux,[],1));
|
||
|
|
Y = reshape(Y,size(X));
|
||
|
|
return
|
||
|
|
case 3
|
||
|
|
if ~isempty(aux)
|
||
|
|
error('MAX with two matrices to compare and a working dimension is not supported in MATLAB.');
|
||
|
|
end
|
||
|
|
otherwise
|
||
|
|
error('Too many input arguments')
|
||
|
|
end
|
||
|
|
|
||
|
|
xdim = size(X);
|
||
|
|
|
||
|
|
if workdim > length(xdim)
|
||
|
|
error('Index exceeds matrix dimensions.');
|
||
|
|
end
|
||
|
|
|
||
|
|
newdim = xdim;
|
||
|
|
newdim = circshift(xdim',-(workdim-1))';
|
||
|
|
newdim(1)=1;
|
||
|
|
Y = reshape(max(reshape(shiftdim(X,workdim-1),xdim(workdim),[])),newdim);
|
||
|
|
Y = shiftdim(Y,length(xdim)-workdim+1);
|