1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 2// Copyright (C) 2016 - INRIA - Serge Steer 3// 4// This file is licensed under the terms of the GNU GPL v2.0, 5// pursuant to article 5.3.4 of the CeCILL v.2.1. 6// For more information, see the COPYING file which you should have received 7// along with this program. 8function r=%s_a_zpk(b,a) 9 if b==[] then 10 r=[] 11 elseif b==0 then 12 r=a; 13 else 14 r=a+zpk([],[],b,a.dt); 15 end 16endfunction 17