bug 2374 fixed + other missing related overloading functions added
[scilab.git] / scilab / modules / overloading / macros / %r_m_hm.sci
1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2 // Copyright (C) INRIA
3 // 
4 // This file must be used under the terms of the CeCILL.
5 // This source file is licensed as described in the file COPYING, which
6 // you should have received as part of this distribution.  The terms
7 // are also available at    
8 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
9
10 function f1=%r_m_hm(f1,n2)
11 // %r_m_s(f1,n2)  
12 //f1 =  f1*n2
13 //author Serge Steer INRIA
14 //!
15
16   [n1,d1]=f1(['num','den']),
17   sz1=size(n1);
18   if prod(sz1)==0 then return,end
19   sz2=size(n2);
20   n2=n2(:)
21
22   if or(sz1==-1) then 
23     n1=n1+0;d1=d1+0;
24   end
25   if prod(sz1)==1 then
26     num=n1*n2,
27     den=d1(ones(n2))
28   else,
29     error(10)
30   end,
31
32   f1=rlist(matrix(num,sz2),matrix(den,sz2),f1.dt)
33 endfunction
34