blob: efd9f1edaf6946487e660436d332c2381f4e3f72 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function y=%lss_norm(A,flag)
if argn(2)==1 then flag=2,end
if flag==2 then
y=h2norm(A)
elseif flag==%inf|flag=="inf" then
y=h_norm(A)
else
error(msprintf(_("%s: Wrong value for input argument #%d: %d or %s expected.\n"),"%lss_norm",2,2,"inf"));
end
endfunction
|
