#251mns
#Computes arithmetic, harmonic mean, rms, and geometric mean 3 ways
#from original data in C1
Name k6 'count'
Name c1 'x'
Name c2 'inv-x'
Name c3 'xsq'
Name c4 'L10x'
Name c5 'Lex'
let k6 = Count(c1)
let c2 = 1/c1
let c3 = c1 * c1
let c4 = logten(c1)
let c5 = loge(c1)
print c1-c5
Name k1 'sx'
Name k2 'six'
Name k3 'sxsq'
Name k4 'sL10x'
Name k5 'sLex'
let k1 = sum(C1)
let k2 = sum(C2)
let k3 = sum(C3)
let k4 = sum(C4)
let k5 = sum(C5)
print k1-k5
let k1=k1/k6
let k2=k2/k6
let k3=k3/k6
let k4=k4/k6
let k5=k5/k6
print k1-k5
name k11 'mean'
let k11 = k1
name k12 'hmn'
let k12 = 1/k2
name k13 'rms'
let k13 = sqrt(k3)
name k14 'g10mn'
let k14 = antilog(k4)
name k15 'gemn'
let k15 = expo(k5)
name k8 'index'
name k7 'product'
let k8 = 0
let k7 = 1
execute '251gmn' k6
name k9 'invct'
let k9 = 1/k6
print k6 - k9
name k16 'gmean'
let k16 = k7**k9
print k11 - k16
end