Donostia

Santander

BOP

BIP

BOP

BIP

t = 0 (slider from 0 to 20, step 0.01)
A = (7.766666666666667, 6.633333333333333)
D = (13.9, -1.4)
S = (4, 0)
c: abs(Distance[A, S] - Distance[A, D]) / 2.0
d = Hyperbola(S, D, c)
B = Point(d)
a = Segment(S, A)
a' = Segment(A, D)
b = Segment(S, B)
b' = Segment(B, D)
e = Segment(S, D)
f: abs(Distance[B, S] - Distance[B, D]) / 2.0
g = Circle(S, t)
h = Circle(D, t)
T1: "Diferencia = " + (2.0 * c)
T2: "a = " + a
T3: "a' = " + a'
T4: "Diferencia = " + (2.0 * f)
T5: "b = " + b
T6: "b' = " + b'
T11: Min[t, Max[a, a']] - Min[a, a'] + ""
T12: Min[t, Max[b, b']] - Min[b, b'] + ""