multiplication rational by poly fixed
[scilab.git] / scilab / modules / overloading / macros / %r_m_p.sci
index d2083bf..7c339ff 100644 (file)
@@ -14,8 +14,7 @@ function [f1] = %r_m_p(r1,p2)
     // r = %r_m_p(r1, p2)  <=> r = r1*p2
     // r1 = rational p2 = polynomial
     if size(p2, "*") == 1 then
-        num=r1.num*p2;
-        den = r1.den;
+        [num, den] = simp(r1.num*p2, r1.den)
         f1=rlist(num,den,r1("dt"))
     else
         if isrow(r1) then