(12C Platinum) Flip Virtual Coin
12-17-2018, 07:09 AM (This post was last modified: 12-17-2018 12:16 PM by Gene.)
Post: #1
 Gamo Senior Member Posts: 623 Joined: Dec 2016
(12C Platinum) Flip Virtual Coin
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, 09:01 AM (This post was last modified: 12-17-2018 09:04 AM by Dieter.)
Post: #2
 Dieter Senior Member Posts: 2,397 Joined: Dec 2013
RE: (12C Platinum) Flip Virtual Coil
(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
12-17-2018, 10:39 AM
Post: #3
 Gamo Senior Member Posts: 623 Joined: Dec 2016
RE: (12C Platinum) Flip Virtual Coil
Dieter
Thanks for the review now changed using your recommendation.

Gamo
 « Next Oldest | Next Newest »

User(s) browsing this thread: 1 Guest(s)