0022904: Clean up sccsid variables
[occt.git] / src / math / math_IntegerRandom.cxx
CommitLineData
7fd59977 1#include <math_IntegerRandom.ixx>
2
3#include <math_Recipes.hxx>
4
5 math_IntegerRandom::math_IntegerRandom(const Standard_Integer Lower,
6 const Standard_Integer Upper) {
7
8 Low = Lower;
9 Up = Upper;
10 Dummy=-1;
11 Random2(Dummy);
12 }
13
14void math_IntegerRandom::Reset() {
15
16 Dummy=-1;
17 Random2(Dummy);
18}
19
20Standard_Integer math_IntegerRandom::Next() {
21
22 Standard_Real value=Random2(Dummy);
23 Standard_Integer Result=(Standard_Integer)(Standard_Real((Up-Low))*value + Low);
24 return (Result) ;
25}
26