Distances to Vertices
Author: Scott Farrar
Date: 5 December 2013

D (Drag Me)

D

D

D

C

B

A

Average

Perpendicular Bisectors

Compare Distances to Vertices

Clear Traces

A = (5.3, 0.42)
B = (7.62059953728075, 6.564318264867279)
C = (16.488896607264053, 0.4169759777197869)
poly1, c, a, b = Polygon(A, B, C)
D = (10.24583570536733, 2.311913417685796)
d = Distance(A, D)
e = Distance(B, D)
f = Distance(C, D)
E = Point(xAxis)
g = Circle(E, d)
F = Point(xAxis)
h = Circle(F, e)
G = Point(xAxis)
k = Circle(G, f)
i = OrthogonalLine(E, xAxis)
j = OrthogonalLine(F, xAxis)
l = OrthogonalLine(G, xAxis)
H = Intersect(k, l, 2)
I = Intersect(h, j, 2)
J = Intersect(g, i, 2)
m = Segment(E, J)
n = Segment(F, I)
p = Segment(G, H)
K = Intersect(xAxis, yAxis)
avgDdist: (d + e + f) / 3
q = Circle(K, avgDdist)
L = Intersect(q, yAxis, 2)
r = OrthogonalLine(L, yAxis)
M = Point(r)
s = Segment(L, M)
t: (d - avgDdist)^(2) + (e - avgDdist)^(2) + (f - avgDdist)^(2)
a_1 = LineBisector(c)
b_1 = LineBisector(a)
N = Intersect(b_1, a_1)
c_1 = LineBisector(b)
DN = Distance(D, N)
v: DN / avgDdist
circumColorscale: 2^(v) - 1
z = false
d_1 = true
distanceDa = Distance(D, a)
TextDa: "\overline{" + (Name[D]) + (Name[a]) + "} \, = \, " + distanceDa
distanceDc = Distance(D, c)
TextDc: "\overline{" + (Name[D]) + (Name[c]) + "} \, = \, " + distanceDc
perimeterpoly1 = Perimeter(poly1)
distanceDb = Distance(D, b)
TextDb: "\overline{" + (Name[D]) + (Name[b]) + "} \, = \, " + distanceDb
e_1: Distance[B, D] + Distance[A, D] + Distance[C, D]
poly2, f_1, g_1, h_1, O = Polygon(A, B, 3)
poly3, i_1, j_1, k_1, P = Polygon(B, C, 3)
poly4, l_1, m_1, n_1, Q = Polygon(C, A, 3)
p_1 = Segment(O, C)
q_1 = Segment(P, A)
r_1 = Segment(Q, B)
R = Intersect(q_1, p_1)
s_1 = Circle(R, P)
fermatColorScale: Distance[D, R] / Distance[R, P]
S: ((-x(D)) / 2, e_1 / 3)