P = (6, 4, 3)
Q = (4, -1, 7)
A = (6, -5, 3)
a = Line(Q, P)
b = PerpendicularPlane(A, a)
u = Vector(A, Q)
A': Q + u
Länge_{AA'} = Length(Vector[2 * u])
r = 6.708203932499369
c = Sphere(P, r)
B, C = Intersect(a, c)
v = Vector(P, B)
d = Length(v)
α = Angle(A, B, P)
f = IntersectionPaths(e, c)
g = OrthogonalLine(P, e)
D = Intersect(g, e)
E = Point(f)
w = Vector(D, E)
h = Length(w)