Averages/Pythagorean means: Difference between revisions
→{{header|ALGOL 68}}
m (→[[Averages/Pythagorean means#ALGOL 68]]: remove extra "new lines") |
|||
Line 83:
Geometric mean = 362880.0000
Harmonic mean = 3.4142
</pre>
=={{header|AutoHotkey}}==
<lang autohotkey>A := ArithmeticMean(1, 10)
G := GeometricMean(1, 10)
H := HarmonicMean(1, 10)
If G Between %H% And %A%
Result := "True"
Else
Result := "False"
MsgBox, %A%`n%G%`n%H%`n%Result%
ArithmeticMean(a, b) {
n := b - a + 1
Loop, %n%
Sum += (a + A_Index - 1)
Return, Sum / n
}
GeometricMean(a, b) {
n := b - a + 1
Prod := 1
Loop, %n%
Prod *= (a + A_Index - 1)
Return, Prod ** (1 / n)
}
HarmonicMean(a, b) {
n := b - a + 1
Loop, %n%
Sum += 1 / (a + A_Index - 1)
Return, n / Sum
}</lang>
Message box shows:
<pre>
5.500000
4.528729
3.414172
True
</pre>
|