# HP Forums

Full Version: (12C Platinum) Flip Virtual Coin
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
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]

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
(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
Dieter
Thanks for the review now changed using your recommendation.

Gamo
Reference URL's
• HP Forums: https://www.hpmuseum.org/forum/index.php
• :