L

L

L

f(x) = If[0 ≤ x ≤ Infinity, ((-x)) / 2]
F = Point(f)
g = OrthogonalLine(F, yAxis)
B = Intersect(g, yAxis)
polígono1, h_2, i, j, k, G, C = Polygon(B, F, 4)
D = Point(Ray[B, Vector[(-1, 0)]])
l = OrthogonalLine(D, g)
M = Point(l)
m_1 = OrthogonalLine(M, xOyPlane)
A = Point(Ray[M, Vector[(0, 0, 1)]])
n = Segment(M, F)
q = Segment(A, F)
a = Plane(yAxis, zAxis)
F' = Intersect(q, a)
F'' = Intersect(n, a)
s = Segment(B, F')
c = Segment(C, B)
m = Segment(D, M)
h = Segment(M, A)
g_1 = Line(B, C)
p = Segment(M, G)
r = Segment(A, G)
G' = Intersect(r, a)
G'' = Intersect(p, a)
t = Segment(F', G')
b = Segment(C, G')
i_1 = Segment(G', G'')
d = Segment(D, B)
f_1 = Segment(G', C)
e = Segment(F'', F')