* Bug 15821 fixed: fac3d() and fac3d1() actually removed
[scilab.git] / scilab / modules / polynomials / macros / denom.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) ????-2008 - INRIA
3 // ...
4 //
5 // Copyright (C) 2012 - 2016 - Scilab Enterprises
6 //
7 // This file is hereby licensed under the terms of the GNU GPL v2.0,
8 // pursuant to article 5.3.4 of the CeCILL v.2.1.
9 // This file was originally licensed under the terms of the CeCILL v2.1,
10 // and continues to be available under such terms.
11 // For more information, see the COPYING file which you should have received
12 // along with this program.
13
14
15 function den = denom(r)
16     //returns the denominator of a rational matrix
17     //%Syntax: den=denom(r)
18     //with
19     //r: rational function matrix (may be polynomial or scalar matrix)
20     //den: polynomial matrix
21     //!
22     warnobsolete("the r.den rational attribute","6.1.0")
23     select typeof(r)
24     case "constant" then
25         den=ones(r);
26     case "polynomial" then
27         den=ones(r);
28     case "rational" then
29         den=r.den
30     else
31         error(msprintf(gettext("%s: Wrong type for input argument #%d: A floating point number or polynomial or rational fraction array expected.\n"),"denom",1))
32     end
33 endfunction