(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 5814, 155] NotebookOptionsPosition[ 5084, 126] NotebookOutlinePosition[ 5554, 144] CellTagsIndexPosition[ 5511, 141] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"name", "=", "\"\\""}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"str", "=", RowBox[{"ToString", "[", RowBox[{"N", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"PolyhedronData", "[", RowBox[{"name", ",", "\"\\""}], "]"}]}], ",", "4"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"StringReplace", "[", RowBox[{"str", ",", RowBox[{"{", RowBox[{ RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", RowBox[{"\"\<{\>\"", "\[Rule]", "\"\<\>\""}], ",", RowBox[{"\"\<},\>\"", "\[Rule]", "\"\<, \>\""}], ",", RowBox[{"\"\<}\>\"", "\[Rule]", "\"\<\>\""}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.501207126556559*^9, 3.5012071293505487`*^9}, 3.5012073434863253`*^9, {3.5012074600227346`*^9, 3.5012075005105495`*^9}, { 3.501209098421445*^9, 3.501209207206786*^9}, {3.5012092392926035`*^9, 3.501209240694605*^9}, {3.5012093786315737`*^9, 3.50120938547134*^9}, { 3.5012096091908026`*^9, 3.5012096172322855`*^9}, {3.501213817400206*^9, 3.5012138638565435`*^9}, {3.50121551860056*^9, 3.5012155428451805`*^9}, { 3.5012158646046395`*^9, 3.501215879275589*^9}, 3.50121617567929*^9, 3.5012164113986015`*^9, 3.501217166096278*^9, 3.5012176093592386`*^9, { 3.501217652941472*^9, 3.5012176634564877`*^9}}], Cell[BoxData["\<\"0,0,-1.176, 0,0,1.176, 0.8507,-0.6180,-0.5257, \ 0.8507,0.6180,-0.5257, -0.8507,-0.6180,0.5257, -0.8507,0.6180,0.5257, \ 1.051,0,0.5257, -1.051,0,-0.5257, -0.3249,-1.000,-0.5257, \ -0.3249,1.000,-0.5257, 0.3249,-1.000,0.5257, 0.3249,1.000,0.5257\"\>"], \ "Output", CellChangeTimes->{ 3.50120938612227*^9, 3.501209618564187*^9, 3.5012133610285263`*^9, { 3.5012138196534233`*^9, 3.5012138650081882`*^9}, {3.50121552039312*^9, 3.5012155435061245`*^9}, 3.5012158805373907`*^9, 3.501216178012179*^9, 3.501216412249817*^9, 3.5012171674782515`*^9, 3.501217609970111*^9, { 3.5012176538327456`*^9, 3.5012176645580606`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"str", "=", RowBox[{"ToString", "[", RowBox[{ RowBox[{"PolyhedronData", "[", RowBox[{"name", ",", "\"\\""}], "]"}], "-", "1"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"StringReplace", "[", RowBox[{"str", ",", RowBox[{"{", RowBox[{ RowBox[{"\"\< \>\"", "\[Rule]", "\"\<\>\""}], ",", RowBox[{"\"\<{\>\"", "\[Rule]", "\"\<[\>\""}], ",", RowBox[{"\"\<}\>\"", "\[Rule]", "\"\<]\>\""}]}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{ 3.5012074397638063`*^9, {3.5012075143002405`*^9, 3.50120752682813*^9}, { 3.5012096732222366`*^9, 3.5012098833266163`*^9}, {3.5012134081858654`*^9, 3.501213408586437*^9}}, CellID->234149351], Cell[BoxData["\<\"[[0,6,4],[5,6,0],[0,4,11],[10,5,0],[11,10,0],[1,7,2],[3,7,1]\ ,[1,2,9],[8,3,1],[9,8,1],[11,2,7],[7,3,10],[7,10,11],[9,4,6],[6,5,8],[6,8,9],[\ 2,4,9],[11,4,2],[8,5,3],[3,5,10]]\"\>"], "Output", CellChangeTimes->{ 3.501207441806723*^9, 3.501207528230132*^9, 3.501209681323805*^9, { 3.5012098176561155`*^9, 3.5012098841777887`*^9}, 3.5012134093375096`*^9, 3.5012138216763124`*^9, 3.5012138723779097`*^9, 3.5012155525590515`*^9, 3.501215882780594*^9, 3.5012161806554527`*^9, 3.5012164138020334`*^9, 3.501217171143485*^9, 3.501217611221899*^9, 3.5012176659300194`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"PolyhedronData", "[", "\"\\"", "]"}]], "Input", CellChangeTimes->{{3.5012082397351913`*^9, 3.501208279261634*^9}, 3.5012083751385417`*^9, {3.5012170447329764`*^9, 3.5012170490391254`*^9}, { 3.5012170901978984`*^9, 3.5012171138416605`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"GreatDodecahedron\"\>", ",", "\<\"GreatIcosahedron\"\>", ",", "\<\"GreatStellatedDodecahedron\"\>", ",", "\<\"SmallStellatedDodecahedron\"\>"}], "}"}]], "Output", CellChangeTimes->{{3.5012082705692215`*^9, 3.5012082806636353`*^9}, 3.501208376370301*^9, 3.501217050571313*^9, {3.501217091139242*^9, 3.501217114923205*^9}}] }, Open ]], Cell[BoxData[ RowBox[{"PolyhedronData", "[", "name", "]"}]], "Input", CellChangeTimes->{{3.5012082397351913`*^9, 3.501208336463315*^9}, 3.501208389418934*^9, {3.5012084198724203`*^9, 3.501208424068412*^9}, { 3.50121706248833*^9, 3.501217067886038*^9}, {3.50121712329516*^9, 3.50121714775008*^9}, {3.5012176285065804`*^9, 3.501217629888554*^9}}] }, WindowToolbars->"EditBar", WindowSize->{1094, 701}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, Magnification:>FEPrivate`If[ FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited], FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 1395, 29, 98, "Input"], Cell[1965, 53, 649, 10, 118, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2651, 68, 746, 20, 71, "Input", CellID->234149351], Cell[3400, 90, 599, 8, 93, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[4036, 103, 287, 4, 43, "Input"], Cell[4326, 109, 382, 7, 68, "Output"] }, Open ]], Cell[4723, 119, 357, 5, 43, "Input"] } ] *) (* End of internal cache information *)