1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 2// Copyright (C) ENPC - JPC 3// Copyright (C) INRIA - Serge Steer , Francois Delebecque 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 14function [den,num,err]=arl2(y,den0,n,imp,all) 15 [lhs,rhs]=argn(0); 16 // test the system type 'c' 'd' or dt 17 if rhs <= 4 then all="one";end 18 if rhs <= 3 then imp=0;end 19 if all=="all" then 20 [den,num,err]=arl2_ius(y,den0,n,imp,all); 21 else 22 [den,num,err]=arl2_ius(y,den0,n,imp); 23 end; 24 if lhs<=1 then 25 den=syslin("d",num,den); 26 end 27endfunction 28