1// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab 2// Copyright (C) INRIA 3// 4// Copyright (C) 2012 - 2016 - Scilab Enterprises 5// 6// This file is hereby licensed under the terms of the GNU GPL v2.0, 7// pursuant to article 5.3.4 of the CeCILL v.2.1. 8// This file was originally licensed under the terms of the CeCILL v2.1, 9// and continues to be available under such terms. 10// For more information, see the COPYING file which you should have received 11// along with this program. 12 13function f=%s_l_p(m,p) 14 // m\p with p matrix of polynomials m matrix of scalar 15 //! 16 17 [l,c]=size(m) 18 [mp,np]=size(p); 19 if l==c then 20 f=inv(m)*p 21 else 22 s=poly(0,varn(p)) 23 f=m\coeff(p,0) 24 for k=1:max(degree(p)) 25 f=f+(m\coeff(p,k))*(s^k) 26 end 27 end 28endfunction 29