Dynamic Geometric Mean in Two Tangent Circles and a Common External Tangent (GoG
Loading the math board and drawing, please wait…
This interactive GeoGebra example dynamically demonstrates a geometric mean relationship among two mutually tangent circles, a common external tangent, and another special segment. The core mathematical concept is the geometric mean, where the length of a certain segment equals the square root of the product of two other segment lengths, intertwined with properties of circle tangents, similar triangles, and proportional relationships. The construction uses a rich set of GeoGebra commands including Circle, Point, Segment, Line, Intersect, Ray, Tangent, Semicircle, OrthogonalLine, Midpoint, Dilate, Angle, Rotate, CircleArc, Vector, and Translate, to build the two tangent circles, the external tangent, semicircles, perpendiculars, midpoints, rotations, and translations. Users can drag points or adjust sliders to explore how the geometric mean relation changes dynamically. This resource is ideal for high school or college geometry lessons focusing on geometric mean, tangent properties, and dynamic geometric constructions, and also serves as a valuable tool for mathematical experimentation and visualization.
GeoGebra Commands & Parameters
Circle(A, B) → cPoint(c) → CSegment(A, C) → fLine(A, C) → gCircle(C, 2) → dIntersect(d, g, 2) → ERay(C, E) → hPoint(h) → FCircle(F, C) → eTangent(c, e) → i, j, k, lIntersect(-2.3471111943866765x² - 0.7116767516501961x y + 0.9621700797027014y² + 23.938748022851275x - 0.2856770767977977y = 52.59818359165294, c) → , , ,Intersect(c, i) → DIntersect(e, i) → GSemicircle(A, F) → pLine(A, F) → mOrthogonalLine(C, m) → nIntersect(p, n, 1) → HSegment(C, H) → qSegment(D, G) → rMidpoint(D, G) → IDilate(A, If[2 < o ≤ 3, 3 - o, 0], D) → A'Dilate(F, If[2 < o ≤ 3, 3 - o, 0], G) → F'Segment(A, A') → sSegment(F, F') → tDilate(D, If[0 < o ≤ 1, 1 - o, 0], I) → D'Dilate(I, If[1 < o ≤ 2, 2 - o, 0], G) → I'Segment(D, D') → f_1Segment(I, I') → g_1Angle(I, D, A) → αAngle(F, G, I) → βDilate(A, If[3 < o ≤ 4, 4 - o, 0], C) → A'_1Dilate(C, If[4 < o ≤ 5, 5 - o, 0], F) → C'Segment(A, A'_1) → h_1Segment(C, C') → i_1Rotate(F, If[5 < o ≤ 6, ((o - 5) * π), π], Midpoint[A, F]) → F'_1Midpoint(A, F) → JCircleArc(J, F, F'_1) → c_1Dilate(H, If[7 < o ≤ 8, 8 - o, 0], C) → H'Segment(H, H') → j_1Angle(H, C, A) → γSegment(F, G) → k_1Angle(H, I, D) → δRotate(H, If[9 < o ≤ 10, ((o - 9) * δ), δ], C) → H'_1Rotate(H', If[9 < o ≤ 10, ((o - 9) * δ), δ], C) → H''Segment(H'_1, H'') → l_1Dilate(C, If[10 < o ≤ 11, 11 - o, 0], I) → C'_1Vector(C, C'_1) → uTranslate(H'_1, u) → KTranslate(H'', u) → H'''Segment(K, H''') → m_1Rotate(K, If[11 < o ≤ 12, ((-(o - 11)) * π), (-π)], I) → K'Rotate(H''', If[11 < o ≤ 12, ((-(o - 11)) * π), (-π)], I) → LSegment(K', L) → n_1
AI Drawing Prompt Reference
Draw two tangent circles with centers A and C, where the radius of the first circle is r and the radius of the second circle is 2r. Draw the external tangent line and the line segment AC. Construct a circle with center C and radius 2r, intersecting the external tangent at point E, and draw a ray EF from E. Construct a circle with center F and radius 2r, tangent to the first circle at points D and G. Draw a semicircle with center A and radius AF, and draw a perpendicular line from C to AF, intersecting the semicircle at point H. Draw segment CH and find its midpoint I. Dilate point A and F with D as the center and a given ratio to get A' and F', and draw segments AA' and FF'. Dilate point D with I as the center and a given ratio to get D', and draw segment DD'. Rotate point F to get F'1, and construct an arc c1 with D as the center and F'1 as the endpoint. Draw a circle with center C and radius 2r, intersecting the external tangent at point H', and draw segment CH', and find its midpoint K.
The prompt above was compiled from the original drawing commands and is for reference only.