[VA] SRC#005- April, 1st Mean Minichallenge

[Albert Chan]

(04-01-2019 08:09 PM)Valentin Albillo Wrote:  sample dataset  4, 1, 20.19  ... return the values of the means  M_5/2 , M_Pi , M_-2.019  and  M_0.61.

To simplify code, geometric mean is better off (and more accurate) use multiply, then take nth root.
Assuming all data positive, below HP-12C code use 0 as signal for getting mean.

01 X=0 ; signal for getting mean
02 GTO 07
03 RCL 0; power = k-2 ≠ 0
04 X^Y
05 Σ+
06 GTO 00
07 g 0 ; mean before inverse power
08 RCL 0
09 1/X
10 X^Y
11 GTO 00

Example, for quadratic mean, k=4

[Clear Register] 2 [STO 0]               ; stored power = k-2 = 2
4 [R/S] 1 [R/S] 20.19 [R/S] 0 [R/S] ; quadratic mean = 11.89728401

M_-2.019 = 1.313123100
M_0.61 = 1.979834390
M_5/2 = 6.238885591
M_Pi = 8.981253690