mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-06-02 09:46:43 +08:00
42 lines
696 B
Plaintext
Executable File
42 lines
696 B
Plaintext
Executable File
-- File: RealRandom.cdl
|
|
-- Created: Tue May 14 18:31:34 1991
|
|
-- Author: Laurent PAINNOT
|
|
-- <lpa@topsn3>
|
|
---Copyright: Matra Datavision 1991, 1992
|
|
|
|
|
|
|
|
class RealRandom from math
|
|
---Purpose:
|
|
-- This class implements a real random generator.
|
|
|
|
|
|
is
|
|
|
|
Create(Lower, Upper: Real)
|
|
---Purpose:
|
|
-- creates a real random generator between the values Lower and Upper.
|
|
|
|
returns RealRandom;
|
|
|
|
|
|
Reset(me: in out)
|
|
---Purpose: reinitializes the random generator
|
|
|
|
is static;
|
|
|
|
Next(me: in out)
|
|
---Purpose: returns the next random number.
|
|
|
|
returns Real
|
|
is static;
|
|
|
|
|
|
fields
|
|
|
|
Dummy: Integer;
|
|
Low: Real;
|
|
Up: Real;
|
|
|
|
end RealRandom;
|