Visualizza wikitesto di Drand48 ()

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 <FONT color=#B22222>Extern drand48</font>(void) As Float In "<FONT color=#B22222>libc:6</font>"


Semplice esempio di uso in Gambas:
 Library "libc:6"
 
 <FONT color=Gray>' ''void srand48 (long int __seedval)''
 ' ''Seed random number generator.''</font>
 Private Extern srand48(__seedval As Long)
 
 <FONT color=Gray>' ''double drand48 (void)''
 ' ''Return non-negative, double-precision floating-point value in [0.0,1.0).''</font>
 Private Extern <FONT color=#B22222>drand48</font>() As Float
  
 
 '''Public''' Sub Main()
  
  Dim f As Float
  
 <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>
   srand48(Val(Scan(Str(CFloat(Now)), "*,*")[1]))
   
   f = <FONT color=#B22222>drand48</font>()
   
   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