p0 := 0, 0, 0.6682195:

p1 := 0.30150705, 0, 0.5963321:

p2 := 0.1421836, 0.26587665, 0.5963321:

p3 :=-0.16740685, 0.25076155, 0.5963321:

p4 :=-0.30007315, -0.02937025, 0.5963321:

p5 :=-0.1156077, -0.2784626, 0.5963321:

p6 := 0.3722407, -0.2784626, 0.4800146:

p7 := 0.536861, -0.02937025, 0.3967821:

p8 := 0.4184674, 0.25076155, 0.45664255:

p9 := 0.2272712, 0.48726795, 0.3967821:

p10:=-0.27365585, 0.4628117, 0.3967821:

p11:=-0.4409041, 0.208806, 0.45664255:

p12:=-0.3920501, -0.2903329, 0.45664255:

p13:=-0.17872465, -0.5070897, 0.3967821:

p14:= 0.11445005, -0.4505618, 0.4800146:

p15:= 0.3385291, -0.5070897, 0.2734537:

p16:= 0.5559138, -0.2903329, 0.23062:

p17:= 0.658411, -0.0230659, 0.1117207:

p18:= 0.4668456, 0.4301973, 0.20857655:

p19:= 0.23618985, 0.61454705, 0.1143025:

p20:=-0.02973159, 0.6089811, 0.2734537:

p21:=-0.29493035, 0.5886166, 0.1143025:

p22:=-0.50653135, 0.38267515, 0.20857655:

p23:=-0.6199193, 0.0950443, 0.23062:

p24:=-0.5897255, -0.2134405, 0.23062:

p25:=-0.42271905, -0.4736277, 0.20857655:

p26:= 0.05498662, -0.6247475, 0.23062:

p27:= 0.25669475, -0.6169319, -0.00459716:

p28:= 0.60843055, -0.26621205, -0.0739037:

p29:= 0.6389097, 0.01749989, -0.19495255:

p30:= 0.6151392, 0.26096265, -0.00459716:

p31:= 0.4357977, 0.49808395, -0.09225905:

p32:=-0.03254973, 0.666705, -0.03106987:

p33:=-0.2791321, 0.5749757, -0.19495255:

p34:=-0.6215092, 0.2417558, -0.042414:

p35:=-0.664326, -0.0650221, -0.03106987:

p36:=-0.5628389, -0.35767615, -0.042414:

p37:=-0.3398044, -0.57060445, -0.0739037:

p38:=-0.04456608, -0.664001, -0.06027996:

p39:= 0.14508325, -0.5833672, -0.29180905:

p40:= 0.4235036, -0.46806175, -0.21927555:

p41:= 0.5180201, -0.2115074, -0.36529285:

p42:= 0.52434655, 0.28569775, -0.29992625:

p43:= 0.29042195, 0.4782622, -0.36529285:

p44:= 0.00096772, 0.5824754, -0.32747585:

p45:=-0.229801, 0.4249479, -0.46165925:

p46:=-0.4809688, 0.3606044, -0.29180905:

p47:=-0.5928156, 0.071643, -0.29992625:

p48:=-0.42861, -0.401882, -0.3182816:

p49:=-0.16189225, -0.55952585, -0.32747585:

p50:= 0.27956825, -0.37472435, -0.4774328:

p51:= 0.3287427, -0.0848432, -0.57554185:

p52:= 0.3326531, 0.22244625, -0.53514305:

p53:= 0.06330733, 0.3751761, -0.54932085:

p54:=-0.39123175, 0.16591835, -0.5156814:

p55:=-0.4471363, -0.1365481, -0.4774328:

p56:=-0.2171286, -0.33614815, -0.53514305:

p57:= 0.0557091, -0.2219347, -0.627822:

p58:= 0.08302775, 0.08538595, -0.6575205:

p59:=-0.1978925, -0.04394215, -0.6367309:

 

Dodekaeder_abgeschraegt_Dreiecke:= [

p0, p1, p2,

p0, p2, p3,

p0, p3, p4,

p0, p4, p5,

p1, p6, p7,

p1, p7, p8,

p1, p8, p2,

p2, p8, p9,

p3, p10,p11,

p3, p11,p4,

p4, p12,p5,

p5, p12,p13,

p5, p13,p14,

p6, p14,p15,

p6, p15,p16,

p6, p16,p7,

p7, p16,p17,

p8, p18,p9,

p9, p18,p19,

p9, p19,p20,

p10,p20,p21,

p10,p21,p22,

p10,p22,p11,

p11,p22,p23,

p12,p24,p25,

p12,p25,p13,

p13,p26,p14,

p14,p26,p15,

p15,p26,p27,

p16,p28,p17,

p17,p28,p29,

p17,p29,p30,

p18,p30,p31,

p18,p31,p19,

p19,p32,p20,

p20,p32,p21,

p21,p32,p33,

p22,p34,p23,

p23,p34,p35,

p23,p35,p24,

p24,p35,p36,

p24,p36,p25,

p25,p36,p37,

p26,p38,p27,

p27,p38,p39,

p27,p39,p40,

p28,p40,p41,

p28,p41,p29,

p29,p42,p30,

p30,p42,p31,

p31,p42,p43,

p32,p44,p33,

p33,p44,p45,

p33,p45,p46,

p34,p46,p47,

p34,p47,p35,

p36,p48,p37,

p37,p48,p49,

p37,p49,p38,

p38,p49,p39,

p39,p50,p40,

p40,p50,p41,

p41,p50,p51,

p42,p52,p43,

p43,p52,p53,

p43,p53,p44,

p44,p53,p45,

p45,p54,p46,

p46,p54,p47,

p47,p54,p55,

p48,p55,p56,

p48,p56,p49,

p50,p57,p51,

p51,p57,p58,

p51,p58,p52,

p52,p58,p53,

p54,p59,p55,

p55,p59,p56,

p56,p59,p57,

p57,p59,p58

]:

 

Dodekaeder_abgeschraegt_Fuenfecke:= [

[p0, p5, p14,p6, p1],

[p2, p9, p20,p10,p3],

[p4, p11,p23,p24,p12],

[p7, p17,p30,p18,p8],

[p13,p25,p37,p38,p26],

[p15,p27,p40,p28,p16],

[p19,p31,p43,p44,p32],

[p21,p33,p46,p34,p22],

[p29,p41,p51,p52,p42],

[p35,p47,p55,p48,p36],

[p39,p49,p56,p57,p50],

[p45,p53,p58,p59,p54]

]:

 

Dodekaeder_abgeschraegt:= plot::Group3d(

   Name = "Dodekaeder, abgeschrägt",

   plot::SurfaceSet(Name="Dreiecke", Dodekaeder_abgeschraegt_Dreiecke, MeshListType = Triangles, MeshVisible),

   plot::SurfaceSet(Name="Fünfeck",  Fuenfeck, MeshListType = TriangleFan, FillColorFunction=RGB::Gold) $ Fuenfeck in Dodekaeder_abgeschraegt_Fuenfecke,

   Scaling = Constrained

):

 

plot( plot::Rotate3d( w, w=0..2*PI, Frames=100, Dodekaeder_abgeschraegt),

      Header                = "Archimedischer Körper: Dodekaeder, abgeschrägt",

      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

):