Automatic generation produced by ISE Eiffel
class RANDOM General cluster: elks description: "Pseudo-random number sequence, linear congruential method This class is adapted from work in %"Discrete-Event System Simulation%" by Jerry Banks & John S. Carson, II Prentice-Hall International Series in Industrial and Systems Engineering 1984 Example 7.12 p 266 which is from IMSL Scientific Subroutine Package [1978], written in Fortran for IBM 360/370 computers. " create: make, set_seed Ancestors COUNTABLE_SEQUENCE* [G] DOUBLE_MATH ITERATION_CURSOR* [G] Queries After: BOOLEAN changeable_comparison_criterion: BOOLEAN Default_seed: INTEGER_32 double_i_th (i: INTEGER_32): REAL_64 double_item: REAL_64 exhausted: BOOLEAN Extendible: BOOLEAN for_all (test: FUNCTION [INTEGER_32, BOOLEAN]): BOOLEAN Full: BOOLEAN has (n: INTEGER_32): BOOLEAN i_th (i: INTEGER_32): INTEGER_32 Increment: INTEGER_32 index: INTEGER_32 index_of (v: [like item] INTEGER_32; i: INTEGER_32): INTEGER_32 Is_empty: BOOLEAN is_inserted (v: INTEGER_32): BOOLEAN item: INTEGER_32 item_for_iteration: INTEGER_32 linear_representation: LINEAR [INTEGER_32] Modulus: INTEGER_32 Multiplier: INTEGER_32 new_cursor: RANDOM next_random (n: INTEGER_32): INTEGER_32 object_comparison: BOOLEAN occurrences (v: [like item] INTEGER_32): INTEGER_32 off: BOOLEAN Prunable: BOOLEAN Readable: BOOLEAN real_i_th (i: INTEGER_32): REAL_32 real_item: REAL_32 Replaceable: BOOLEAN seed: INTEGER_32 there_exists (test: FUNCTION [INTEGER_32, BOOLEAN]): BOOLEAN Writable: BOOLEAN Commands compare_objects compare_references do_all (action: PROCEDURE [INTEGER_32]) do_if (action: PROCEDURE [INTEGER_32]; test: FUNCTION [INTEGER_32, BOOLEAN]) extend (v: INTEGER_32) finish forth make search (v: [like item] INTEGER_32) set_seed (s: INTEGER_32) start Constraints non negative seed non negative increment positive multiplier modulus constraint -- Generated by Eiffel Studio --
For more details: eiffel.org