modified: Math/arithmetic-harmonic_mean.sf

trizen · trizen · commit 33a323724989 · 2018-03-18T17:35:19.000+02:00
diff --git a/Math/arithmetic-harmonic_mean.sf b/Math/arithmetic-harmonic_mean.sf
@@ -6,6 +6,8 @@
 
 # Arithmetic-harmonic mean (AHM).
 
+# AHM is equivalent with the geometric mean: AHM(a, b) = sqrt(a * b)
+
 func AHM(a, h, p=100) {
 
     loop {
@@ -23,6 +25,6 @@ func AHM(a, h, p=100) {
     }
 }
 
-say AHM(1, 2)         #=> sqrt(2)
-say AHM(2, 5)         #=> sqrt(5) / sqrt(1/2)
-say AHM(3, 42)        #=> sqrt(3) / sqrt(1/42)
+say AHM(1, 2)         #=> sqrt(1 * 2)
+say AHM(2, 5)         #=> sqrt(2 * 5)
+say AHM(3, 42)        #=> sqrt(3 * 42)

Original file line number	Diff line number	Diff line change
`@@ -6,6 +6,8 @@`
`6`	`6`
`7`	`7`	`# Arithmetic-harmonic mean (AHM).`
`8`	`8`
	`9`	`+# AHM is equivalent with the geometric mean: AHM(a, b) = sqrt(a * b)`
	`10`	`+`
`9`	`11`	`func AHM(a, h, p=100) {`
`10`	`12`
`11`	`13`	`loop {`
`@@ -23,6 +25,6 @@ func AHM(a, h, p=100) {`
`23`	`25`	`}`
`24`	`26`	`}`
`25`	`27`
`26`		`-say AHM(1, 2) #=> sqrt(2)`
`27`		`-say AHM(2, 5) #=> sqrt(5) / sqrt(1/2)`
`28`		`-say AHM(3, 42) #=> sqrt(3) / sqrt(1/42)`
	`28`	`+say AHM(1, 2) #=> sqrt(1 * 2)`
	`29`	`+say AHM(2, 5) #=> sqrt(2 * 5)`
	`30`	`+say AHM(3, 42) #=> sqrt(3 * 42)`