multiplication rational by poly fixed 63/18963/3
Cedric Delamarre [Thu, 26 Jan 2017 10:21:05 +0000 (11:21 +0100)]
  test_run overloading rational
  test_run cacsd routh_t

Change-Id: I090ec893af6f45004d1ef8b66c78399eee4b1cce

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