6a7b4bc2aa369e86f77b3e7063d73f7216a606ee
[scilab.git] / scilab / modules / polynomials / tests / unit_tests / lcm.dia.ref
1 // =============================================================================
2 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 // Copyright (C) 2013 - Scilab Enterprises - Bruno JOFRET
4 //
5 //  This file is distributed under the same license as the Scilab package.
6 // =============================================================================
7 // <-- CLI SHELL MODE -->
8 s=poly(0,'s');
9 p=[s,s*(s+1)^2,s^2*(s+2)];
10 [pp,fact]=lcm(p);
11 assert_checkequal(pp, s^5+4*s^4+5*s^3+2*s^2);
12 assert_checkequal(fact, [2*s+5*s^2+4*s^3+s^4, 2*s+s^2, 1+2*s+s^2]);
13 V=int32([2^2*3^5, 2^3*3^2,2^2*3^4*5]);
14 assert_checkequal(lcm(V), int32(9720));
15 // Interger Overflow
16 V = int32([59356 44517]);
17 assert_checkequal(lcm(V), int32(178068));
18 V = int32([50000 50000]);
19 assert_checkequal(lcm(V), int32(50000));