%%% Credit
% & (ISR-2/LANL)%
%% See also% Ressembles:
% <../derive/gstsmooth.html |GSTSMOOTH|>,% .
% Requires:% .
%% Function implementation
function kappa = anisor(I,varargin)
%%% parsing parameters
error(nargchk(1, 18, nargin, 'struct'));
error(nargoutchk(1, 1, nargout, 'struct'));
% mandatory parameterif ~isnumeric(I)
error('anisor:inputerror','a matrix is required in input'); end
% optional parameters
p = createParser('ANISOR'); % principal optional parameters
p.addOptional('nu', 4, @(x)isscalar(x) && x>=0);p.addOptional('rho', 3, @(x)isscalar(x) && isfloat(x) && x>=0);
p.addOptional('sigma', 1, @(x)isscalar(x) && isfloat(x) && x>=0);p.addParamValue('der', 'fast', @(x)islogical(x) || (ischar(x) && ...
any(strcmpi(x,{'matlab','vista','fast','conv','diag', ... 'tap5','sob','opt','ana'}))));
p.addParamValue('int', 'fast', @(x)islogical(x) || (ischar(x) && ... any(strcmpi(x,{'matlab','conv','fast','ani'}))));
p.addParamValue('samp', 2, @(x)isscalar(x) && round(x)==x && x>=1 && x<=5);
% parse and validate all input argumentsp.parse(varargin{:});
p = getvarParser(p);
%% % calculation
kappa = anisor_base(I, p.nu, p.rho, p.sigma, p.der, p.int, p.samp);
%%
% display
if p.disp figure, imagesc(kappa), colormap gray, axis image off;
title('orientation indice')end
end % end of anisor
##### SOURCE END #####
-->