Averages/Pythagorean means: Difference between revisions

Content added Content deleted
(→‎min: add)
Line 802: Line 802:
define average = 0, geometric = 0, harmonic = 0
define average = 0, geometric = 0, harmonic = 0


let i = 1
for i = 1 to 10

do


let sum = sum + i
let sum = sum + i
let bxsum = bxsum * i
let bxsum = bxsum * i
let sum1i = sum1i + ( 1 / i )
let sum1i = sum1i + ( 1 / i )
let i = i + 1


next i
loop i < 11


let average = sum / 10
let average = sum / 10
Retrieved from "https://rosettacode.org/wiki/Averages/Pythagorean_means"