Bewege mich

Längsschnitt

Querschnitt

Formeln

V = G·h\
O = 2G + M

Mantel

V ... Volumen
G ... Grundfläche
M ... Mantelfläche
h ... Körperhöhe

A = Intersect(xAxis, yAxis)
H = Point(yAxis)
Bewege = (-2.047378397212541, -1.7662652729384463)
Seiten = 9 (slider from 3 to 24, step 1)
B = Point(xAxis)
Höhe = Segment(H, A)
Querschnitt = Point(Höhe)
vh = 0.5
C' = Mirror(Bewege, A)
c = Circle(A, B)
E = Intersect(c, Höhe, 1)
F = Midpoint(E, C')
d = Circle(F, A)
b = Line(E, C')
H_1 = Intersect(d, b, 1)
e = Circle(A, Segment[E, H_1])
f = Line(A, H_1)
I = Intersect(e, f, 2)
b_E = Segment(I, A)
G = Intersect(d, b, 2)
g = Circle(A, Segment[G, E])
h = Line(A, G)
J = Intersect(g, h, 2)
a_E = Segment(A, J)
D = Intersect(c, xAxis, 2)
a = Line(Bewege, A)
k = Conic(Bewege, J, C', B, I)
Boden = Sequence(((a_E * cos(((k * 2) * π / Seiten) + π / 50)), (b_E * sin(((k * 2) * π / Seiten) + π / 50))), k, 0, Seiten - 1)
Decke = Sequence(((a_E * cos(((k * 2) * π / Seiten) + π / 50)), (b_E * sin(((k * 2) * π / Seiten) + π / 50))) + (0, Höhe), k, 0, Seiten - 1)
Grundfläche = Polygon(Boden)
Deckfläche = Polygon(Decke)
vBoden = Join({{Segment[Element[Boden, Seiten], Element[Boden, 1]]}, Sequence[Segment[Element[Boden, k], Element[Boden, k + 1]], k, If[Mod[Seiten, 2] ≟ 0, Seiten / 2 + 1, Seiten / 2], Seiten - 1]})
hBoden = Sequence(Segment[Element[Boden, k], Element[Boden, k + 1]], k, 1, Seiten / 2)
LS_g, i, j, m, n = Polygon(Element[Boden, 1], Element[Decke, 1], Element[Decke, Seiten / 2 + 1], Element[Boden, Seiten / 2 + 1])
o = false
Mitte = Sequence(((a_E * cos(((k * 2) * π / Seiten) + π / 50)), (b_E * sin(((k * 2) * π / Seiten) + π / 50))) + Querschnitt, k, 0, Seiten - 1)
Vieleck3 = Polygon(Mitte)
p = false
Text2: "Regelmäßiges " + Seiten + "-seitiges Prisma"
vKanten = Join({{Segment[Element[Boden, 1], Element[Decke, 1]]}, Sequence[Segment[Element[Boden, k], Element[Decke, k]], k, If[Mod[Seiten, 2] ≟ 0, Seiten / 2 + 1, Seiten / 2], Seiten]})
hKanten = Sequence(Segment[Element[Boden, k], Element[Decke, k]], k, 2, Seiten / 2)
oKanten = Join({{Segment[Element[Decke, 1], Element[Decke, Seiten]]}, {Sequence[Segment[Element[Decke, k], Element[Decke, k + 1]], k, 1, Seiten]}})
q = false
B_2: (Element[Boden, Seiten / 2 - 1] + Element[Boden, Seiten / 2]) / 2
B_3: (Element[Decke, Seiten / 2 - 1] + Element[Decke, Seiten / 2]) / 2
LS_u, l, r, b_3, b_2 = Polygon(Element[Boden, Seiten], Element[Decke, Seiten], B_3, B_2)