Averages/Pythagorean means: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
|||
Line 795: | Line 795: | ||
(format t "g-mean ~a~%" g-mean) |
(format t "g-mean ~a~%" g-mean) |
||
(format t "h-mean ~a~%" h-mean)))</syntaxhighlight> |
(format t "h-mean ~a~%" h-mean)))</syntaxhighlight> |
||
=={{header|Craft Basic}}== |
|||
<syntaxhighlight lang="basic">precision 6 |
|||
define bxsum = 1, sum = 0, sum1i = 0 |
|||
define average = 0, geometric = 0, harmonic = 0 |
|||
let i = 1 |
|||
do |
|||
let sum = sum + i |
|||
let bxsum = bxsum * i |
|||
let sum1i = sum1i + ( 1 / i ) |
|||
let i = i + 1 |
|||
loop i < 11 |
|||
let average = sum / 10 |
|||
let geometric = bxsum ^ ( 1 / 10 ) |
|||
let harmonic = 10 / sum1i |
|||
print "arithmetic mean: ", average |
|||
print "geometric mean: ", geometric |
|||
print "harmonic mean: ", harmonic |
|||
if average >= geometric and geometric >= harmonic then |
|||
print "true" |
|||
end |
|||
endif |
|||
print "false' |
|||
end</syntaxhighlight> |
|||
=={{header|D}}== |
=={{header|D}}== |