Donostia

Santander

CaboDePeñas

D = (13.9, -1.4)
S = (4, 0)
P = (-9.6, 1.2)
A = (7.8, 5.033333333333333)
b = Segment(S, D)
a = Segment(P, S)
c = Segment(P, D)
d = LineBisector(a)
e = LineBisector(b)
f = LineBisector(c)
a1: abs(Distance[A, S] - Distance[A, D]) / 2.0
a2: abs(Distance[A, P] - Distance[A, D]) / 2.0
a3: abs(Distance[A, P] - Distance[A, S]) / 2.0
g = Hyperbola(S, D, a1)
h = Hyperbola(P, D, a2)
i = Hyperbola(S, P, a3)
T1: "Diferencia = " + (2.0 * a1)
T2: "Diferencia = " + (2.0 * a2)
T3: "Diferencia = " + (2.0 * a3)