\mnb150<nb wrap="0" txtwidth="80" autowidth="0" pprint="1" typeset="1" xface="Times New Roman" xsize="240" xbold="0" xitalic="0" xcolor="#0000FF" slidents="1" sizemult="71" minsize="160" ifont="0 220 255 0 49 Courier New" ofont="0 220 16711680 0 49 Courier New" tfont="0 220 0 1 0 Times New Roman"></nb>ÿ{\rtf1\ansi\deff0\deftab720{\fonttbl{\f0\fswiss MS Sans Serif;}{\f1\froman\fcharset2 Symbol;}{\f2\fswiss\fprq2 System;}{\f3\fswiss\fprq2 Arial;}{\f4\fmodern\fprq1 Courier New;}{\f5\froman\fprq2 Times New Roman;}{\f6\fswiss\fprq2\fcharset1 Arial;}{\f7\froman\fcharset1 Times New Roman;}}
{\colortbl\red0\green0\blue0;\red0\green0\blue255;\red255\green0\blue0;\red0\green128\blue0;}
\deflang1031\pard\ri4\plain\f4\fs20\cf0\b ________________________________________________________________________________
\par 
\par \plain\f4\fs20\cf0 Inhalt....: Archimedischer K\'f6rper: Abgestumpftes Hexaeder
\par Kategorie.: Grafik
\par Mathematik: Grafik, Geometrie R^3 
\par MuPAD.....: 3.1.1
\par Datum.....: 2005-06-24
\par Autoren...: Tobias Fankh\'e4nel <fank1@gmx.de>
\par Autoren...: Andreas Sorgatz <sorgatz@sciface.com>
\par Funktionen: SurfaceSet, Scaling, Constrained, Header, Footer, BackgroundStyle 
\par Funktionen: Axes, Width, Height, BorderWidth, FooterFont, FooterAlignment 
\par Funktionen: plot, plot::Rotate3d, Frames, Margin
\par \plain\f4\fs20\cf0\b ________________________________________________________________________________
\par \plain\f3\fs36\cf0 
\par Archimedischer K\'f6rper
\par \plain\f6\fs24\cf0 Abgestumpftes Hexaeder (3,8,8)
\par \plain\f7\fs22\cf0 
\par 
\par \pard\li300\ri5\fi-300{\*\pn\pnlvlblt\pnf1\pnindent300{\pntxtb\'b7}}\plain\f4\fs22\cf2 {\pntext\f1\'b7\tab}p0 := 0,\tab \tab \tab  0,\tab \tab \tab  0.6773065:
\par \pard\li600\ri1\fi-300\plain\f4\fs22\cf2 p1 := 0.36540985,\tab  0,\tab \tab \tab  0.57028075:
\par p2 :=-0.31189665,\tab  0.19038045,\tab  0.57028075:
\par p3 := 0.16703115,\tab -0.325,\tab \tab  0.57028075:
\par p4 := 0.57028075,\tab  0.19038045,\tab  0.31189665:
\par p5 :=-0.5859542,\tab  0.13461955,\tab  0.31189665:
\par p6 :=-0.38757615,\tab  0.45961955,\tab  0.31189665:
\par p7 := 0.0913523,\tab -0.5942391,\tab  0.31189665:
\par p8 := 0.661635,\tab  0.13461955,\tab -0.05351307:
\par p9 := 0.4946019,\tab  0.45961955,\tab  0.05351307:
\par p10:=-0.661635,\tab -0.13461955,\tab  0.05351307:
\par p11:=-0.18270525,\tab  0.65,\tab \tab  0.05351307:
\par p12:=-0.18270525,\tab -0.65,\tab \tab  0.05351307:
\par p13:= 0.18270525,\tab -0.65,\tab \tab -0.05351307:
\par p14:= 0.5859542,\tab -0.13461955,\tab -0.31189665:
\par p15:= 0.18270525,\tab  0.65,\tab \tab -0.05351307:
\par p16:=-0.4946019,\tab -0.45961955,\tab -0.05351307:
\par p17:=-0.57028075,\tab -0.19038045,\tab -0.31189665:
\par p18:=-0.0913523,\tab  0.5942391,\tab -0.31189665:
\par p19:= 0.38757615,\tab -0.45961955,\tab -0.31189665:
\par p20:= 0.31189665,\tab -0.19038045,\tab -0.57028075:
\par p21:=-0.36540985,\tab  0,\tab \tab \tab -0.57028075:
\par p22:=-0.16703115,\tab  0.325,\tab \tab -0.57028075:
\par p23:= 0,\tab \tab \tab  0,\tab \tab \tab -0.6773065:
\par 
\par Hexaeder_abgestumpft_Dreiecke:= [
\par p0, p3, p1,
\par p2, p6, p5,
\par p4, p8, p9,
\par p7, p12,p13,
\par p10,p17,p16,
\par p11,p15,p18,
\par p14,p19,p20,
\par p21,p22,p23
\par ]:
\par 
\par Hexaeder_abgestumpft_Achtecke:= [
\par [p0, p1, p4, p9, p15,p11,p6, p2],
\par [p0, p2, p5, p10,p16,p12,p7, p3],
\par [p1, p3, p7, p13,p19,p14,p8, p4],
\par [p5, p6, p11,p18,p22,p21,p17,p10],
\par [p8, p14,p20,p23,p22,p18,p15,p9],
\par [p12,p16,p17,p21,p23,p20,p19,p13]
\par ]:
\par 
\par Hexaeder_abgestumpft:= plot::Group3d(
\par    Name = "Hexaeder, abgestumpft",
\par    plot::SurfaceSet(Name="Dreiecke", Hexaeder_abgestumpft_Dreiecke, MeshListType = Triangles),
\par    plot::SurfaceSet(Name="Achteck",  Achteck, MeshListType = TriangleFan, FillColorFunction=RGB::Gold)             $ Achteck in Hexaeder_abgestumpft_Achtecke,
\par    plot::Polygon3d (Name="Achteck, Rand", [Achteck[3*i+1..3*i+3] $ i=0..7], Closed, LineColor = RGB::Black.[0.25]) $ Achteck in Hexaeder_abgestumpft_Achtecke,
\par    Scaling = Constrained
\par ):
\par 
\par plot( plot::Rotate3d( w, w=0..2*PI, Frames=100, Hexaeder_abgestumpft),
\par       Header                = "Archimedischer K\'f6rper: Hexaeder, abgestumpft",
\par       Axes                  = None,
\par       BackgroundStyle       = Pyramid,
\par       Width                 = 120,
\par       Height                = 120,
\par       BorderWidth           = 0.2,
\par       Footer                = "erstellt mit MuPAD Pro 3 - schule.mupad.de",
\par       FooterFont            = [8, Italic],
\par       FooterAlignment       = Right,
\par       plot::Scene3d::Margin = 0
\par ):
\par 
\par \pard\ri4\plain\f4\fs20\cf0\b _______________________________________________________________________________
\par \plain\f3\fs22\cf0 
\par \plain\f3\fs22\cf3\b Anmerkungen:\plain\f3\fs22\cf3 
\par \plain\f3\fs20\cf3\b 1\plain\f3\fs20\cf3 .  Weitere Anregungen zum Einsatz von MuPAD in der Lehre finden Sie auf unserem WebPortal
\par      \plain\f3\fs20\cf3\i MuPAD in Schule und Studium\plain\f3\fs20\cf3  unter: \plain\f3\fs20\cf1 http://schule.mupad.de\plain\f3\fs20\cf3  bzw. \plain\f3\fs20\cf1 http://studium.mupad.de\plain\f3\fs20\cf3 .
\par 
\par \plain\f3\fs20\cf3\b 2\plain\f3\fs20\cf3 . Weitere Informationen zu Archimedischen Platonischen K\'f6rper finden Sie auf der Webseite
\par     http://www.mathe.tu-freiberg.de/~hebisch/cafe/archimedische.html
\par \plain\f4\fs20\cf0\b _______________________________________________________________________________
\par \plain\f7\fs22\cf0 
\par }