Post Reply 
(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
(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]

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
Find all posts by this user
Quote this message in a reply
12-17-2018, 09:01 AM (This post was last modified: 12-17-2018 09:04 AM by Dieter.)
Post: #2
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
Find all posts by this user
Quote this message in a reply
12-17-2018, 10:39 AM
Post: #3
RE: (12C Platinum) Flip Virtual Coil
Dieter
Thanks for the review now changed using your recommendation.

Gamo Smile
Find all posts by this user
Quote this message in a reply
Post Reply 




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