h : Altura del triángulo base en cm

H : Altura del prisma en cm

b : base del triángulo base en cm

h = 3.5 (slider from 1 to 10, step 0.5)
b = 3.5 (slider from 1 to 10, step 0.5)
H = 3 (slider from 1 to 10, step 0.5)
A = (-2, 1, 0)
c = Circle(A, b, xOyPlane)
B = Point(c)
f = Line(A, B)
C = (-2.339705224038262, -1.9946284630563014, 0)
g = OrthogonalLine(C, f, space)
D = Intersect(g, f)
d = Circle(D, h, xOyPlane)
E, F = Intersect(g, d)
polígono1, b_1, a, e = Polygon(A, E, B)
i = Segment(E, D)
j = OrthogonalLine(A, xOyPlane)
k = Sphere(A, H)
G = Intersect(j, k, 2)
l, I, J, caraAEIG, caraBEIJ, caraABJG, caraGIJ, aristaAG, aristaEI, aristaBJ, aristaGI, aristaIJ, aristaGJ = Prism(polígono1, G)
K = (-0.8928329242122981, -2.3255092955945003, 0)
m = OrthogonalLine(K, xOyPlane)
n = Sphere(K, H)
L = Intersect(m, n, 2)
p = Segment(L, K)
volumenl = Volume(l)
Textol: "Volumen de " + (Name[l]) + " = " + volumenl
Puntol = Point(l)
TextocaraGIJ: "Área de  " + (Name[G]) + (Name[I]) + (Name[J]) + " = " + caraGIJ
PuntocaraGIJ_1 = PointIn(caraGIJ)
texto6: "Área de  " + (Name[G]) + (Name[I]) + (Name[J]) + " = " + caraGIJ
PuntocaraGIJ = PointIn(caraGIJ)
q = Segment(I, L)
texto7: "Volumenprisma=" + (LaTeX[volumenl]) + "cm^3"
texto8: "Áreabase=" + (LaTeX[polígono1]) + "cm^2"
α = Angle(L, K, E)
β = Angle(B, D, E)