(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 3.0,
MathReader 3.0, or any compatible application. The data for the notebook 
starts with the line of stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[      9214,        310]*)
(*NotebookOutlinePosition[     11180,        375]*)
(*  CellTagsIndexPosition[     11059,        367]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Some More Features of Mathematica notebooks",
  FontSlant->"Italic"]], "Title",
  TextAlignment->Center,
  FontSize->29,
  CellTags->"T.8"],

Cell[TextData[{
  "\tA lot of the material from this notebook was obtained from Wolfram \
Research, the makers of Mathematica and MathReader.  This notebook lists some \
features of ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " notebooks and teaches you how to add some of these additional features \
into your notebook.  "
}], "Text"],

Cell[CellGroupData[{

Cell["List of More Notebook Features", "Section"],

Cell[TextData[
" \[Bullet]  Notebooks are automatically organized in a hierarchy of cells."],
   "Text",
  CellDingbat->None,
  CellTags->"T.8"],

Cell[TextData[
" \[Bullet]  You can close groups of cells so you see only their headings."], 
  "Text",
  CellDingbat->None,
  CellTags->"T.8"],

Cell[TextData[
" \[Bullet]  You can use hyperlinks to jump within a notebook or between \
notebooks."], "Text",
  CellDingbat->None,
  CellTags->"T.8"],

Cell[TextData[{
  StyleBox[" \[Bullet]  Mathematica",
    FontSlant->"Italic"],
  " notebooks are automatically retargeted for screen or \
printout\[LongDash]optimizing fonts        and layout for each medium."
}], "Text",
  CellDingbat->None,
  CellTags->"T.8"],

Cell[TextData[{
  "   \[Bullet]  Everything in the ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " Help Browser is a notebook \[LongDash] including the complete on-line  ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " Book."
}], "PullQuote",
  CellDingbat->None,
  CellTags->"T.8"],

Cell[TextData[{
  StyleBox[" \[Bullet]  Mathematica",
    FontSlant->"Italic"],
  " provides hundreds of options that allow you to give notebooks any look \
you want and to generate full publication-quality documents."
}], "Text",
  CellDingbat->None,
  CellTags->"T.8"],

Cell[TextData[{
  "Here is some ordinary text. It can be in any ",
  StyleBox["font",
    FontFamily->"Courier",
    FontSize->13],
  ", ",
  StyleBox["face",
    FontFamily->"Helvetica",
    FontWeight->"Bold"],
  ",",
  StyleBox[" size",
    FontSize->24],
  StyleBox[", ",
    FontSize->16],
  StyleBox["color",
    FontFamily->"Helvetica",
    FontSize->16,
    FontWeight->"Bold",
    FontColor->RGBColor[1, 0, 0]],
  StyleBox[", ",
    FontSize->16],
  "etc.  You can have special characters such as ",
  StyleBox["\[Wolf]",
    FontSize->16],
  " as well as formulas such as ",
  Cell[BoxData[
      \(TraditionalForm
      \`\[Integral]\(1\/\(x\^5 - 1\)\) \[DifferentialD]x\)]],
  " embedded in text."
}], "Text",
  FontFamily->"Times",
  CellTags->"T.8"],

Cell[TextData[{
  StyleBox["   \[Bullet]  Mathematica",
    FontSlant->"Italic"],
  " makes it easy to set up tables and arrays."
}], "Commentary",
  CellTags->"T.8"],

Cell[BoxData[
    TagBox[GridBox[{
          {\(\[Alpha]\^2 - \[Beta]\), 
            \(\((\[Alpha] - \[Beta])\)\ \((\[Alpha] + \[Beta])\)\), 
            \(\[Alpha]\^2 - \[Beta]\^3\)},
          {\(\[Alpha]\^3 - \[Beta]\), \(\[Alpha]\^3 - \[Beta]\^2\), 
            \(\((\[Alpha] - \[Beta])\)\ 
              \((\[Alpha]\^2 + \[Alpha]\ \[Beta] + \[Beta]\^2)\)\)}
          },
        RowSpacings->1,
        ColumnSpacings->3,
        RowAlignments->Baseline,
        ColumnAlignments->{Left}],
      (TableForm[ #]&)]], "Output",
  PageWidth->460,
  CellFrame->True,
  CellMargins->{{18, 21}, {Inherited, Inherited}},
  Background->RGBColor[0.996109, 0.996109, 0.500008],
  CellTags->"T.8"],

Cell[TextData[{
  StyleBox["   \[Bullet]  Mathematica",
    FontSlant->"Italic"],
  " lets you set up spacing and justification for text."
}], "Commentary",
  CellTags->"T.8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Hyperlinks", "Section",
  CellTags->"hyperlink"],

Cell[TextData[{
  "\tMathematica allows users to hyperlink text to other parts of the same \
notebook, to a new notebook or to the world wide web.  To hyperlink text, \
highlite the text first.  Once it has been hightlited, go to the \"",
  StyleBox["Input",
    FontWeight->"Bold"],
  "\" Menu and click on \"",
  StyleBox["Create hyperlink",
    FontWeight->"Bold"],
  ".\"  This will cause the hyperlink menu to pop up.  In this menu you can \
choose to link to the web by entering the URL of a web page in the window \
that appears or to another notebook by entering the location of another \
notebook using the \"",
  StyleBox["browse",
    FontWeight->"Bold"],
  "\" button.  By clicking on \"",
  StyleBox["OK,\"",
    FontWeight->"Bold"],
  " the text becomes blue and underlined.  "
}], "Text",
  CellTags->"hyperlink"],

Cell[TextData[{
  "\t\t",
  ButtonBox["These words are hyperlinked text",
    ButtonData:>"tag",
    ButtonStyle->"Hyperlink"],
  ".  It will take you to the next cell.  "
}], "Text",
  FontSize->14,
  FontSlant->"Italic",
  CellTags->"hyperlink"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Cell Tags", "Section",
  CellTags->"tag"],

Cell[TextData[{
  "\tThis section is related to hyperlinking.  Sometimes you may want to \
hyperlink to another part of your notebook.  In this case you first have to \
attach a cell tag to the cell that you want to link to.  To do this, first \
click on the cell bracket of the cell that you want to tag.  Then go to the \
\"",
  StyleBox["Find",
    FontWeight->"Bold"],
  "\" menu and select \"",
  StyleBox["Add/Remove Cell Tags...",
    FontWeight->"Bold"],
  "\"  This is where you can type in the tag that you want to give the \
highlited cell.  Click on \"",
  StyleBox["OK",
    FontWeight->"Bold"],
  "\" once you are done.\n\tNow, go to the text that you want to hyperlink to \
that cell.  Highlite this text and hyperlink it, as explained in the previous \
section, to the cell with the tag that you just typed in.  This will cause \
the text to link to the cell that you chose."
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Buttons", "Section"],

Cell[TextData[{
  "\tButtons are created similar to hyperlinks.  To create a button, first \
place the cursor at the position that you want to create the button.  Then go \
to the \"",
  StyleBox["Input",
    FontWeight->"Bold"],
  "\" menu and click on \"",
  StyleBox["Create Button",
    FontWeight->"Bold"],
  ".\"  A sub-menu pops up, from which you can select what kind of button you \
want.  For example, to create a hyperlink button, you can select hyperlink \
from the sub-menu that pops up.  The button below was created in this way."
}], "Text"],

Cell[TextData[Cell[BoxData[
    FormBox[
      ButtonBox[
        FormBox[
          ButtonBox[\(Back\ to\ the\ Hyperlink\ Section\),
            ButtonStyle->"Hyperlink"],
          "TraditionalForm"],
        ButtonData:>"hyperlink",
        ButtonStyle->"Hyperlink"], TraditionalForm]]]], "Text",
  TextAlignment->Center]
}, Open  ]],

Cell[CellGroupData[{

Cell["Printing Notebooks", "Section"],

Cell[TextData[{
  "\tTo print notebooks, you have to make sure that your printer is set-up \
properly.  You can do this by clicking on \"",
  StyleBox["Printer Settings-->Printer Options",
    FontWeight->"Bold"],
  "\" under the \"",
  StyleBox["File",
    FontWeight->"Bold"],
  "\" menu.  This will allow you to choose how you would like the notebooks \
to be printed out."
}], "Text"],

Cell[TextData[{
  "|| ",
  ButtonBox["Back to the Main Tutorial",
    ButtonData:>{"makemathnotebk.nb", "more"},
    ButtonStyle->"Hyperlink"],
  "  ||"
}], "Text",
  TextAlignment->Center]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"Macintosh 3.0",
ScreenRectangle->{{0, 832}, {0, 604}},
WindowSize->{520, 509},
WindowMargins->{{132, Automatic}, {-103, Automatic}},
MacintoshSystemPageSetup->"\<\
00<0001804P000000]P2:?oQon82n@960dL5:0?l0080001804P000000]P2:001
0000I00000400`<300000BL?00400@0000000000000006P801T1T00000000000
00000000000000000000000000000000\>"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{
  "T.8"->{
    Cell[1731, 51, 163, 4, 122, "Title",
      CellTags->"T.8"],
    Cell[2322, 71, 144, 4, 30, "Text",
      CellTags->"T.8"],
    Cell[2469, 77, 143, 4, 30, "Text",
      CellTags->"T.8"],
    Cell[2615, 83, 151, 4, 30, "Text",
      CellTags->"T.8"],
    Cell[2769, 89, 262, 7, 48, "Text",
      CellTags->"T.8"],
    Cell[3034, 98, 303, 10, 40, "PullQuote",
      CellTags->"T.8"],
    Cell[3340, 110, 270, 7, 48, "Text",
      CellTags->"T.8"],
    Cell[3613, 119, 763, 31, 63, "Text",
      CellTags->"T.8"],
    Cell[4379, 152, 166, 5, 24, "Commentary",
      CellTags->"T.8"],
    Cell[4548, 159, 692, 18, 62, "Output",
      CellTags->"T.8"],
    Cell[5243, 179, 175, 5, 24, "Commentary",
      CellTags->"T.8"]},
  "hyperlink"->{
    Cell[5455, 189, 54, 1, 50, "Section",
      CellTags->"hyperlink"],
    Cell[5512, 192, 828, 20, 130, "Text",
      CellTags->"hyperlink"],
    Cell[6343, 214, 247, 9, 33, "Text",
      CellTags->"hyperlink"]},
  "tag"->{
    Cell[6627, 228, 47, 1, 50, "Section",
      CellTags->"tag"]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"T.8", 10001, 330},
  {"hyperlink", 10741, 353},
  {"tag", 10967, 360}
  }
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1731, 51, 163, 4, 122, "Title",
  CellTags->"T.8"],
Cell[1897, 57, 348, 8, 64, "Text"],

Cell[CellGroupData[{
Cell[2270, 69, 49, 0, 50, "Section"],
Cell[2322, 71, 144, 4, 30, "Text",
  CellTags->"T.8"],
Cell[2469, 77, 143, 4, 30, "Text",
  CellTags->"T.8"],
Cell[2615, 83, 151, 4, 30, "Text",
  CellTags->"T.8"],
Cell[2769, 89, 262, 7, 48, "Text",
  CellTags->"T.8"],
Cell[3034, 98, 303, 10, 40, "PullQuote",
  CellTags->"T.8"],
Cell[3340, 110, 270, 7, 48, "Text",
  CellTags->"T.8"],
Cell[3613, 119, 763, 31, 63, "Text",
  CellTags->"T.8"],
Cell[4379, 152, 166, 5, 24, "Commentary",
  CellTags->"T.8"],
Cell[4548, 159, 692, 18, 62, "Output",
  CellTags->"T.8"],
Cell[5243, 179, 175, 5, 24, "Commentary",
  CellTags->"T.8"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5455, 189, 54, 1, 50, "Section",
  CellTags->"hyperlink"],
Cell[5512, 192, 828, 20, 130, "Text",
  CellTags->"hyperlink"],
Cell[6343, 214, 247, 9, 33, "Text",
  CellTags->"hyperlink"]
}, Open  ]],

Cell[CellGroupData[{
Cell[6627, 228, 47, 1, 50, "Section",
  CellTags->"tag"],
Cell[6677, 231, 903, 19, 146, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7617, 255, 26, 0, 50, "Section"],
Cell[7646, 257, 556, 12, 98, "Text"],
Cell[8205, 271, 324, 9, 38, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8566, 285, 37, 0, 50, "Section"],
Cell[8606, 287, 388, 10, 64, "Text"],
Cell[8997, 299, 189, 7, 30, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)