(12C) Geometric & Harmonic Mean

[Gamo]

Program update from Post #1 to include the Arithmetic mean

Usage:

Data: 40, 10

[f] REG
[f] Σ

40 [R/S] display 1
10 [R/S] display 2

0 [R/S] display answer for AM is 25

[R↓] display answer for GM is 20

[R↓] display answer for HM is 16

Remark: AM > GM > HM
-----------------------------------------
Program:

Quote:01 X=0
02 GTO 10
03 STO+0
04 1/x
05 ENTER
06 LSTx
07 LN
08 Σ+
09 GTO 00
10 X-bar
11 X<>Y
12 1/x
13 X<>Y
14 e^x
15 RCL 0
16 RCL 1
17 ÷

Gamo