Reorganization
[scilab.git] / scilab / modules / overloading / macros / %p_d_p.sci
1 function f=%p_d_p(p1,p2)
2 //f= %p_d_p(p1,p2) <=> f=p1./p2 
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 [p1,p2]=simp(p1,p2);
11 f=tlist(['r','num','den','dt'],p1,p2,[])
12 endfunction