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