New Appoach for Random Number Generation???

[Namir]

Here is another example, this time using two Calculator-oriented PRNGs! This is somewhat ironic :-)

Code:

Option Explicit

Function Frac(ByVal x As Double) As Double
  Frac = x - Fix(x)
End Function

Function Rnd1(ByVal x As Double) As Double
  Rnd1 = Frac(997 * x)
End Function

Function Rnd2(ByVal x As Double) As Double
  Dim Pi As Double
  Pi = 4 * Atn(1)
  Rnd2 = Frac(Pi + x) ^ 3
End Function

Function Rand12(ByVal x As Double) As Double
  Dim Diff As Double
  Dim L As Integer
  
  Diff = Abs(Rnd1(x) - Rnd2(x))
  L = Fix(Log(Diff) / Log(10))
  x = Diff / 10 ^ L
  x = Frac(10000 * x)
  Rand12 = x
End Function

Sub go()
  Const max = 10000
  Dim x As Double
  Dim I As Integer
  
  Randomize Timer
  x = Rnd(1)
  For I = 1 To max
    DoEvents
    x = Rand12(x)
    Cells(I, 1) = x
  Next I
End Sub

Again, the ideas is to get the numerical noise out of low decimal places.

Namir

Heretic Math Hobbyist