Drand48 () - Cronologia

Vuott il 17:39, 13 giu 2024

2024-06-13T17:39:42Z

← Versione meno recente		Versione delle 11:39, 13 giu 2024
Riga 1:		Riga 1:
	La funzione della libreria di C		La funzione della libreria di C
	void drand48 (void)		void drand48 (void)
	restituisce un numero pseudo-casuale nell'intervallo 0.0 - 1.0. Il generatore casuale utilizzato è l'algoritmo congruente lineare e l'aritmetica con intero a 48 bit. Prima della prima chiamata alla funzione "''drand48( )''", è necessario chiamare la funzione "''srand48( )''" o la funzione "''seed48( )''" per inizializzare il "seme" casuale.		restituisce un numero pseudo-casuale nell'intervallo 0.0 - 1.0. Il generatore casuale utilizzato è l'algoritmo congruente lineare e l'aritmetica con intero a 48 bit. Prima della prima chiamata alla funzione "drand48()", è necessario chiamare la funzione "srand48()" o la funzione "seed48()" per inizializzare il "seme" casuale.


	Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:		Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
Riga 20:		Riga 19:


	~~'''~~Public~~'''~~ Sub Main()		Public Sub Main()

	Dim f As Float		Dim f As Float

	<FONT color=Gray>' ''Passiamo, come "seme", la parte frazionale di "CFloat(Now)", che rappresenta la quantità''		<FONT color=Gray>' ''Passiamo, come "seme", la parte frazionale di "CFloat(Now)", che rappresenta la quantità di microsecondi del tempo trascorso dall'epoca Gambas (una data prescelta posta a 8000 anni a.c.)''</font>
	~~' ''~~di microsecondi del tempo trascorso dall'epoca Gambas (una data prescelta posta a 8000 anni a.c.)''</font>		srand48(Val(Scan(Str(CFloat(Now)), ",")[1]))
	srand48(Val(Scan(Str(CFloat(Now)), ",")[1]))

	f = <FONT color=#B22222>drand48</font>()		f = <FONT color=#B22222>drand48</font>()

	Print f, "è un numero casuale compreso fra 0,0 e 1,0"		Print f, "è un numero casuale compreso fra 0,0 e 1,0"

	~~'''~~End~~'''~~		End

Vuott il 16:12, 4 nov 2017

2017-11-04T16:12:00Z

← Versione meno recente		Versione delle 10:12, 4 nov 2017
Riga 24:		Riga 24:
	Dim f As Float		Dim f As Float

	<FONT color=Gray>' ''Passiamo la parte frazionale di "CFloat(Now)", che rappresenta ~~i microsecondi~~''		<FONT color=Gray>' ''Passiamo, come "seme", la parte frazionale di "CFloat(Now)", che rappresenta la quantità''
	' ''~~trascorsi~~ dall'epoca Gambas (una data prescelta posta a 8000 anni a.c.)''</font>		' ''di microsecondi del tempo trascorso dall'epoca Gambas (una data prescelta posta a 8000 anni a.c.)''</font>
	srand48(Val(Scan(Str(CFloat(Now)), ",")[1]))		srand48(Val(Scan(Str(CFloat(Now)), ",")[1]))

Vuott il 16:09, 4 nov 2017

2017-11-04T16:09:00Z

← Versione meno recente		Versione delle 10:09, 4 nov 2017
Riga 23:		Riga 23:

	Dim f As Float		Dim f As Float

			<FONT color=Gray>' ''Passiamo la parte frazionale di "CFloat(Now)", che rappresenta i microsecondi''
			' ''trascorsi dall'epoca Gambas (una data prescelta posta a 8000 anni a.c.)''</font>
	srand48(Val(Scan(Str(CFloat(Now)), ",")[1]))		srand48(Val(Scan(Str(CFloat(Now)), ",")[1]))

Vuott: Creata pagina con "La funzione della libreria di C void drand48 (void) restituisce un numero pseudo-casuale nell'intervallo 0.0 - 1.0. Il generatore casuale utilizzato è l'algoritmo congruente..."

2017-11-04T16:05:31Z

Creata pagina con "La funzione della libreria di C void drand48 (void) restituisce un numero pseudo-casuale nell'intervallo 0.0 - 1.0. Il generatore casuale utilizzato è l'algoritmo congruente..."

Nuova pagina

La funzione della libreria di C
void drand48 (void)
restituisce un numero pseudo-casuale nell'intervallo 0.0 - 1.0. Il generatore casuale utilizzato è l'algoritmo congruente lineare e l'aritmetica con intero a 48 bit. Prima della prima chiamata alla funzione "''drand48( )''", è necessario chiamare la funzione "''srand48( )''" o la funzione "''seed48( )''" per inizializzare il "seme" casuale.

Volendola utilizzare in Gambas, bisognerà dichiararla con ''Extern'', nonché bisognerà dichiarare la libreria di C: ''libc.so.6'', nella quale la funzione è contenuta:
Private Extern drand48(void) As Float In "libc:6"

Semplice esempio di uso in Gambas:
Library "libc:6"

' ''void srand48 (long int __seedval)''
' ''Seed random number generator.''
Private Extern srand48(__seedval As Long)

' ''double drand48 (void)''
' ''Return non-negative, double-precision floating-point value in [0.0,1.0).''
Private Extern drand48() As Float

'''Public''' Sub Main()

Dim f As Float

srand48(Val(Scan(Str(CFloat(Now)), "*,*")[1]))

f = drand48()

Print f, "è un numero casuale compreso fra 0,0 e 1,0"

'''End'''

=Riferimenti=
* http://man7.org/linux/man-pages/man3/drand48.3.html
* https://www.gnu.org/software/libc/manual/html_node/SVID-Random.html
* https://www.thinkage.ca/english/gcos/expl/c/lib/drand4.html