________________________________________________________________________________
Inhalt....: Archimedischer Körper: Abgestumpftes Ikosaeder
Kategorie.: Grafik
Mathematik: Grafik, Geometrie R^3
MuPAD.....: 3.1.1
Datum.....: 2005-06-24
Autoren...: Tobias Fankhänel <fank1@gmx.de>
Autoren...: Andreas Sorgatz <sorgatz@sciface.com>
Funktionen: SurfaceSet, Scaling, Constrained, Header, Footer, BackgroundStyle
Funktionen: Axes, Width, Height, BorderWidth, FooterFont, FooterAlignment
Funktionen: plot, plot::Rotate3d, Frames, Margin
________________________________________________________________________________
Archimedischer Körper
Abgestumpftes Ikosaeder (5,6,6)
Definition: Ein Polyeder heißt halbregulär oder semiregulär, wenn alle seine Oberflächen aus
regelmäßigen Vielecken (eventuell unterschiedlicher Eckenzahl) bestehen, und jede Ecke des
Polyeders durch eine seiner Symmetrieoperationen auf jede andere Ecke abgebildet werden
kann. Es muß sich also um ein uniformes Polyeder handeln.
Bereits Platon soll neben den nach ihm benannten regulären Polyedern das Kuboktaeder ge-
kannt haben. Seit Archimedes, dessen Arbeit darüber jedoch nicht erhalten geblieben ist, weiß
man, daß es neben den Platonischen Körpern (und unendlich vielen Prismen und Antiprismen)
noch genau dreizehn halbreguläre konvexe Polyeder gibt, die üblicherweise als Archimedische
Körper bezeichnet werden. (Quelle: http://www.mathe.tu-freiberg.de/~hebisch/cafe/archimedische.html)
p0 := 0, 0, 0.66365:
p1 := 0.2623062, 0, 0.6096116:
p2 :=-0.1478516, 0.21666645, 0.6096116:
p3 :=-0.09562995, -0.2442531, 0.6096116:
p4 := 0.3767608, 0.21666645, 0.50153545:
p5 := 0.3287908, -0.2442531, 0.5221762:
p6 :=-0.39133315, 0.18908045, 0.50153545:
p7 :=-0.03339739, 0.43333355, 0.50153545:
p8 := 0.10757435, -0.39520975, 0.5221762:
p9 :=-0.3391115, -0.27183975, 0.50153545:
p10:= 0.5577, 0.18908045, 0.3060239:
p11:= 0.2289092, 0.43333355, 0.4474977:
p12:= 0.50973, -0.27183975, 0.32666465:
p13:=-0.42735875, 0.3886974, 0.32666465:
p14:=-0.4869631, -0.05517285, 0.4474977:
p15:=-0.2061423, 0.53965405, 0.32666465:
p16:= 0.06729645, -0.57375305, 0.32666465:
p17:=-0.37938875, -0.4503824, 0.3060239:
p18:= 0.5216744, 0.3886974, 0.1311531:
p19:= 0.6241846, -0.05517285, 0.2185885:
p20:= 0.31847075, 0.53965405, 0.2185885:
p21:= 0.4694521, -0.4503824, 0.1311531:
p22:=-0.55901365, 0.3440619, 0.0977561:
p23:=-0.618618, -0.0998088, 0.2185885:
p24:=-0.11658075, 0.6459752, 0.0977561:
p25:= 0.24823565, -0.6013397, 0.1311531:
p26:=-0.1761851, -0.6013397, 0.2185885:
p27:=-0.5521334, -0.3440619, 0.1311531:
p28:= 0.5521334, 0.3440619, -0.1311531:
p29:= 0.654641, -0.0998088, -0.0437177:
p30:= 0.14572545, 0.6459752, 0.0437177:
p31:= 0.55901365, -0.3440619, -0.0977561:
p32:=-0.4694521, 0.4503824, -0.1311531:
p33:=-0.654641, 0.0998088, 0.0437177:
p34:=-0.24823565, 0.6013397, -0.1311531:
p35:= 0.11658075, -0.6459752, -0.0977561:
p36:=-0.14572545, -0.6459752, -0.0437177:
p37:=-0.5216744, -0.3886974, -0.1311531:
p38:= 0.37938875, 0.4503824, -0.3060239:
p39:= 0.618618, 0.0998088, -0.2185885:
p40:= 0.1761851, 0.6013397, -0.2185885:
p41:= 0.42735875, -0.3886974, -0.32666465:
p42:=-0.50973, 0.27183975, -0.32666465:
p43:=-0.6241846, 0.05517285, -0.2185885:
p44:=-0.06729645, 0.57375305, -0.32666465:
p45:= 0.2061423, -0.53965405, -0.32666465:
p46:=-0.31847075, -0.53965405, -0.2185885:
p47:=-0.5577, -0.18908045, -0.3060239:
p48:= 0.3391115, 0.27183975, -0.50153545:
p49:= 0.4869631, 0.05517285, -0.4474977:
p50:= 0.39133315, -0.18908045, -0.50153545:
p51:=-0.3287908, 0.2442531, -0.5221762:
p52:=-0.10757435, 0.39520975, -0.5221762:
p53:= 0.03339739, -0.43333355, -0.50153545:
p54:=-0.2289092, -0.43333355, -0.4474977:
p55:=-0.3767608, -0.21666645, -0.50153545:
p56:= 0.09562995, 0.2442531, -0.6096116:
p57:= 0.1478516, -0.21666645, -0.6096116:
p58:=-0.2623062, 0, -0.6096116:
p59:= 0, 0, -0.66365:
Ikosaeder_abgestumpft_Fuenfecke:= [
[p0, p3, p8, p5, p1],
[p2, p7, p15,p13,p6],
[p4, p10,p18,p20,p11],
[p9, p14,p23,p27,p17],
[p12,p21,p31,p29,p19],
[p16,p26,p36,p35,p25],
[p22,p32,p42,p43,p33],
[p24,p30,p40,p44,p34],
[p28,p39,p49,p48,p38],
[p37,p47,p55,p54,p46],
[p41,p45,p53,p57,p50],
[p51,p52,p56,p59,p58]
]:
Ikosaeder_abgestumpft_Sechsecke:= [
[p0, p1, p4, p11,p7, p2],
[p0, p2, p6, p14,p9, p3],
[p1, p5, p12,p19,p10,p4],
[p3, p9, p17,p26,p16,p8],
[p5, p8, p16,p25,p21,p12],
[p6, p13,p22,p33,p23,p14],
[p7, p11,p20,p30,p24,p15],
[p10,p19,p29,p39,p28,p18],
[p13,p15,p24,p34,p32,p22],
[p17,p27,p37,p46,p36,p26],
[p18,p28,p38,p40,p30,p20],
[p21,p25,p35,p45,p41,p31],
[p23,p33,p43,p47,p37,p27],
[p29,p31,p41,p50,p49,p39],
[p32,p34,p44,p52,p51,p42],
[p35,p36,p46,p54,p53,p45],
[p38,p48,p56,p52,p44,p40],
[p42,p51,p58,p55,p47,p43],
[p48,p49,p50,p57,p59,p56],
[p53,p54,p55,p58,p59,p57]
]:
Ikosaeder_abgestumpft:= plot::Group3d(
Name = "Ikosaeder, abgestumpft",
plot::SurfaceSet(Name="Fünfeck", Fuenfeck, MeshListType = TriangleFan) $ Fuenfeck in Ikosaeder_abgestumpft_Fuenfecke,
plot::SurfaceSet(Name="Sechseck", Sechseck, MeshListType = TriangleFan, FillColorFunction=RGB::Gold) $ Sechseck in Ikosaeder_abgestumpft_Sechsecke,
plot::Polygon3d( Name="Sechseck, Rand", [Sechseck[3*i+1..3*i+3] $ i=0..5], Closed, LineColor = RGB::Black.[0.25]) $ Sechseck in Ikosaeder_abgestumpft_Sechsecke,
Scaling = Constrained
):
plot( plot::Rotate3d( w, w=0..2*PI, Frames=100, Ikosaeder_abgestumpft),
Header = "Archimedischer Körper: Ikosaeder, abgestumpft",
Axes = None,
BackgroundStyle = Pyramid,
Width = 120,
Height = 120,
BorderWidth = 0.2,
Footer = "erstellt mit MuPAD Pro 3 - schule.mupad.de",
FooterFont = [8, Italic],
FooterAlignment = Right,
plot::Scene3d::Margin = 0
):
_______________________________________________________________________________
Anmerkungen:
1. Weitere Anregungen zum Einsatz von MuPAD in der Lehre finden Sie auf unserem WebPortal
MuPAD in Schule und Studium unter: http://schule.mupad.de bzw. http://studium.mupad.de.
2. Weitere Informationen zu Archimedischen Platonischen Körper finden Sie auf der Webseite
http://www.mathe.tu-freiberg.de/~hebisch/cafe/archimedische.html
_______________________________________________________________________________