(12C Platinum) Flip Virtual Coin

[Gamo]

This program allows you to flip a virtual coin by giving how many time you like to flip a coil then tell you how many time it was Head.

----------------------------------------

Procedure: FIX 0 with [ALG] Mode

1.Input Seed at Register 2

2. Input how many flips then [R/S]

3. Answer: number of Head

4. Continue STEP 2.

-----------------------------------------
Example:

Seed: .104056 [STO] 2
Number of flips: 10 [R/S]
Result: 6 // With 10 flips it is 6 time with head result.
-----------------------------------------
Program: ALG mode

Code:


STO 0
CLx
STO 1
RCL 0
X=0
GTO 023
1
STO-0
997 x RCL 2 =
FRAC
STO 2
x 2 =
INTG
STO+1
GTO 004
RCL 1

Remark:
The computation speed depending on how large the number of flip.
12C Platinum App will run much faster.

Gamo

[Dieter]

(12-17-2018 07:09 AM)Gamo Wrote:  This program allows you to flip a virtual coin by giving how many time you like to flip a coil then tell you how many time it was Head.

The random number generator produces either a 0 or a 1. So you do not have to check whether this is zero or not...

Code:

...
X=0
GTO 004
1
STO+1
GTO 004

...instead you can simply add this 0 or 1 to register 1. ;-)
Just replace the above code section with a simple STO+1.
And change GTO 026 into GTO 023 of course.

(12-17-2018 07:09 AM)Gamo Wrote:  The computation speed depending on how large the number of flip.
12C Platinum App will run much faster.

For a large number of n coin flips the head (and tail) count approaches n/2.
So you may use the following program for very large n instead:

Code:

÷
2
=
GTO 00

;-)

Dieter

[Gamo]

Dieter
Thanks for the review now changed using your recommendation.

Gamo