maxloc.m

来自「Replicates the functionality of maxloc i」· M 代码 · 共 54 行

54 行

From: <由 Microsoft Internet Explorer 5 保存>
Subject: 
Date: Thu, 27 Mar 2008 20:16:34 +0800
MIME-Version: 1.0
Content-Type: text/html;
	charset="gb2312"
Content-Transfer-Encoding: quoted-printable
Content-Location: http://www.mathworks.com/matlabcentral/files/19331/maxloc.m
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.3198

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; charset=3Dgb2312">
<META content=3D"MSHTML 6.00.2900.3268" name=3DGENERATOR></HEAD>
<BODY><PRE>function out=3Dmaxloc(x,dim)
%function out=3Dmaxloc(x,dim)
%
%  Replicates the functionality of maxloc in fortran.
%
%  INPUTS:       x -&gt; data variable   =20
%              dim -&gt; (optional) dimension upon which to operate
%                     (same in Fortran and Matlab)
%
% OUTPUTS:     out -&gt; set to second output of Matlab's max() if dim =
is specified
%                     otherwise, is the maximum location for the entire =
array
%                     returned as a cell array resulting from ind2sub
%                     this could then be used as a subscript list
%
% EXAMPLES:   a=3Dmagic(5); b=3Dmaxloc(a); a(b{:}),b
%                         b=3Dmaxloc(a,1)
%
% author: Ben Barrowes 3/2008, barrowes@alum.mit.edu

if nargin&lt;2, dim=3D0; end

xdim=3Dlength(size(x));
if dim=3D=3D0
 [dumvar,tempOut]=3Dmax(x(:));
 out=3Dcell(1,xdim);
 [out{:}]=3Dind2sub(size(x),tempOut);
 %out=3D[out{:}];
else
 if ~isnumeric(dim), error('dim must be anumber in maxloc'); end
 if dim~=3Dround(dim), error('dim must be an integer in maxloc'); end
 if dim&gt;xdim || dim&lt;1, error('dim must be =
0&lt;dim&lt;=3Dlength(size(x))'); end
 [dumvar,out]=3Dmax(x,[],dim);
end

</PRE></BODY></HTML>

maxloc.m - 源码说明

本页面展示了「Replicates the functionality of maxloc in fortran」中的 maxloc.m 源码文件，采用 M 编程语言编写，共 54 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与functionality相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?