Geometric Mean
Author: Farrar
Date: April 17, 2009

You can change the lengths of segments a and b to observer their geometric mean m.

Show Geometric Mean

Show Arithmetic Mean

A = Intersect(xAxis, yAxis)
D = Point(xAxis)
B = Point(xAxis)
a = Segment(A, D)
b = Segment(D, B)
c = Segment(A, B)
C_1 = Midpoint(c)
d = Circle(C_1, B)
e = OrthogonalLine(D, c)
C = Intersect(d, e, 2)
poly1, c_1, a_1, b_1 = Polygon(A, B, C)
m = Segment(D, C)
f = true
g = false
h = OrthogonalLine(C_1, xAxis)
E = Intersect(d, h, 2)
avg = Segment(E, C_1)