b311480e |
1 | // Copyright (c) 1997-1999 Matra Datavision |
973c2be1 |
2 | // Copyright (c) 1999-2014 OPEN CASCADE SAS |
b311480e |
3 | // |
973c2be1 |
4 | // This file is part of Open CASCADE Technology software library. |
b311480e |
5 | // |
d5f74e42 |
6 | // This library is free software; you can redistribute it and/or modify it under |
7 | // the terms of the GNU Lesser General Public License version 2.1 as published |
973c2be1 |
8 | // by the Free Software Foundation, with special exception defined in the file |
9 | // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT |
10 | // distribution for complete text of the license and disclaimer of any warranty. |
b311480e |
11 | // |
973c2be1 |
12 | // Alternatively, this file may be used under the terms of Open CASCADE |
13 | // commercial license or contractual agreement. |
b311480e |
14 | |
7fd59977 |
15 | #include <math_IntegerRandom.ixx> |
16 | |
17 | #include <math_Recipes.hxx> |
b311480e |
18 | |
19 | math_IntegerRandom::math_IntegerRandom(const Standard_Integer Lower, |
7fd59977 |
20 | const Standard_Integer Upper) { |
21 | |
22 | Low = Lower; |
23 | Up = Upper; |
24 | Dummy=-1; |
25 | Random2(Dummy); |
26 | } |
27 | |
28 | void math_IntegerRandom::Reset() { |
29 | |
30 | Dummy=-1; |
31 | Random2(Dummy); |
32 | } |
33 | |
34 | Standard_Integer math_IntegerRandom::Next() { |
35 | |
36 | Standard_Real value=Random2(Dummy); |
37 | Standard_Integer Result=(Standard_Integer)(Standard_Real((Up-Low))*value + Low); |
38 | return (Result) ; |
39 | } |
40 | |