A = (0, 0)
B_1 = (2, 0)
a = Segment(A, B_1)
P = Point(a)
B = (4, 0)
b = OrthogonalLine(B, xAxis)
D = (0, 6)
c = OrthogonalLine(D, yAxis)
C = Intersect(b, c)
polígono1, a_1, b_1, c_1, d = Polygon(A, B, C, D)
e = Circle(A, P)
E = Intersect(e, d, 1)
f = OrthogonalLine(E, d)
g = OrthogonalLine(P, a)
F = Intersect(f, g)
G = Intersect(b, f)
h_3 = Circle(B, Segment[A, P])
I = Intersect(h_3, a_1, 1)
i = OrthogonalLine(I, a_1)
H = Intersect(f, i)
J = Intersect(c, i)
O = Intersect(c, g)
k = Circle(C, Segment[I, B])
L = Intersect(k, b_1)
j = OrthogonalLine(L, b_1)
K = Intersect(i, j)
N = Intersect(g, j)
M = Intersect(j, d)
polígono2, e_1, altura, p_1, h_5, h_1, g_1, l_1, k_1, anchura, o, n, p_2 = Polygon(E, F, P, I, H, G, L, K, J, O, N, M)
Q = Point(altura)
polígono3, q_1, profundidad, k_2, n_1 = Polygon(Q, H, K, N)
R = Point(zAxis)
v, W, Z, A_1, C_1, caraHQWZ, cara1, cara2, cara3, cara4, aristaQW, aristaHZ, arista1, arista2, aristaWZ, arista4, arista5, arista3 = Prism(polígono3, x(P))
Volumen = Volume(v)
V: (x(P), Volumen)
texto1 = LaTeX(Volumen, true, true)
m = Slope(o)