v = (1, -1, 1)
g = Line((-7, 4, -1), v)
P = (2, 1, 11)
E_2 = Plane(P, E_1)
b = OrthogonalLine(P, E_2)
A = Intersect(b, E_1)
l = Length(Vector[A, P])
B = Intersect(g, E_1)
C = Intersect(g, E_2)
D = Midpoint(B, C)
a = Sphere(D, 5)
c = IntersectionPaths(E_1, a)
d = OrthogonalLine(D, E_1)
E = Intersect(d, E_1)
F = Point(c)
u = Vector(E, F)
r = Length(u)
e = IntersectionPaths(E_2, a)
G = Intersect(d, E_2)
H = Point(e)
w = Vector(G, H)
r_1 = Length(Vector[G, H])
M = (0, -3, 6)
f = Line(M, yAxis)
I, J = Intersect(f, a)
h = PerpendicularPlane(J, f)
i = PerpendicularPlane(I, f)