Generate FLOAT Random Numbers from 0.0 to 1.0
Date/Time of Processing: Monday 30 May 1994 06:06:18Pm Overall Assessment of System: OK Classification of System: A Basis of Classification -- Syntax Errors PASS Completeness PASS Independence from External Libraries PASS Independence from a Specific Ada Compiler PASS Number of ... Files 1 Library Units 2 Lines 111 Statements 28 Comments 52
languages/ada/asr/components/ran2: File Name Size --------- ---- ran2.zip 2,928 Totals ============== ============== 1 Files 2,928
Based on random number generator program in the March 1987 issue of BYTE magazine. Calling program must first initialize package by calling Procedure GET_TIME_SEED. GET_TIME_SEED uses Package CALENDAR to obtain seed values for X, Y, Z between 0 and 30,000. Seconds, Day, and Month are used to ensure that successive calls to procedure will not obtain same seed values. Random numbers of type FLOAT are obtained by calling Function NUMBER. NOTE: GET_TIME_SEED must be called at least once to generate the seeds needed for NUMBER.
DATE VERSION AUTHOR HISTORY 10/11/88 Oct 1988 Ron Bell Initial Release
This prologue must be included in all copies of this software. This software is copyright by the author. This software is released to the Ada community. This software is released to the Public Domain (note: software released to the Public Domain is not subject to copyright protection). Restrictions on use or distribution: NONE
This software and its documentation are provided "AS IS" and without any expressed or implied warranties whatsoever. No warranties as to performance, merchantability, or fitness for a particular purpose exist. The user is advised to test the software thoroughly before relying on it. The user must assume the entire risk and liability of using this software. In no event shall any person or organization of people be held responsible for any direct, indirect, consequential or inconsequential damages or lost profits.