MathGroup Archive 2007

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Documentation Center (v6): do-it-yourself Mathematica

  • To: mathgroup at smc.vnet.net
  • Subject: [mg79818] Re: [mg79791] Documentation Center (v6): do-it-yourself Mathematica
  • From: Murray Eisenberg <murray at math.umass.edu>
  • Date: Sun, 5 Aug 2007 04:57:25 -0400 (EDT)
  • Organization: Mathematics & Statistics, Univ. of Mass./Amherst
  • References: <200708041000.GAA06032@smc.vnet.net>
  • Reply-to: murray at math.umass.edu

Thank you so much for this first attempt!  But something appears to be 
wrong in the way that the structure of what is found is written:

(1) The notebook created has only the part "A practical introduction to 
Mathematica" as a section.  The other two parts, "Principles of 
Mathematica" and "Advanced Mathematics in Mathematica", have these 
titles run-on in the middle of other Text lines:

   Testing and VerificationPrinciples of 
MathematicaExpressionsEverything Is an Expression

   MathematicaNew: 
SystemAdministrationForSingleUserLicensesMathematicaAdvanced Mathematics 
in MathematicaNumbersTypes of Numbers

(Each of these is one single line of text!)

(2) In fact, starting with the Subsection "BuildingUpCalculations", 
although its first two entries,

   Using Previous Results

   Defining Variables

are OK, each appearing in a separate text cell, after that EVERYTHING is 
within a single text cell with many subsections and items within those 
subsections run together within single lines.


thomas wrote:
> Many users on this discussion group have complained about the absence
> of "The Mathematica Book" in the new Documentation Center; mainly
> because of a missing linear introductory text of Mathematica which was
> present in the old Help system.
> 
> I completely agree. However, I noticed that the various tutorial files
> in the Documentation center contain the text of "The Book". What is
> really missing is the outline. So I decided to build my own do-it-
> yourself version of the book. It turned out to be quite simple, thanks
> to the ingenious naming rules of the tutorial files (all main chapter
> TOC files end with "...Overview.nb".)
> 
> The following code opens a new notebook, and prints a collection of
> hyperlinks to Documentation Center tutorials, laid out in the order of
> the good old Mathematica book. Simply execute the code and save the
> notebook for your own use. There are 11 chapters that I could not find
> in "The Mathematica Book" of the v5.2 Help system, I integrated them
> in an order that seemed most appropriate to me. The are marked by
> "New: ".
> 
> Note that this link collection does not contain links to all
> tutorials. For example, no links to the "Manipulate" tutorials exist.
> Neither are the packages represented.
> 
> Also be warned that the code opens help files to extract hyperlinks
> for incorporation in "The Book", and closes them again. Lots of
> windows appearing and disappearing on the screen. There will also be
> warnings and a "beeps" popping up because of a mismatch in cell
> styles, which you can ignore. Everything works fine despite the
> mismatch. At the end, just close the "Why the beep" dialog box.
> 
> Here is the code that you need to execute to build your own book in
> v6.0.x:
> 
> fn = FileNames[
>    "*Overview.nb", $InstallationDirectory <>
>     "\\Documentation\\English\\System\\Tutorials\\"];
> (*Find "Overview.nb" files in the tutorials-directory*)
> 
> nameList = {StringTake[#, {StringPosition[#, "\\"][[-1, 1]] +
>         1, -12}],
>      "paclet:tutorial/" <>
>       StringTake[#, {StringPosition[#, "\\"][[-1, 1]] +
>          1, -4}], #} & /@ fn;
> (*create a list of strings needed for future code*)
> 
> Do[nameList[[i, 1]] =
>    "New: " <> nameList[[i, 1]], {i, {3, 6, 7, 8, 18, 28, 29, 40, 41,
>     46, 48}}];
> (* mark the chapter not present in v5.2 with "New: "*)
> 
> orderOfChapters = {{36, 3, 8, 31, 4, 47, 1, 39, 32, 14, 20, 16, 18,
>     17, 11, 43}, {10, 13, 35, 48, 22, 45, 9, 27, 38, 42, 44, 23, 12,
>     26, 15, 40, 41}, {30, 25, 2, 21, 5, 7, 37, 19, 33, 34, 28, 29, 6,
>     46, 24}};
> (*The file list is alphabetical-this is the order in which the \
> chapters should appear*)
> 
> structure = Table[nameList[[i]], {k, 3}, {i, orderOfChapters[[k]]}];
> (*needed for the code further down-represents the structure of the \
> Matehmatica book*)
> 
> mainChapters = {"A practical introduction to Mathematica",
>    "Principles of Mathematica",
>    "Advanced Mathematics in Mathematica"};
> (*The three main headings*)
> 
> d[x_] := Cell[
>    BoxData[TagBox[
>      ButtonBox[
>       PaneSelectorBox[{False -> x[[1]],
>         True -> StyleBox[x[[1]], "HyperlinkActive"]},
>        Dynamic[CurrentValue["MouseOver"]],
>        BaselinePosition -> Baseline, FrameMargins -> 0,
>        ImageSize -> Automatic], BaseStyle -> "Link",
>       ButtonData -> x[[2]], ButtonNote -> x[[2]]],
>      Annotation[#, x[[2]], "Hyperlink"] &]], "Subsection"];
> (*Cell representing a hyperlink to the "...Overview.nb" files*)
> 
> nb = NotebookPut[];
> SetOptions[nb, StyleDefinitions -> "Book\\Textbook.nb"];
> NotebookWrite[
>   nb, {Cell["The Virtual Mathematica Book (v6)", "Title"],
>    Cell["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\".", "Author"]}];
> Do[NotebookWrite[nb, Cell[mainChapters[[k]], "Section"]];
>   Do[NotebookWrite[nb, d[i]];
>    With[{nb1 = NotebookOpen[i[[3]]]},
>     NotebookFind[nb1, "TOCChapter", All, CellStyle];
>     NotebookWrite[nb, NotebookRead[nb1]]; NotebookClose[nb1]], {i,
>     structure[[k]]}], {k, 3}];
> SelectionMove[nb, All, Notebook]; FrontEndExecute[
>  FrontEndToken["SelectionCloseAllGroups"]]; FrontEndExecute[
>  FrontEndToken["OpenCloseGroup"]];
> (*Creates the Mathematica Book.The With[...] block in the middle \
> opens an "Overview.nb" file,extracts the embedded hyperlinks,and \
> prints those into the Mathematica Book as well.*)
> 
> I hope that you might find this as helpful as I do!
> 
> Happy clicking,
> Thomas
> 
> 

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305


  • Prev by Date: Re: Re: Working with factors of triangular numbers.
  • Next by Date: Integro-differential analog of Love's equation via power series
  • Previous by thread: Re: Re: Documentation Center (v6): do-it-yourself Mathematica
  • Next by thread: Re: Documentation Center (v6): do-it-yourself Mathematica Book