A: (0, 0, 0)
B: (0, 0, 6)
a, c, b = Cone(A, B, 2)
C: ((2 * sqrt(2) / 3), (2 * sqrt(2) / 3), 0)
D: ((-2 * sqrt(2) / 3), (2 * sqrt(2) / 3), 0)
E: ((-2 * sqrt(2) / 3), (-2 * sqrt(2) / 3), 0)
F: ((2 * sqrt(2) / 3), (-2 * sqrt(2) / 3), 0)
G: ((2 * sqrt(2) / 3), (2 * sqrt(2) / 3), 2)
m1, c_1, d, e, f = Polygon(C, D, E, F)
g, H, I, J, tahkoCDHG, tahkoDEIH, tahkoEFJI, tahkoCFJG, tahkoGHIJ, särmäCG, särmäDH, särmäEI, särmäFJ, särmäGH, särmäHI, särmäIJ, särmäGJ = Prism(m1, G)
tilavuusg = Volume(g)
Tekstig: "Kappaleen " + (Name[g]) + " tilavuus = " + tilavuusg
Pisteg = PointIn(g)