bug 11079 fixed: tlist(['r','num','den','dt'] replaced by rlist
[scilab.git] / scilab / modules / overloading / macros / %p_q_p.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 f=%p_q_p(p1,p2)
11 //f= p1.\p2
12 //!
13
14 if size(p1,'*')==1 then
15   p1=p1*ones(p2)
16 elseif size(p2,'*')==1 then
17   p2=p2*ones(p1)
18 end
19 [p1,p2]=simp(p1,p2)
20 f = rlist(p2,p1,[])
21 endfunction