Mathematica Book and Documentation
- To: mathgroup at smc.vnet.net
- Subject: [mg85516] Mathematica Book and Documentation
- From: "David Park" <djmpark at comcast.net>
- Date: Wed, 13 Feb 2008 04:14:16 -0500 (EST)
There were some postings in the 'How should I get started with Mathematica' thread about the lack of a printed book. In August 2007 there were postings on the question of the old book organization and Thomas Muench posted some code that would create a Virtual Mathematica Book from the documentation material. I have pasted his code at the end of this posting. Paste it into a blank notebook and evaluate. It will create a Virtual Book notebook. One nice thing about this virtual book is that it has a listing of all the supplied 'standard' packages, which I find otherwise difficult to find. I do not think an actual printed book is that useful with the new Mathematica 6 because it is impossible to reproduce dynamic behavior on a static printed page. The world changes and the elderly can adapt as well as the young. We've had more practice. I think that one way to improve the new Version 6 documentation would be to increase the density of information on the 'index pages'. One should not have to go through a number of levels of index pages to get to the required information. I think this would go a long way to decreasing complaints. -- David Park djmpark at comcast.net http://home.comcast.net/~djmpark/ Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"-=", RowBox[{"=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Make"}], " ", "\"\<The Mathematica Book\>\"", " ", "based", " ", "on", " ", "\"\<...Overview.nb\>\"", " ", "files", " ", "in", " ", "the", " ", "tutorials", " ", "directory"}], "-="}], "=", "-"}]}]}], "*)"}], RowBox[{ RowBox[{ RowBox[{"fn", "=", RowBox[{"FileNames", "[", RowBox[{"\"\<*Overview.nb\>\"", ",", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "$InstallationDirectory", ",", "\"\<Documentation\>\"", ",", "\"\<English\>\"", ",", "\"\<System\>\"", ",", "\"\<Tutorials\>\""}], "}"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "Find", " ", "\"\<Overview.nb\>\"", " ", "files", " ", "in", " ", "the", " ", "tutorials"}], "-", "directory"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nameList", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "+", "1"}], ",", RowBox[{"-", "12"}]}], "}"}]}], "]"}], ",", RowBox[{"\"\<paclet:tutorial/\>\"", "<>", RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "+", "1"}], ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}]}], ",", "#"}], "}"}], "&"}], "/@", "fn"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ "create", " ", "a", " ", "list", " ", "of", " ", "strings", " ", "needed", " ", "for", " ", "future", " ", "code"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"nameList", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}], "=", RowBox[{"\"\<New: \>\"", "<>", RowBox[{"nameList", "[", RowBox[{"[", RowBox[{"i", ",", "1"}], "]"}], "]"}]}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"{", RowBox[{ "3", ",", "6", ",", "7", ",", "8", ",", "18", ",", "28", ",", "29", ",", "40", ",", "41", ",", "46", ",", "48"}], "}"}]}], "}"}]}], "]"}], ";"}], "\n", RowBox[{"(*", RowBox[{ "mark", " ", "the", " ", "chapter", " ", "not", " ", "present", " ", "in", " ", "v5", ".2", " ", "with", " ", "\"\<New: \>\""}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"orderOfChapters", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "36", ",", "3", ",", "8", ",", "31", ",", "4", ",", "47", ",", "1", ",", "39", ",", "32", ",", "14", ",", "20", ",", "16", ",", "18", ",", "17", ",", "11", ",", "43"}], "}"}], ",", RowBox[{"{", RowBox[{ "10", ",", "13", ",", "35", ",", "48", ",", "22", ",", "45", ",", "9", ",", "27", ",", "38", ",", "42", ",", "44", ",", "23", ",", "12", ",", "26", ",", "15", ",", "40", ",", "41"}], "}"}], ",", RowBox[{"{", RowBox[{ "30", ",", "25", ",", "2", ",", "21", ",", "5", ",", "7", ",", "37", ",", "19", ",", "33", ",", "34", ",", "28", ",", "29", ",", "6", ",", "46", ",", "24"}], "}"}]}], "}"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "The", " ", "file", " ", "list", " ", "is", " ", "alphabetical"}], "-", RowBox[{ "this", " ", "is", " ", "the", " ", "order", " ", "in", " ", "which", " ", "the", " ", "chapters", " ", "should", " ", "appear"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"structure", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"nameList", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"orderOfChapters", "[", RowBox[{"[", "k", "]"}], "]"}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "needed", " ", "for", " ", "the", " ", "code", " ", "further", " ", "down"}], "-", RowBox[{ "represents", " ", "the", " ", "structure", " ", "of", " ", "the", " ", "Mathematica", " ", "book"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"mainChapters", "=", RowBox[{"{", RowBox[{ "\"\<Getting Started\>\"", ",", "\"\<A Practical Introduction to Mathematica\>\"", ",", "\"\<Principles of Mathematica\>\"", ",", "\"\<Advanced Mathematics in Mathematica\>\"", ",", "\"\<Reference Guide\>\"", ",", "\"\<Further Tutorials\>\"", ",", "\"\<Packages\>\""}], "}"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{"The", " ", "three", " ", "main", " ", "headings"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"beautify", "[", "ugly_", "]"}], ":=", RowBox[{"StringReplace", "[", RowBox[{ RowBox[{"StringReplace", "[", RowBox[{"ugly", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"l1_", "?", "LowerCaseQ"}], "~~", RowBox[{"l2_", "?", "UpperCaseQ"}]}], "\[RuleDelayed]", RowBox[{"l1", "<>", "\"\< \>\"", "<>", "l2"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"\"\< And \>\"", "\[Rule]", "\"\< and \>\""}], ",", RowBox[{"\"\< Of \>\"", "\[Rule]", "\"\< of \>\""}], ",", RowBox[{"\"\< In \>\"", "\[Rule]", "\"\< in \>\""}], ",", RowBox[{"\"\< The \>\"", "\[Rule]", "\"\< the \>\""}], ",", RowBox[{"\"\< For \>\"", "\[Rule]", "\"\< for \>\""}]}], "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "based", " ", "on", " ", "code", " ", "by", " ", "Selwyn", " ", "Hollis"}], "-", RowBox[{"Thanks", "!"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"d", "[", RowBox[{"x_", ",", RowBox[{"style_:", " ", "\"\<Section\>\""}], ",", RowBox[{"margin_:", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"36", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}]}]}], "]"}], ":=", RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"sectitle", "=", RowBox[{"beautify", "[", RowBox[{"x", "[", RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"BoxData", "[", RowBox[{"ButtonBox", "[", RowBox[{ RowBox[{"PaneSelectorBox", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"False", "\[Rule]", "sectitle"}], ",", RowBox[{"True", "\[Rule]", RowBox[{"StyleBox", "[", RowBox[{"sectitle", ",", "\"\<HyperlinkActive\>\""}], "]"}]}]}], "}"}], ",", RowBox[{"Dynamic", "[", RowBox[{"CurrentValue", "[", "\"\<MouseOver\>\"", "]"}], "]"}]}], "]"}], ",", RowBox[{"BaseStyle", "\[Rule]", RowBox[{"{", RowBox[{"\"\<Link\>\"", ",", "style"}], "}"}]}], ",", RowBox[{"ButtonData", "\[Rule]", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"ButtonNote", "\[Rule]", RowBox[{"x", "[", RowBox[{"[", "2", "]"}], "]"}]}]}], "]"}], "]"}], ",", "style", ",", RowBox[{"CellDingbat", "\[Rule]", "None"}], ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}], ",", RowBox[{"CellMargins", "\[Rule]", "margin"}]}], "]"}]}], "]"}]}], "\n", RowBox[{"(*", RowBox[{ "Cell", " ", "representing", " ", "a", " ", "hyperlink", " ", "to", " ", "a", " ", "file"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nb", "=", RowBox[{"NotebookPut", "[", "]"}]}], ";", RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"StyleDefinitions", "\[Rule]", RowBox[{"ToFileName", "[", RowBox[{"\"\<Wolfram\>\"", ",", "\"\<Reference.nb\>\""}], "]"}]}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Open", " ", "new", " ", "Notebook"}], "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"{", RowBox[{ RowBox[{"Cell", "[", RowBox[{ RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"ToBoxes", "[", RowBox[{"Import", "[", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{ "\"\<ExampleData\>\"", ",", "\"\<spikey.tiff\>\""}], "]"}], ",", "\"\<Graphics\>\"", ",", RowBox[{"ImageSize", "\[Rule]", "70"}]}], "]"}], "]"}], ",", RowBox[{"Cell", "[", RowBox[{ "\"\<The Virtual Mathematica Book (v6)\>\"", ",", "\"\<Title\>\"", ",", RowBox[{"TextAlignment", "\[Rule]", "Center"}]}], "]"}]}], "}"}], "]"}], ",", "\"\<Title\>\"", ",", RowBox[{"TextAlignment", "\[Rule]", "Center"}]}], "]"}], ",", RowBox[{"Cell", "[", RowBox[{ "\"\<A collection of links to the tutorials present in the \ Mathematica 6.0 Documentation Center, arranged in the order of \ chapters in \\\"The Mathematica Book\\\".\>\"", ",", "\"\<Text\>\"", ",", RowBox[{"TextAlignment", "\[Rule]", "Center"}]}], "]"}]}], "}"}]}], "]"}], ";"}], "\n", RowBox[{"(*", RowBox[{"Print", " ", "the", " ", "titel"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"StringJoin", "[", RowBox[{"Table", "[", RowBox[{"\"\<xxxxxxxxxx\>\"", ",", RowBox[{"{", "k", "}"}]}], "]"}], "]"}], ",", "\"\<Text\>\""}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"If", "[", RowBox[{ RowBox[{"2", "\[LessEqual]", "k", "\[LessEqual]", "4"}], ",", RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"d", "[", "i", "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"nb1", "=", RowBox[{"NotebookOpen", "[", RowBox[{ RowBox[{"i", "[", RowBox[{"[", "3", "]"}], "]"}], ",", RowBox[{"Visible", "\[Rule]", "False"}]}], "]"}]}], "}"}], ",", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{"nb1", ",", "All", ",", "Notebook"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{ RowBox[{"NotebookRead", "[", "nb1", "]"}], "//.", RowBox[{"{", RowBox[{ RowBox[{"\"\<TOCChapter\>\"", "\[Rule]", RowBox[{"Sequence", "@@", RowBox[{"{", RowBox[{"\"\<Subsection\>\"", ",", RowBox[{"CellDingbat", "\[Rule]", "None"}], ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}], ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}]}], "}"}]}]}], ",", RowBox[{"\"\<TOCSection\>\"", "\[Rule]", RowBox[{"Sequence", "@@", RowBox[{"{", RowBox[{"\"\<Subsubsection\>\"", ",", RowBox[{"CellDingbat", "\[Rule]", "None"}], ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}], ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"58", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}]}], "}"}]}]}], ",", RowBox[{"\"\<TOCSubsection\>\"", "\[Rule]", RowBox[{"Sequence", "@@", RowBox[{"{", RowBox[{"\"\<Subsubsubsection\>\"", ",", RowBox[{"CellDingbat", "\[Rule]", "None"}], ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}], ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"68", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}]}], "}"}]}]}], ",", RowBox[{"\"\<TOCSubsubsection\>\"", "\[Rule]", RowBox[{"Sequence", "@@", RowBox[{"{", RowBox[{"\"\<Text\>\"", ",", RowBox[{"CellDingbat", "\[Rule]", "None"}], ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}], ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"78", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}]}], "}"}]}]}], ",", RowBox[{"ShowCellBracket", "\[Rule]", "True"}]}], "}"}]}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookClose", "[", "nb1", "]"}]}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", RowBox[{"structure", "[", RowBox[{"[", RowBox[{"k", "-", "1"}], "]"}], "]"}]}], "}"}]}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Length", "[", "mainChapters", "]"}]}], "}"}]}], "]"}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "write", " ", "all", " ", "the", " ", "links", " ", "to", " ", "the", " ", "main", " ", "chapters"}], ",", RowBox[{ RowBox[{"as", " ", "well", " ", "as", " ", "to", " ", "sub"}], "-", "chapters"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ "nb", ",", "cellsToDelete", ",", "All", ",", "CellStyle"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookDelete", "[", "nb", "]"}]}], ",", RowBox[{"{", RowBox[{"cellsToDelete", ",", RowBox[{"{", RowBox[{ "\"\<SymbolColorBar\>\"", ",", "\"\<AnchorBarGrid\>\"", ",", "\"\<FooterCell\>\"", ",", "\"\<TOCDocumentTitle\>\""}], "}"}]}], "}"}]}], "]"}], ";"}], "\n", RowBox[{"(*", RowBox[{ "Delete", " ", "unnecessary", " ", "styling", " ", "cells", " ", "that", " ", "are", " ", "part", " ", "of", " ", "the", " ", "tutorial", " ", "notebooks"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"StyleDefinitions", "\[Rule]", RowBox[{"ToFileName", "[", RowBox[{"\"\<Book\>\"", ",", "\"\<Textbook.nb\>\""}], "]"}]}]}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{"nb", ",", RowBox[{"StringJoin", "[", RowBox[{"Table", "[", RowBox[{"\"\<xxxxxxxxxx\>\"", ",", RowBox[{"{", "k", "}"}]}], "]"}], "]"}], ",", "All"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{"nb", ",", "All", ",", "Cell"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"mainChapters", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "\"\<Subtitle\>\"", ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}], ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"10", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "10"}], "}"}]}], "}"}]}], ",", RowBox[{"CellTags", "\[Rule]", RowBox[{"\"\<Section\>\"", "<>", RowBox[{"ToString", "[", "k", "]"}]}]}], ",", RowBox[{"CellFrame", "\[Rule]", RowBox[{"If", "[", RowBox[{ RowBox[{"MemberQ", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "6", ",", "7"}], "}"}], ",", "k"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "2"}], "}"}]}], "}"}], ",", "False"}], "]"}]}]}], "]"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Length", "[", "mainChapters", "]"}], ",", "1", ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{"Finishing", " ", "touches"}], "*)"}], "\[IndentingNewLine]", "\n", RowBox[{"(*", " ", RowBox[{"-=", RowBox[{"=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Add"}], " ", "links", " ", "to", " ", "tutorials", " ", "that", " ", "are", " ", "not", " ", "linked", " ", "yet"}], "-="}], "=", "-"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{"nb", ",", "All", ",", "Notebook"}], "]"}], ";"}], "\n", RowBox[{ RowBox[{"links", "=", RowBox[{"StringCases", "[", RowBox[{ RowBox[{"ToString", "[", RowBox[{ RowBox[{"NotebookRead", "[", "nb", "]"}], ",", "InputForm"}], "]"}], ",", RowBox[{ RowBox[{"Shortest", "[", RowBox[{"(", RowBox[{ "\"\<\\\"paclet:tutorial/\>\"", "~~", "y__", "~~", "\"\<\\\"\>\""}], ")"}], "]"}], "\[RuleDelayed]", "y"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "Extract", " ", "all", " ", "links", " ", "to", " ", "tutorials", " ", "present", " ", "in", " ", "\"\<The Book\>\""}], "..."}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"linkedFiles", "=", RowBox[{"Union", "[", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"StringFreeQ", "[", RowBox[{"#", ",", RowBox[{"\"\<#\>\"", "~~", RowBox[{"DigitCharacter", "..."}]}]}], "]"}], ",", RowBox[{"#", "<>", "\"\<.nb\>\""}], ",", RowBox[{"StringCases", "[", RowBox[{"#", ",", RowBox[{ RowBox[{"(", RowBox[{"y__", "~~", "\"\<#\>\"", "~~", RowBox[{"DigitCharacter", "..."}]}], ")"}], "\[RuleDelayed]", RowBox[{"y", "<>", "\"\<.nb\>\""}]}]}], "]"}]}], "]"}], "&"}], "/@", "links"}], "]"}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{"...", " ", "and", " ", "their", " ", "filenames"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"allTutorials", "=", RowBox[{"Flatten", "[", RowBox[{ RowBox[{ RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "+", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], "/@", RowBox[{"FileNames", "[", RowBox[{"\"\<*.nb\>\"", ",", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "$InstallationDirectory", ",", "\"\<Documentation\>\"", ",", "\"\<English\>\"", ",", "\"\<System\>\"", ",", "\"\<Tutorials\>\""}], "}"}], "]"}]}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ "all", " ", "tutorials", " ", "in", " ", "the", " ", "tutorial", " ", "directory"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"notUsed", "=", RowBox[{"Complement", "[", RowBox[{"allTutorials", ",", "linkedFiles"}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ RowBox[{ "all", " ", "tutorials", " ", "not", " ", "linked", " ", "to", " ", "in", " ", "\"\<The Book\>\"", " ", "so", " ", "far", " ", RowBox[{"(", RowBox[{"in", " ", "alphabetical", " ", "order"}], ")"}]}], ";", RowBox[{ "these", " ", "are", " ", "76", " ", "tutorial", " ", "notebooks"}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nameList", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}], ",", RowBox[{"\"\<paclet:tutorial/\>\"", "<>", RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}]}], ",", RowBox[{ RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "$InstallationDirectory", ",", "\"\<Documentation\>\"", ",", "\"\<English\>\"", ",", "\"\<System\>\"", ",", "\"\<Tutorials\>\""}], "}"}], "]"}], "<>", "#"}]}], "}"}], "&"}], "/@", "notUsed"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ "create", " ", "a", " ", "list", " ", "of", " ", "strings", " ", "needed", " ", "for", " ", "future", " ", "code"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"GettingStarted", "=", RowBox[{"{", RowBox[{"21", ",", "18", ",", "75"}], "}"}]}], ";", RowBox[{"GraphPlotting", "=", RowBox[{"{", RowBox[{"27", ",", "28", ",", "36", ",", "71"}], "}"}]}], ";", RowBox[{"MathematicaReferenceGuide", "=", RowBox[{"{", RowBox[{ "7", ",", "31", ",", "64", ",", "19", ",", "57", ",", "20", ",", "37", ",", "33", ",", "30"}], "}"}]}], ";", RowBox[{"MatrixAndVectorOperations", "=", RowBox[{"{", RowBox[{ "10", ",", "26", ",", "6", ",", "3", ",", "73", ",", "16", ",", "42", ",", "45", ",", "62", ",", "52", ",", "65", ",", "69"}], "}"}]}], ";", RowBox[{"Statistics", "=", RowBox[{"{", RowBox[{"11", ",", "15", ",", "13", ",", "58"}], "}"}]}], ";", RowBox[{"DynamicFeatures", "=", RowBox[{"{", RowBox[{"35", ",", "2", ",", "34", ",", "1"}], "}"}]}], ";", RowBox[{"SystemSpecificTopics", "=", RowBox[{"{", RowBox[{ "17", ",", "32", ",", "60", ",", "50", ",", "51", ",", "53", ",", "41", ",", "44", ",", "38", ",", "39", ",", "40"}], "}"}]}], ";", RowBox[{"FurtherNDSolveTutorials", "=", RowBox[{"{", RowBox[{"46", ",", "47", ",", "48", ",", "49"}], "}"}]}], ";", RowBox[{"FrontendAndFormattingTopics", "=", RowBox[{"{", RowBox[{ "5", ",", "22", ",", "24", ",", "25", ",", "29", ",", "67", ",", "70", ",", "74"}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"topics", "=", RowBox[{"{", RowBox[{ "GettingStarted", ",", "MathematicaReferenceGuide", ",", "GraphPlotting", ",", "MatrixAndVectorOperations", ",", "Statistics", ",", "DynamicFeatures", ",", "SystemSpecificTopics", ",", "FurtherNDSolveTutorials", ",", "FrontendAndFormattingTopics"}], "}"}]}], ";"}], "\n", RowBox[{ RowBox[{"FurtherTopics", "=", RowBox[{"Complement", "[", RowBox[{ RowBox[{"Range", "[", RowBox[{"Length", "[", "notUsed", "]"}], "]"}], ",", RowBox[{"Flatten", "[", "topics", "]"}]}], "]"}]}], ";"}], "\n", RowBox[{ RowBox[{"topics", "=", RowBox[{"Join", "[", RowBox[{"topics", ",", RowBox[{"{", "FurtherTopics", "}"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ "trying", " ", "to", " ", "get", " ", "some", " ", "order", " ", "into", " ", "these", " ", "tutorials"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"topicNames", "=", RowBox[{"{", RowBox[{ "\"\<Getting Started\>\"", ",", "\"\<Mathematica Reference Guide\>\"", ",", "\"\<Graph Plotting\>\"", ",", "\"\<Matrix And Vector Operations\>\"", ",", "\"\<Statistics\>\"", ",", "\"\<Dynamic Features\>\"", ",", "\"\<System Specific Topics\>\"", ",", "\"\<Further NDSolve Tutorials\>\"", ",", "\"\<FrontEnd and Formatting Topics\>\"", ",", "\"\<Others\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", "\n", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ "nb", ",", "\"\<Section1\>\"", ",", "After", ",", "CellTags"}], "]"}], ";", RowBox[{"SelectionMove", "[", RowBox[{"nb", ",", "After", ",", "Cell"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"d", "[", RowBox[{ RowBox[{"nameList", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<Subsection\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "GettingStarted"}], "}"}]}], "]"}], ";"}], "\n", RowBox[{"(*", RowBox[{ "Add", " ", "links", " ", "to", " ", "\"\<getting Started\>\"", " ", "topics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ "nb", ",", "\"\<Section5\>\"", ",", "After", ",", "CellTags"}], "]"}], ";", RowBox[{"SelectionMove", "[", RowBox[{"nb", ",", "After", ",", "Cell"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"d", "[", RowBox[{ RowBox[{"nameList", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<Subsection\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "MathematicaReferenceGuide"}], "}"}]}], "]"}], ";"}], "\n", RowBox[{"(*", RowBox[{ "Add", " ", "links", " ", "to", " ", "\"\<Refrence Guides\>\"", " ", "topics"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ "nb", ",", "\"\<Section6\>\"", ",", "After", ",", "CellTags"}], "]"}], ";", RowBox[{"SelectionMove", "[", RowBox[{"nb", ",", "After", ",", "Cell"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"topicNames", "[", RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<Section\>\"", ",", RowBox[{"CellDingbat", "\[Rule]", "None"}], ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}], ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"36", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}]}]}], "]"}]}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"d", "[", RowBox[{ RowBox[{"nameList", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "\"\<Subsection\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"topics", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "3", ",", RowBox[{"Length", "[", "topics", "]"}]}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ "Add", " ", "links", " ", "to", " ", "all", " ", "other", " ", "topics"}], "*)"}], "\[IndentingNewLine]", "\n", RowBox[{"(*", " ", RowBox[{"-=", RowBox[{"=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "Add"}], " ", "links", " ", "to", " ", "Packages"}], "-="}], "=", "-"}]}]}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fnpdir", "=", RowBox[{"FileNames", "[", RowBox[{"\"\<*\>\"", ",", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "$InstallationDirectory", ",", "\"\<Documentation\>\"", ",", "\"\<English\>\"", ",", "\"\<Packages\>\""}], "}"}], "]"}]}], "]"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ "Directory", " ", "names", " ", "of", " ", "the", " ", "Packages"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fnptut", "=", RowBox[{ RowBox[{ RowBox[{"FileNames", "[", RowBox[{"\"\<*.nb\>\"", ",", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "#", ",", "\"\<Documentation\>\"", ",", "\"\<English\>\"", ",", "\"\<Tutorials\>\""}], "}"}], "]"}], ",", "Infinity"}], "]"}], "&"}], "/@", "fnpdir"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ "tutorial", " ", "notebooks", " ", "of", " ", "the", " ", "Packages"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"fnpguid", "=", RowBox[{ RowBox[{ RowBox[{"FileNames", "[", RowBox[{"\"\<*.nb\>\"", ",", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "#", ",", "\"\<Documentation\>\"", ",", "\"\<English\>\"", ",", "\"\<Guides\>\""}], "}"}], "]"}], ",", "Infinity"}], "]"}], "&"}], "/@", "fnpdir"}]}], ";"}], "\n", RowBox[{"(*", RowBox[{ "guide", " ", "notebooks", " ", "of", " ", "the", " ", "Packages"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"NotebookFind", "[", RowBox[{ "nb", ",", "\"\<Section7\>\"", ",", "After", ",", "CellTags"}], "]"}], ";", RowBox[{"SelectionMove", "[", RowBox[{"nb", ",", "After", ",", "Cell"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Do", "[", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"packageName", "=", RowBox[{ RowBox[{ RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "+", "1"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], StyleBox["&", FontVariations->{"Underline"->True}, FontColor->RGBColor[0., 0., 1.]]}], StyleBox["@", FontVariations->{"Underline"->True}, FontColor->RGBColor[0., 0., 1.]], RowBox[{ StyleBox["fnpdir", FontVariations->{"Underline"->True}, FontColor->RGBColor[0., 0., 1.]], StyleBox["[", FontVariations->{"Underline"->True}, FontColor->RGBColor[0., 0., 1.]], RowBox[{ StyleBox["[", FontVariations->{"Underline"->True}, FontColor->RGBColor[0., 0., 1.]], StyleBox["package", FontVariations->{"Underline"->True}, FontColor->RGBColor[0., 0., 1.]], "]"}], "]"}]}]}], "}"}], ",", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"beautify", "@", "packageName"}], ",", "\"\<Section\>\"", ",", RowBox[{"CellDingbat", "\[Rule]", "None"}], ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}], ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"36", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"5", ",", "5"}], "}"}]}], "}"}]}]}], "]"}]}], "]"}], ";", "\n", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"fnptut", "[", RowBox[{"[", "package", "]"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"level", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringTake", "[", RowBox[{ RowBox[{"fnptut", "[", RowBox[{"[", "package", "]"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Transpose", "[", RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "]"}]}], "&"}], "/@", RowBox[{"fnptut", "[", RowBox[{"[", "package", "]"}], "]"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<Tutorials\>\""}], ",", "1", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nameList", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\<Tutorial: \>\"", "<>", RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "level"}], ",", "1"}], "]"}], "]"}], "+", "1"}], ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}]}], ",", RowBox[{ "\"\<paclet:\>\"", "<>", "packageName", "<>", "\"\</tutorial/\>\"", "<>", RowBox[{"StringReplace", "[", RowBox[{ RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "level"}], ",", "1"}], "]"}], "]"}], "+", "1"}], ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}], ",", RowBox[{ "\"\<\\\\\>\"", "\[Rule]", "\"\</\>\""}]}], "]"}]}]}], "}"}], "&"}], "/@", RowBox[{"fnptut", "[", RowBox[{"[", "package", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"d", "[", RowBox[{ RowBox[{"nameList", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "\"\<Subsection\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Length", "[", RowBox[{"fnptut", "[", RowBox[{"[", "package", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}]}], "]"}], ";", "\n", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{"Length", "[", RowBox[{"fnpguid", "[", RowBox[{"[", "package", "]"}], "]"}], "]"}], ">", "0"}], ",", RowBox[{ RowBox[{"level", "=", RowBox[{"If", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringTake", "[", RowBox[{ RowBox[{"fnpguid", "[", RowBox[{"[", "package", "]"}], "]"}], ",", RowBox[{ RowBox[{"{", RowBox[{"1", ",", RowBox[{"-", "1"}]}], "}"}], "+", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"Take", "[", RowBox[{ RowBox[{"#", "[", RowBox[{"[", "1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", RowBox[{"-", "1"}]}], "}"}]}], "]"}], "&"}], "@", RowBox[{"Transpose", "[", RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "]"}]}], "&"}], "/@", RowBox[{"fnpguid", "[", RowBox[{"[", "package", "]"}], "]"}]}], ")"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}], "\[Equal]", "\"\<Guides\>\""}], ",", "1", ",", "2"}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{"nameList", "=", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\"\<Guide: \>\"", "<>", RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "]"}], "]"}], "+", "1"}], ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}]}], ",", RowBox[{ "\"\<paclet:\>\"", "<>", "packageName", "<>", "\"\</guide/\>\"", "<>", RowBox[{"StringReplace", "[", RowBox[{ RowBox[{"StringTake", "[", RowBox[{"#", ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"StringPosition", "[", RowBox[{"#", ",", "$PathnameSeparator"}], "]"}], "[", RowBox[{"[", RowBox[{ RowBox[{"-", "level"}], ",", "1"}], "]"}], "]"}], "+", "1"}], ",", RowBox[{"-", "4"}]}], "}"}]}], "]"}], ",", RowBox[{ "\"\<\\\\\>\"", "\[Rule]", "\"\</\>\""}]}], "]"}]}]}], "}"}], "&"}], "/@", RowBox[{"fnpguid", "[", RowBox[{"[", "package", "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", RowBox[{"Do", "[", RowBox[{ RowBox[{"NotebookWrite", "[", RowBox[{"nb", ",", RowBox[{"d", "[", RowBox[{ RowBox[{"nameList", "[", RowBox[{"[", "k", "]"}], "]"}], ",", "\"\<Subsection\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"48", ",", "0"}], "}"}], ",", "Inherited"}], "}"}]}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", RowBox[{"Length", "[", RowBox[{"fnpguid", "[", RowBox[{"[", "package", "]"}], "]"}], "]"}]}], "}"}]}], "]"}]}]}], "]"}]}]}], "\n", "]"}], ",", RowBox[{"{", RowBox[{"package", ",", RowBox[{"Length", "[", "fnpdir", "]"}]}], "}"}]}], "]"}], ";"}], "\n", RowBox[{"(*", RowBox[{ "Add", " ", "links", " ", "to", " ", "package", " ", "tutorials", " ", "and", " ", "guides"}], "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"SelectionMove", "[", RowBox[{"nb", ",", "All", ",", "Notebook"}], "]"}], ";", RowBox[{"FrontEndExecute", "[", RowBox[{ "FrontEndToken", "[", "\"\<SelectionCloseAllGroups\>\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"FrontEndExecute", "[", RowBox[{"FrontEndToken", "[", "\"\<OpenCloseGroup\>\"", "]"}], "]"}], ";"}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{3.411770874483*^9}] }, WindowSize->{607, 750}, WindowMargins->{{2, Automatic}, {44, Automatic}}, FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, \ 2007)", StyleDefinitions->"Default.nb" ]
- Follow-Ups:
- Re: Mathematica Book and Documentation
- From: Selwyn Hollis <sh2.7183@earthlink.net>
- Re: Mathematica Book and Documentation