EverettRandom

Everett Random Integer Class

Summary

The Everett interpretation of quantum mechanics ("Many Worlds") is that when an interaction is made with an elementary wave function (such as an electron or photon etc) the universe bifurcates. ref: Wikipedia Many Worlds page

This happens naturally of course (just via radioactive decays in atoms of your body there are about 5000 bifucations per second) but this component brings into the mix "Free Will". By requesting a random number from the online source, which is a beam-splitter based in Austrailia you are bifurcating the Universe deliberately - that is, based on your Free Will. You may or may not find that interesting, but nevertheless this component gives you this ability (to "play God" with the Universe)

The random numbers returned are truly random (i.e. not pseudorandom via algorithm)

This package is a wrapper for querying a quantum number generator based in Austrailia.
\

Download

• the everettrandom package can be downloaded as a zip from Lazarus ccr site

Installation and Usage

• Open everettrandom.lpk and compile it.
• In your application, include everettrandom as a required package
• In a form unit:
  • In the Uses clause, add ueverettrandom

Code

• Declare as a variable:

MyEverett: TEverett;

• In form Create:

MyEverett := TEverett.Create(Self);

• If you don't want to show a dialog whilst querying the server:

MyEverett.ShowWaitDialog:=FALSE;

• There are 3 functions that will retrieve a single integer:

// Fetch a single random number
function MyEverett.GetSingle8Bit: integer;
function MyEverett.GetSingle16Bit: integer;
function MyEverett.GetSingleHex: String;

• Array functions will put results into:
  • (GetInteger8BitArray, GetInteger16BitArray) populates
    pascalCopy

    MyEverett.IntegerArray[0..Pred(ArraySize)]

  • (GetHexArray) populates
    pascalCopy

    MyEverett.HexArray[0..Pred(ArraySize)]

• First set the properties:
  • MyEverett.ArraySize (default=1)
  • ..and for Hex results
  • MyEverett.HexSize (default=1) e.g. 1=00->FF, 2=0000->FFFF, 3=000000->FFFFFF etc.
• Result for array functions is TRUE(Success) or FALSE(failure)

function MyEverett.GetInteger8BitArray:Boolean;
function MyEverett.GetInteger16BitArray:Boolean;
function MyEverett.GetHexArray:Boolean;

Internationalisation

• i8n: everettrandom has a 'locale' folder with all the .po files needed for translation. The base language is English

Demo App

• In the /demo folder is a small application to demonstrate the use of everettrandom
• Compile and run the app to see if it runs OK on your system.
  • The server can be busy, so be patient and wait for the result
• Study the source code to see how to use the methods and properties of the everettrandom class

Minesadorada Last Edited: //

From the Free Pascal wiki, page "EverettRandom", as it stood on 2020-11-29 after a change by Jwdietrich, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.