O = (-0.5, 0.5, 0)
A = (1.5, 0.5, 0)
D = Point(Circle[A, Distance[O, A], Segment[O, A]])
a, E, F, G, H, I, FlächeADEO, FlächeEIFO, FlächeAGFO, FlächeADHG, FlächeDEIH, FlächeFGHI, KanteEO, KanteAO, KanteAD, KanteDE, KanteFO, KanteEI, KanteFI_1, KanteFG, KanteAG, KanteGH, KanteDH, KanteHI_1 = Cube(O, A, D)
S = (0.021042458369864736, 3.155780329977901, 4)
b, FlächeFHI, FlächeFHS, FlächeHIS, FlächeFIS, KanteFH, KanteHI, KanteFI, KanteFS, KanteHS, KanteIS = Pyramid(F, H, I, S)
v: (-(2, 1, 2))
S' = Translate(S, v)
u = Vector(S, S')
F' = Translate(F, v)
w = Vector(F, F')
G' = Translate(G, v)
c = Vector(G, G')
f = Line(S, S')
g = Line(F, F')
h = Line(G, G')
i = Line(I, g)
j = Line(H, f)
I' = Translate(I, v)
d = Vector(I, I')
H' = Translate(H, v)
e = Vector(H, H')
S'': S + (2 * u)
Vieleck1, k, l, m, n, p, q, s = Polygon(I', S'', F', G', A, D, E)
J = (-3.858, 2.862)
K = (-2.158, 2.862)