RND function
Purpose: RND returns, as a single precision float, a random value between 0.0 and 1.0.
Syntax: RetVal! = RND Parameters:
|
Example: RangeR.bas will emit a single precision float between the LowValue and HighValue entered on the command line.
' RangeR.bas
' Usage: RangeR LowValue HighValue RandomizerValue
DIM
RetVal!DIM
hi!, lo!, rz! lo!=
VAL
(
COMMAND$
(
1
)
)
hi!=
VAL
(
COMMAND$
(
2
)
)
rz!=
VAL
(
COMMAND$
(
3
)
)
IF
rz!=
0.0
THEN
RANDOMIZE
ELSE
RANDOMIZE
(
rz!)
END
IF
FOR
INTEGER
i=
1
TO
6
RetVal!=
RangeR(
lo!, hi!)
NEXT
iFUNCTION
RangeR!(
low!, high!)
IF
(
low! > high!)
THEN
DIM
t! t!=
low! low!=
high! high!=
t!END
IF
FUNCTION
=
(
high!-
low!+
1
)
*
RND
+
low!END
FUNCTION
BCX Console Sample Programs using RND function.