Averages/Pythagorean means: Difference between revisions
Content added Content deleted
(→{{header|VBA}}: excel has a built-in harmonic mean ...) |
|||
Line 3,267: | Line 3,267: | ||
End Function |
End Function |
||
Private Function harmonic_mean(s() As Variant) As Double |
Private Function harmonic_mean(s() As Variant) As Double |
||
harmonic_mean = WorksheetFunction.HarMean(s) |
|||
s(i) = 1 / s(i) |
|||
Next i |
|||
harmonic_mean = UBound(s) / WorksheetFunction.sum(s) |
|||
End Function |
End Function |
||
Public Sub pythagorean_means() |
Public Sub pythagorean_means() |
||
Line 3,282: | Line 3,279: | ||
G = 4,52872868811677 |
G = 4,52872868811677 |
||
H = 3,41417152147406 </pre> |
H = 3,41417152147406 </pre> |
||
=={{header|VBScript}}== |
=={{header|VBScript}}== |
||
<lang vb> |
<lang vb> |