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