B = (-6.607478214570405, 7.072203418781205)
C = (-1.588825868834104, 3.2484682982202133)
A = (-5.9383245684722334, 2.9377898196746326)
poly1, c, a, b = Polygon(A, B, C)
S = Point(b)
R = Point(a)
P = Point(c)
D = (12.99633378165573, 6.806931794792289)
j = Line(A, D)
A' = Point(j)
d = Line(A, A')
A'' = Point(d)
p = OrthogonalLine(A'', d)
f = Line(B, d)
i = Line(S, f)
h = Line(P, f)
g = Line(R, f)
H = Intersect(f, p)
e = Line(C, d)
q = AngularBisector(e, f)
I = Intersect(e, p)
r = Circle(I, H)
L, M = Intersect(r, q)
s = Ray(A'', M)
t = OrthogonalLine(M, s)
C'' = Intersect(e, t)
B'' = Intersect(t, f)
poly5, n, d_2, o = Polygon(A'', C'', B'')
P'' = Intersect(o, h)
R'' = Intersect(d_2, g)
S'' = Intersect(n, i)
poly6, s'', p'', r'' = Polygon(P'', R'', S'')
razón: poly6 / poly5
B' = Point(f)
C' = Point(e)
poly2, c', a', b' = Polygon(A', B', C')
J = Intersect(p, q)
S' = Intersect(b', i)
poly3, s_1, p_1, r_1 = Polygon(P, R, S)
P' = Intersect(c', h)
R' = Intersect(a', g)
poly4, s', p', r' = Polygon(P', R', S')
text1: "La razón entre los triángulos interiores y los triángulos exteriores
es igual a P''R''S''/A''B''C'', que se mantiene constante
para cualquier sección del prisma.

razón = " + razón