act geogebra Leonel, Tiziano, Juan y Enzo

f: z = 0
ec1: x = 0
g: y = 0
A: (2, -1, 3)
B: (-2, 4, 1)
C = (-0.4813687097647943, -1.014848336827166, 0)
D: (3, 3, -2)
P: (3, -1, -2)
Q: (3, 5, -2)
N = (-3.550975337290258, 5.3669040669667645, -2)
M: (-3., -1, -2)
R: (-3, -1, 3)
F: (3, 5, 3)
G: (3, -1, 3)
O = Point(Circle[M, Distance[R, M], Segment[R, M]])
h = Segment(A, B)
i = Segment(A, D)
K = Midpoint(B, D)
u = Vector(A, D)
E: (-3, 5, 3)
a, H, I, J, caraEFGR, caraGPHR, caraEIHR, caraEFJI, caraFGPJ, caraHIJP, aristaGR, aristaER, aristaEF, aristaFG, aristaGP, aristaHR, aristaEI, aristaFJ, aristaHP, aristaHI, aristaIJ, aristaJP = Prism(G, R, E, F, P)
L: (1, 2, 2)
v = Vector(A, L)
w = Vector(L, D)
Y: (3, 3, 3)
b = Vector(A, Y)
j = Segment(Y, D)