Reorganization
[scilab.git] / scilab / modules / overloading / macros / %p_q_s.sci
1 function f=%p_q_s(p1,p2)
2 // f=%p_q_s(p,m) <=> f=p.\m
3 //!
4 // Copyright INRIA
5 if size(p1,'*')==1 then
6   p1=p1*ones(p2)
7 elseif size(p2,'*')==1 then
8   p2=p2*ones(p1)
9 end
10 f=tlist(['r','num','den','dt'],p2,p1,[])
11 endfunction