Plots

Benötigt Run von "GeoPolySCode.nb"

Daraus ein Package zu machen ist problematisch wegen den Pfad- und Context-Setzungen, die vom Benutzer auszuführen sind.

Reguläre Polyeder u.s.w.

Beispiele ohne Eingabe eines View Points

Show[Graphics3D[h[1]]];
Show[Graphics3D[h[2]]];
Show[Graphics3D[h[3]]];

Liste aller vorhandenen Körper mit Eingabe eines View Points (1. Zahl: Körpernummer, 3 Zahlen in Mengenklammern: Position des ViewPoints. Die Koordinaten des View Points könnnen beliebig überschrieben werden)

showG[1, {0.2, 2, 6}];
showG[2, {0.2, 2, 1}];
showG[3, {0.2, 2, 1}];
showG[4, {0.2, 2, 1}];
showG[5, {0.2, 2, 1}];
showG[6, {0.2, 2, 1}];
showG[7, {0.2, 2, 1}];
showG[8, {0.2, 2, 1}];
showG[9, {0.2, 2, 1}];
showG[10, {0.2, 2, 1}];
showG[11, {0.2, 2, 1}];
showG[12, {1, 2, 6}];
showG[13, {0.5, 0.9, 3}];
showG[14, {0.5, 0.5, 3}];
showG[15, {0.5, 0.5, 3}];
showG[16, {0.5, 0.5, 3}];
showG[17, {0.5, 0.5, 3}];
showG[18, {0.5, 0.7, 2.5}];
showG[19, {0.5, 0.7, 2.5}];
showG[20, {0.5, 0.5, 3}];
showG[21, {0.5, 4, 3}];
showG[22, {1, 2, 1}];
showG[23, {1, 2, 1}];
showG[24, {1, 3.5, 4}];
showG[25, {2, 7, 30}];
showG[26, {3, 1, 1}];
showG[27, {4, 5, 2}];
showG[28, {1, 7, -2}];
showG[29, {1, 2, 2.5}];
showG[30, {1, 7, -2}];
showG[31, {1, 7, -2}];
showG1[31, {1, 7, -2}];
showG[32, {1, 7, -2}];
showG[32, {1, 1, 7}];
showG[32, {5, 5, -2}];
showG[33, {1, 7, -2}];
showG[34, {1, 7, -2}];
showG[35, {1, 7, -2}];
showG[36, {1, 7, -1}];
showG[37, {1, 7, -1}];
showG2[37, {1, 7, -1}];
showG[38, {1, 7, -1}];
showG[39, {1, 5, -1}];
showG[40, {1, 5, -1}];
showG[41, {3, 8, 2}];

Beispiel einer Animation (mit Cell, Animated Graphics)

Table[showG[32, {1, n, 2  n}], {n, 1, 30}];

Table[
        Show[Graphics3D[h[n], {Boxed -> False}]], {n, 1, 
          41}];