afstand AP

p = 21 (slider from 0 to 30, step 1)
P: (30 - p, 0)
g = OrthogonalLine(P, xAxis)
f(x) = 30 - x + 1.5 sqrt(x^(2) + 100)
C = Intersect(f, g, (9, 41.18043607061057))
h = Segment(C, P)
B = Point(xAxis)
H = (30, 10)
a = Segment(H, B)
A = (0, 0)
b = Segment(A, B)
c = Circle(A, p)
d = Segment(A, P)
e = Segment(P, H)
T1: "T(" + p + ")=" + h + "t"
i = Segment(P, B)