(12C) Geometric Mean with Percentage

[Gamo]

Program update with added feature to include the arithmetic mean.

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

Procedure:

For a new computation, clear statistic registers by pressing [f] ∑

Enter a percentage and press [R/S]

Data Count is temporary displayed and then displaying geometric mean of percentage.
Press [X<>Y] for Arithmetic Mean

Repeat percentage entry using the [R/S] key for each elements of the list.

-----------------------------------------------------------------------------
This example is from HP-12C User's Handbook on Page 30

With this example I will calculate the Percent of Total with each answer
of that Percentage of Total this program also calculate the Geometric Mean with percentage.

Last month, your company posted sales of$3.92 million in the U.S., $2.36 million in Europe, and
$1.67 million in the rest of the world. What percentage of the total sales of all three region and
What is the Geometric Mean of that percentage?

[f] Σ

3.92 [ENTER]
2.36 [+] display 6.28
1.67 [+] display total 7.95 [STO] 0 // Store Total Amount for later use to find %T

While 7.95 on display
3.92 [%T] display answer 49.31 [R/S] display 1 pause and display 49.31

[RCL] 0 2.36 [%T] display answer 29.69 [R/S] display 2 pause and display 39.15
[RCL] 0 1.67 [%T] display answer 21.01 [R/S] display 3 pause and display 32.82

Data, %T, GM%
3.92, 49.31%, 49.31%
2.36, 29.69%, 39.15%
1.67, 21.01%, 32.82% // Final Answer for the GM% is 32.82%

----------------------------------------------------------------
Program:

Quote:00-
01- ENTER
02- 1
03- %
04- LSTx
05- +
06- LN
07- Σ+
08- PSE
09- x bar
10- e^x
11- 1
12- -
13- EEX
14- 2
15- ×
16- GTO 00

Thanks C.Ret for this update edition

Gamo