Números Aleatorios
El objetivo es proveer una forma de obtener números pseudo - aleatorios de forma unificada en los distintos generadores. Para lograrlo se crearon dos funciones: Random y RSeed ........................
Descripción
Se crearon las siguientes funciones
<numero> =
Random()Retorna un valor de tipo numérico con decimales N(11.9) en el rango [ 0, 1 ].La semilla puede ser indicada conla función RSeed.Si no se inicializaexplícitamente antes de llamar a la función Random,se inicializa automáticamente con un valor distinto en cada corrida de laaplicación.
<numero> =
RSeed(<semilla> )Setea la semilla utilizada por la función Randompara generar losnúmeros aleatorios. Elparámetro <semilla> es de tipo N(10.0) Puedeser seteada N veces y afecta a las Randomejecutadasposteriormente. El valor devuelto por la función es de tipo numérico, no estádeterminado y no tiene ninguna utilidad.
Ejemplos
Do While <Condición>
...
&SesNro = Random( )
...
Enddo
Genera N números pseudo-aleatorios. Cada corrida de la aplicación generauna secuencia de números diferente puesto que la semilla siempre cambia.
RSeed( 5 )
Do While <Condición>
…
&SesNro = Random( )
…
Enddo
Genera N números pseudo-aleatorios. Cada corrida de la aplicación genera lamisma secuencia de números puesto que la semilla siempre es la misma.