Gerade Prismen
Author: Mag.G.Wengler

Mit dem Schieberegler kannst du die Anzahl der Seiten einstellen, die das Prisma haben soll.
Kannst du dir vorstellen, was passiert, wenn diese Anzahl immer größer und größer wird?
Schau dir die Querschnittsfläche und die Längsschnittfläche an.
Beschreibe sie!

Bewege mich

Ich \ bin \ ein \ Quader!

Querschnitt

Längsschnitt

Seiten = 10 (slider from 3 to 24, step 1)
A = Intersect(xAxis, yAxis)
B = Point(xAxis)
c = Circle(A, B)
D = Intersect(c, xAxis, 2)
Bewege = (-1.17, -1.984)
a = Line(Bewege, A)
C' = Mirror(Bewege, A)
E = Intersect(c, yAxis, 2)
b = Line(E, C')
F = Midpoint(E, C')
d = Circle(F, A)
G = Intersect(d, b, 2)
e = Line(G, A)
H = Intersect(d, b, 1)
f = Line(A, H)
g = Circle(A, Segment[E, H])
h = Circle(A, Segment[G, E])
I = Intersect(g, f, 2)
J = Intersect(h, e, 1)
k = Conic(Bewege, B, J, C', I)
b_E = Segment(I, A)
a_E = Segment(A, J)
Boden = Sequence((a_E * cos(k * 2 * π / Seiten + π / 50), b_E * sin(k * 2 * π / Seiten + π / 50)), k, 0, Seiten - 1)
Vieleck1 = Polygon(Boden)
Höhe = Point(yAxis)
Decke = Sequence(Höhe + (a_E * cos(k * 2 * π / Seiten + π / 50), b_E * sin(k * 2 * π / Seiten + π / 50)), k, 0, Seiten - 1)
LS_g, n, p, q, r = Polygon(Element[Boden, 1], Element[Decke, 1], Element[Decke, Seiten / 2 + 1], Element[Boden, Seiten / 2 + 1])
Vieleck2 = Polygon(Decke)
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]})
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)
hKanten = Sequence(Segment[Element[Boden, k], Element[Decke, k]], k, 2, Seiten / 2)
i = Line(Höhe, A)
L = Point(i)
j = Ray(Höhe, L)
M = Point(j)
l = Segment(Höhe, A)
Text1: "Regelmäßiges " + Seiten + "-seitiges Prisma"
Querschnitt = Point(l)
Mitte = Sequence(Querschnitt + (a_E * cos(k * 2 * π / Seiten + π / 50), b_E * sin(k * 2 * π / Seiten + π / 50)), k, 0, Seiten - 1)
m = false
o = false
Vieleck3 = Polygon(Mitte)
B_2: (Element[Boden, Seiten / 2 - 1] + Element[Boden, Seiten / 2]) / 2
D_2: (Element[Decke, Seiten / 2 - 1] + Element[Decke, Seiten / 2]) / 2
LS_u, s, t, a_1, b_1 = Polygon(Element[Boden, Seiten], Element[Decke, Seiten], D_2, B_2)