Averages/Pythagorean means: Difference between revisions

Line 2,639:

=={{header|Phix}}==

<lang Phix>~~function arithmetic_mean~~(~~sequence s~~)

with javascript_semantics

return sum(s)/length(s)

function arithmetic_mean(sequence s)

end function

return sum(s)/length(s)

end function

function geometric_mean(sequence s)

atom p = 1

function geometric_mean(sequence s)

for i=1 to length(s) do

return power(product(s),1/length(s))

p *= s[i]

end function

end for

return power(p,1/length(s))

function harmonic_mean(sequence s)

end function

return length(s)/sum(sq_div(1,s))

end function

function harmonic_mean(sequence s)

atom rsum = 0

constant s = {1,2,3,4,5,6,7,8,9,10}

for i=1 to length(s) do

constant arithmetic = arithmetic_mean(s),

rsum += 1/s[i]

geometric = geometric_mean(s),

end for

harmonic = harmonic_mean(s)

return length(s)/rsum

printf(1,"Arithmetic: %.10g\n", arithmetic)

end function

printf(1,"Geometric: %.10g\n", geometric)

printf(1,"Harmonic: %.10g\n", harmonic)

constant s = {1,2,3,4,5,6,7,8,9,10}

printf(1,"Arithmetic>=Geometric>=Harmonic: %t\n", {arithmetic>=geometric and geometric>=harmonic})

constant arithmetic = arithmetic_mean(s),

geometric = geometric_mean(s),

harmonic = harmonic_mean(s)

printf(1,"Arithmetic: %.10g\n", arithmetic)

printf(1,"Geometric: %.10g\n", geometric)

printf(1,"Harmonic: %.10g\n", harmonic)

printf(1,"Arithmetic>=Geometric>=Harmonic: %s\n", {iff((arithmetic>=geometric and geometric>=harmonic),"true","false")})</lang>

<pre>