(* 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[ 12298, 386] NotebookOptionsPosition[ 10690, 327] NotebookOutlinePosition[ 11054, 343] CellTagsIndexPosition[ 11011, 340] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"Needs", "[", "\"\\"", "]"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"$RemoteCommand", "=", RowBox[{"StringReplace", "[", RowBox[{"$RemoteCommand", ",", RowBox[{ "\"\< math \>\"", "\[Rule]", "\"\< /Users/scott/bin/math \>\""}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.463883956848709*^9, 3.463883970186624*^9}}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LaunchKernels", "[", RowBox[{"RemoteMachine", "[", RowBox[{"\"\\"", ",", "2"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.463870438265039*^9, 3.463870438749681*^9}, { 3.4638706984991217`*^9, 3.463870712345364*^9}, {3.4638801920979967`*^9, 3.463880200273045*^9}, {3.463883962517054*^9, 3.463883962898575*^9}, { 3.463923774024479*^9, 3.463923774664997*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"KernelObject", "[", RowBox[{"1", ",", "\<\"sieversii.tqft.net\"\>"}], "]"}], ",", RowBox[{"KernelObject", "[", RowBox[{"2", ",", "\<\"sieversii.tqft.net\"\>"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.4638707127197733`*^9, 3.463870771054181*^9, {3.463880201217664*^9, 3.46388020317319*^9}, 3.463883930692338*^9, 3.463883990899623*^9, 3.463922753076069*^9, 3.463923827898587*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LaunchKernels", "[", "2", "]"}]], "Input", CellChangeTimes->{{3.463869112263612*^9, 3.4638691147385263`*^9}, { 3.4638839974976673`*^9, 3.463884023895548*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"KernelObject", "[", RowBox[{"3", ",", "\<\"local\"\>"}], "]"}], ",", RowBox[{"KernelObject", "[", RowBox[{"4", ",", "\<\"local\"\>"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{ 3.463869115182378*^9, {3.463870151647154*^9, 3.4638701527253113`*^9}, { 3.4638839939341288`*^9, 3.463884027066902*^9}, 3.463922755577867*^9, 3.4639238304365587`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Kernels", "[", "]"}]], "Input", CellChangeTimes->{{3.463884028536047*^9, 3.4638840296449013`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"KernelObject", "[", RowBox[{"1", ",", "\<\"sieversii.tqft.net\"\>"}], "]"}], ",", RowBox[{"KernelObject", "[", RowBox[{"2", ",", "\<\"sieversii.tqft.net\"\>"}], "]"}], ",", RowBox[{"KernelObject", "[", RowBox[{"3", ",", "\<\"local\"\>"}], "]"}], ",", RowBox[{"KernelObject", "[", RowBox[{"4", ",", "\<\"local\"\>"}], "]"}]}], "}"}]], "Output", CellChangeTimes->{3.4638840302445183`*^9, 3.463922755687817*^9, 3.463923830563764*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"FusionAtlasPaths", "=", RowBox[{"{", "\"\<~/projects/fusionatlas/code/package/\>\"", "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"$Path", "=", RowBox[{"$Path", "~", "Join", "~", "FusionAtlasPaths"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"<<", "FusionAtlas`"}]}], "Input"], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Loading FusionAtlas` version 0\\n\"\>", "\[InvisibleSpace]", "\<\"Read more at \ http://tqft.net/wiki/Atlas_of_subfactors\"\>"}], SequenceForm[ "Loading FusionAtlas` version 0\n", "Read more at http://tqft.net/wiki/Atlas_of_subfactors"], Editable->False]], "Print", CellChangeTimes->{3.4638841115493517`*^9, 3.4639227557234287`*^9, 3.4639238306085987`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Found precomputed data in \"\>", "\[InvisibleSpace]", \ "\<\"/Users/scott/projects/fusionatlas/code/data\"\>"}], SequenceForm[ "Found precomputed data in ", "/Users/scott/projects/fusionatlas/code/data"], Editable->False]], "Print", CellChangeTimes->{3.4638841115493517`*^9, 3.4639227557234287`*^9, 3.463923830611162*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParallelEvaluate", "[", RowBox[{ RowBox[{"FusionAtlasPaths", "=", RowBox[{"{", "\"\<~/projects/fusionatlas/code/package/\>\"", "}"}]}], ";", "\n", RowBox[{"$Path", "=", RowBox[{"$Path", "~", "Join", "~", "FusionAtlasPaths"}]}], ";", "\[IndentingNewLine]", RowBox[{"<<", "FusionAtlas`"}]}], "]"}]], "Input", CellChangeTimes->{{3.462846419138975*^9, 3.462846419387107*^9}, { 3.463884037216494*^9, 3.463884051509282*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Loading FusionAtlas` version 0\\n\"\>", "\[InvisibleSpace]", "\<\"Read more at \ http://tqft.net/wiki/Atlas_of_subfactors\"\>"}], SequenceForm[ "Loading FusionAtlas` version 0\n", "Read more at http://tqft.net/wiki/Atlas_of_subfactors"], Editable->False]], "Print", ShowCellLabel->True, CellChangeTimes->{3.4639238311911297`*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Loading FusionAtlas` version 0\\n\"\>", "\[InvisibleSpace]", "\<\"Read more at \ http://tqft.net/wiki/Atlas_of_subfactors\"\>"}], SequenceForm[ "Loading FusionAtlas` version 0\n", "Read more at http://tqft.net/wiki/Atlas_of_subfactors"], Editable->False]], "Print", ShowCellLabel->True, CellChangeTimes->{3.463923831197297*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Found precomputed data in \"\>", "\[InvisibleSpace]", \ "\<\"/Users/scott/projects/fusionatlas/code/data\"\>"}], SequenceForm[ "Found precomputed data in ", "/Users/scott/projects/fusionatlas/code/data"], Editable->False]], "Print", ShowCellLabel->True, CellChangeTimes->{3.463923831235017*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Found precomputed data in \"\>", "\[InvisibleSpace]", \ "\<\"/Users/scott/projects/fusionatlas/code/data\"\>"}], SequenceForm[ "Found precomputed data in ", "/Users/scott/projects/fusionatlas/code/data"], Editable->False]], "Print", ShowCellLabel->True, CellChangeTimes->{3.463923831240065*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Loading FusionAtlas` version 0\\n\"\>", "\[InvisibleSpace]", "\<\"Read more at \ http://tqft.net/wiki/Atlas_of_subfactors\"\>"}], SequenceForm[ "Loading FusionAtlas` version 0\n", "Read more at http://tqft.net/wiki/Atlas_of_subfactors"], Editable->False]], "Print", ShowCellLabel->True, CellChangeTimes->{3.463923832186211*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Loading FusionAtlas` version 0\\n\"\>", "\[InvisibleSpace]", "\<\"Read more at \ http://tqft.net/wiki/Atlas_of_subfactors\"\>"}], SequenceForm[ "Loading FusionAtlas` version 0\n", "Read more at http://tqft.net/wiki/Atlas_of_subfactors"], Editable->False]], "Print", ShowCellLabel->True, CellChangeTimes->{3.4639238322284*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Found precomputed data in \"\>", "\[InvisibleSpace]", \ "\<\"/Users/scott/projects/fusionatlas/code/data\"\>"}], SequenceForm[ "Found precomputed data in ", "/Users/scott/projects/fusionatlas/code/data"], Editable->False]], "Print", ShowCellLabel->True, CellChangeTimes->{3.463923832694175*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Found precomputed data in \"\>", "\[InvisibleSpace]", \ "\<\"/Users/scott/projects/fusionatlas/code/data\"\>"}], SequenceForm[ "Found precomputed data in ", "/Users/scott/projects/fusionatlas/code/data"], Editable->False]], "Print", ShowCellLabel->True, CellChangeTimes->{3.463923832729471*^9}] }, Open ]], Cell[BoxData[ RowBox[{"{", RowBox[{"Null", ",", "Null", ",", "Null", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{3.4638840553360577`*^9, 3.463922762431015*^9, 3.463923832774938*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParallelEvaluate", "[", RowBox[{ RowBox[{"SetDebugMode", "[", "False", "]"}], ";", RowBox[{"SetDebugQueueInterval", "[", "1.", "]"}], ";"}], "]"}]], "Input", CellChangeTimes->{{3.447962545032419*^9, 3.447962549718626*^9}, { 3.463884066005042*^9, 3.463884073235195*^9}, {3.4639227346640463`*^9, 3.46392273705334*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"Null", ",", "Null", ",", "Null", ",", "Null"}], "}"}]], "Output", CellChangeTimes->{3.463884115384694*^9, 3.4639227634100933`*^9, 3.463922807269603*^9, 3.4639238333452597`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"ParallelEvaluate", "[", RowBox[{"WorkOnObstructionsQueue", "[", "]"}], "]"}]], "Input", CellChangeTimes->{{3.463866928430181*^9, 3.463866932873273*^9}, 3.463866983144533*^9, {3.463884085116096*^9, 3.463884089074923*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"V", "::", "\<\"shdw\"\>"}], RowBox[{ ":", " "}], "\<\"Symbol \\!\\(\\\"V\\\"\\) appears in multiple contexts \\!\ \\({\\\"Combinatorica`\\\", \\\"Global`\\\"}\\); definitions in context \ \\!\\(\\\"Combinatorica`\\\"\\) may shadow or be shadowed by other \ definitions.\"\>"}]], "Message", "MSG", ShowCellLabel->True, CellChangeTimes->{3.463923841831414*^9}], Cell[BoxData[ RowBox[{ RowBox[{"V", "::", "\<\"shdw\"\>"}], RowBox[{ ":", " "}], "\<\"Symbol \\!\\(\\\"V\\\"\\) appears in multiple contexts \\!\ \\({\\\"Combinatorica`\\\", \\\"Global`\\\"}\\); definitions in context \ \\!\\(\\\"Combinatorica`\\\"\\) may shadow or be shadowed by other \ definitions.\"\>"}]], "Message", "MSG", ShowCellLabel->True, CellChangeTimes->{3.463923841873948*^9}], Cell[BoxData[ RowBox[{ RowBox[{"V", "::", "\<\"shdw\"\>"}], RowBox[{ ":", " "}], "\<\"Symbol \\!\\(\\\"V\\\"\\) appears in multiple contexts \\!\ \\({\\\"Combinatorica`\\\", \\\"Global`\\\"}\\); definitions in context \ \\!\\(\\\"Combinatorica`\\\"\\) may shadow or be shadowed by other \ definitions.\"\>"}]], "Message", "MSG", ShowCellLabel->True, CellChangeTimes->{3.463923842427587*^9}], Cell[BoxData[ RowBox[{ RowBox[{"V", "::", "\<\"shdw\"\>"}], RowBox[{ ":", " "}], "\<\"Symbol \\!\\(\\\"V\\\"\\) appears in multiple contexts \\!\ \\({\\\"Combinatorica`\\\", \\\"Global`\\\"}\\); definitions in context \ \\!\\(\\\"Combinatorica`\\\"\\) may shadow or be shadowed by other \ definitions.\"\>"}]], "Message", "MSG", ShowCellLabel->True, CellChangeTimes->{3.463923842492728*^9}] }, Open ]] }, Evaluator->"Local (2)", WindowSize->{640, 750}, WindowMargins->{{20, Automatic}, {Automatic, 44}}, FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[545, 20, 90, 1, 27, "Input"], Cell[638, 23, 311, 8, 43, "Input"], Cell[CellGroupData[{ Cell[974, 35, 418, 7, 27, "Input"], Cell[1395, 44, 466, 11, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[1898, 60, 185, 3, 27, "Input"], Cell[2086, 65, 422, 10, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[2545, 80, 123, 2, 27, "Input"], Cell[2671, 84, 518, 12, 43, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[3226, 101, 325, 9, 58, "Input"], Cell[CellGroupData[{ Cell[3576, 114, 423, 10, 36, "Print"], Cell[4002, 126, 384, 9, 20, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[4435, 141, 477, 11, 73, "Input"], Cell[CellGroupData[{ Cell[4937, 156, 394, 10, 36, "Print"], Cell[5334, 168, 392, 10, 36, "Print"], Cell[5729, 180, 355, 9, 20, "Print"], Cell[6087, 191, 355, 9, 20, "Print"], Cell[6445, 202, 392, 10, 36, "Print"], Cell[6840, 214, 390, 10, 36, "Print"], Cell[7233, 226, 355, 9, 20, "Print"], Cell[7591, 237, 355, 9, 20, "Print"] }, Open ]], Cell[7961, 249, 196, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8194, 258, 356, 7, 27, "Input"], Cell[8553, 267, 220, 4, 27, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8810, 276, 252, 4, 27, "Input"], Cell[9065, 282, 400, 9, 41, "Message"], Cell[9468, 293, 400, 9, 41, "Message"], Cell[9871, 304, 400, 9, 41, "Message"], Cell[10274, 315, 400, 9, 41, "Message"] }, Open ]] } ] *) (* End of internal cache information *)