Casio fx-CG 50: Pseudorandom Number Generator (PRNG) Stat Plot
Introduction
This program is an inspiration from a HHC 2024 talk given by Kuba Tatarkiewicz. Tatarkiewicz’s talk is about testing RNG (random number generators). You can see it here: https://www.youtube.com/watch?v=vSDfqCK-ENk
Premise of RANDGRPH: Generate a recursive sequence
r_n = frac( (A * r_n-1 + B) ^ C)
The program builds two lists and develops a scatter plot. I have the program set up to plot 60 points, but we can up to 999 points. The list starts with the initial point (0, seed). The program asks you whether to have the calculator provide the seed or you provide a seed (between 0 and 1).
Casio fx-CG 50 Code: RANDGRPH (252 bytes)
“RAN # GRAPH”
“(A×R+B)^C” ◢
“A”? → A
“B”? → B
“C”? → C
Menu “SEED?”, “RANDOM”, 1, “YOUR OWN”, 2
Lbl 1
Ran# → R
Goto 0
Lbl 2
“0≤R<1, SEED”? → R
Lbl 0
{0} → List 1
{R} → List 2
For 1 → I To 75
Augment(List 1, {R}) → List 1
Frac((A×R+B)^C) → R
Augment(List 2,{R}) → List 2
Next
S-Gph1 DrawOn, Scatter, List 1, List 2, 1, Dot, ColorLinkOff, Black, AxesOn
DrawStat
Examples
Example 1: r_n = frac(991 * r_n-1)
Example 2: r_n = frac( (0.3 * r_n-1 + 1)^2 )
Example 3: r_n = frac( (r_n-1 + π)^5 )
Enjoy! Happy New Year, be safe, sane, strong, and take care. Forever grateful,
Eddie
All original content copyright, © 2011-2025. Edward Shore. Unauthorized use and/or unauthorized distribution for commercial purposes without express and written permission from the author is strictly prohibited. This blog entry may be distributed for noncommercial purposes, provided that full credit is given to the author.
