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

                    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[     12104,        369]*)
(*NotebookOutlinePosition[     13098,        403]*)
(*  CellTagsIndexPosition[     13024,        397]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell["Create Your Own Mathematica Notebook", "Title",
  TextAlignment->Center,
  FontSize->35],

Cell[TextData[{
  "\tThis tutorial shows you how to create your own notebook, using one of \
the sample SPIMSOW Notebooks.  It is in two parts. In the first part, you \
will find create your own notebook.  In the second part, you will find out \
how to put your notebook on the web, so that everyone can see it.  You can \
only use this tutorial if you have ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " 2.2 or 3.0 on your computers, although this tutorial has been written for \
Version 3.0.  It will take about a half hour to create the notebook below and \
put it on the web."
}], "Text"],

Cell[CellGroupData[{

Cell["Creating notebook", "Section",
  PageWidth->Infinity,
  FontColor->GrayLevel[0]],

Cell["\<\
\tPlease follow the steps below to create your own Mathematica \
notebook.\
\>", "Text"],

Cell[CellGroupData[{

Cell["Basic Framework", "Subsection"],

Cell[TextData[{
  "\t\[Bullet] Open a new ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " Notebook.  Go to the ",
  StyleBox["File ",
    FontWeight->"Bold"],
  "menu and click on ",
  StyleBox["New.  ",
    FontWeight->"Bold"],
  "This will open up a new ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " notebook for you.  It will be called \"Untitled-1.nb.\"  Now go to the ",
  StyleBox[" Format ",
    FontWeight->"Bold"],
  "menu and scroll down to ",
  StyleBox["Stlye Sheet.  ",
    FontWeight->"Bold"],
  " Under this menu you will find several different styles for notebooks.  \
Click on ",
  StyleBox["TutorialBook",
    FontWeight->"Bold"],
  ".  This makes the notebook have some special formatting before you begin."
}], "Text"],

Cell[TextData[{
  "\t\[Bullet] Save the notebook.  Go to the ",
  StyleBox["File",
    FontWeight->"Bold"],
  " menu and click on ",
  StyleBox["Save As..",
    FontWeight->"Bold"],
  ".Now name your notebook \"",
  StyleBox["anything",
    FontSlant->"Italic"],
  ".nb.\"  Now you are ready to begin your notebook.  Let's assume that you \
want to plot the graph of the function ",
  StyleBox["y =",
    FontWeight->"Bold"],
  Cell[BoxData[
      \(\(\ \ \(-7\) + 4\ x + 6\ x\^2 + 3\ x\^3\)\)],
    FontWeight->"Bold"],
  "  and find the points on the graph where the slope/gradient of the graph \
is zero."
}], "Text"],

Cell[TextData[{
  "\t\[Bullet] Type in \"",
  StyleBox["The Zero Slope of a Function",
    FontWeight->"Bold"],
  "\" at the top of the notebook.  Click on the ",
  StyleBox["blue",
    FontColor->RGBColor[0, 0, 1]],
  " cell bracket on the right side of the cell that appears and format the \
cell as being a ",
  StyleBox["Title",
    FontWeight->"Bold"],
  " cell.  You should do this by going to the Format menu and clicking on ",
  StyleBox["Styles",
    FontWeight->"Bold"],
  " and then on ",
  StyleBox["Title",
    FontWeight->"Bold"],
  ".  Now press on the down arrow key and you will be in the next notebook \
cell.  Type in the following command line:  ",
  StyleBox["y =",
    FontWeight->"Bold"],
  Cell[BoxData[
      StyleBox[\(\(-7\) + 4\ x + 6\ x\^2 + 3\ x\^3\),
        FontWeight->"Bold"]]],
  ".  Press ",
  StyleBox["shift-return",
    FontWeight->"Bold"],
  " or ",
  StyleBox["enter",
    FontWeight->"Bold"],
  " on your computer to evaluate what you have just typed in.  You should get \
\"",
  Cell[BoxData[
      \(\(-7\) + 4\ x + 6\ x\^2 + 3\ x\^3\)]],
  "\" as your output.  Click on the down-arrow key again to get to the next \
cell."
}], "Text"],

Cell[TextData[{
  "\t\[Bullet] Now type in ",
  StyleBox["Plot[y,{x, -5,5}]",
    FontWeight->"Bold"],
  ".  Press ",
  StyleBox["shift-return",
    FontWeight->"Bold"],
  " or ",
  StyleBox["enter",
    FontWeight->"Bold"],
  " on your computer to evaluate this command.  A plot the graph of y from \
the point x=-5 to x=5 will appear on your screen.  Click on the down-arrow \
key to get to the next cell."
}], "Text"],

Cell[TextData[{
  "\t\[Bullet] Now you have to differentiate the function.  Type in the \
following into the cell:",
  StyleBox[" Derivative = Dt[y,x].  ",
    FontWeight->"Bold"],
  "Press ",
  StyleBox["shift-return",
    FontWeight->"Bold"],
  " or ",
  StyleBox["enter",
    FontWeight->"Bold"],
  " on your computer to evaluate this command.",
  StyleBox["  ",
    FontWeight->"Bold"],
  "This will give you the first derivative of the function y.  Now you have \
to find when this derivative is zero.  Click on the down-arrow key to get to \
the next cell.  "
}], "Text"],

Cell[TextData[{
  "\t\[Bullet] Type in ",
  StyleBox["Solve[Derivative = = 0,x]",
    FontWeight->"Bold"],
  ", with no spaces in between or around the \"=\" signs.  Evaluated the cell \
by pressing ",
  StyleBox["shift-return",
    FontWeight->"Bold"],
  " or ",
  StyleBox["enter",
    FontWeight->"Bold"],
  " on your keyboard.  This will tell you the x values where the slope of the \
graph is zero.  Now you have to find the corresponding y values at that x \
value.  Go to the next cell using the down-arrow key."
}], "Text"],

Cell[TextData[{
  StyleBox[
  "\t\[Bullet] Enter the following command line into the cell to find out \
what the y value is when the slope is zero:\n\t", "Text"],
  StyleBox["x=-2/3;\n\ty", "Text",
    FontWeight->"Bold"],
  StyleBox["\n\t", "Text"],
  "Press ",
  StyleBox["shift-return",
    FontWeight->"Bold"],
  " or ",
  StyleBox["enter",
    FontWeight->"Bold"],
  " on your computer to evaluate this command.",
  StyleBox[
  "  Now the basic framework of the notebook has been laid out.  You have the \
answer to the problem.  But now you have to explain how you came about that \
answer, clearly distiinguishing between explaining the ", "Text"],
  StyleBox["Mathematics ", "Text",
    FontSlant->"Italic"],
  StyleBox["behind the solution and the ", "Text"],
  StyleBox["Mathematica 2.2 or 3.0", "Text",
    FontSlant->"Italic"],
  StyleBox[" behind the solution.", "Text"]
}], "Text"],

Cell[TextData[{
  "\t\[Bullet] To see the notebook you have just created, please click ",
  ButtonBox["here",
    ButtonData:>{
      URL[ "http://mathforum.org/spimsow/tutorials/trial.nb"], None},
    ButtonStyle->"Hyperlink"],
  " (this notebook is on our web pages).  Please compare it to what you have \
created and then come back to this tutorial to finish creating your \
notebook."
}], "Text",
  PageWidth->WindowWidth,
  TextAlignment->Left]
}, Open  ]],

Cell[CellGroupData[{

Cell["Creative Touches", "Subsection"],

Cell[TextData[
"\t\[Bullet] Now you can concentrate on putting in text and explaining the \
Mathematics of the notebook.  New notebook cells can be inserted easily at \
any point in the notebook.  Simply click on a cell ABOVE where you want the \
new cell andthen type in whatever explanation that you want to.  You have to \
remember the following 3 simple rules:\n\t\[Bullet] To format a cell simply \
click on its cell bracket and use the Styles under the Format menu.\n\t\
\[Bullet] To insert new cells you can click on the cell above where you want \
to create the new cell and type in whatever you want to.\n\t\[Bullet] You can \
format the color. size, font, style of any cell that you want.  You can also \
leave cells expanded or you can collapse them by clicking on their cell \
brackets."], "Text"],

Cell[TextData[{
  "\t\[Bullet] Add creative touches to your notebook and then click ",
  ButtonBox["here",
    ButtonData:>{
      URL[ "http://mathforum.org/spimsow/tutorials/trial2.nb"], None},
    ButtonStyle->"Hyperlink"],
  " to see the notebook that we created with all the Mathematics explained. \
Please compare it to what you would have created."
}], "Text",
  PageWidth->WindowWidth,
  TextAlignment->Left]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Putting it on the WWW", "Section"],

Cell["\<\
\tTo put this notebook on the web, please follow these simple \
steps:\
\>", "Text"],

Cell[TextData[{
  "\t1) Save your notebook as either a .nb or .ma suffix file, depending on \
which version of ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " you are using.\n\t2) Using an FTP[file transfer protocol] program, put \
your notebook/s onto your web server.  Please make sure that you save your \
notebooks as \"Binary Data\" on your web server.  You can ask your sytem \
administrator for help on this.\n\t3) Congfigure your web server to serve the \
following mime type: application/mathematica with the suffixes \"ma\" and \
\"nb\".\n\t4) Configure your web browser --Netscape and Internet Explorer \
work best with this-- to open up ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " when you enter the URL of the notebook you have just put up.  You can \
link to this notebook from any other web page.  Your browser should have the \
following information in the ",
  StyleBox["Applications",
    FontWeight->"Bold"],
  " section of the ",
  StyleBox[
  "PREFERENCES:\n\tMime type: application/mathematica\n\t\
Name:application/mathematica\n\tApplication: ",
    FontWeight->"Bold"],
  StyleBox["Mathematica",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  StyleBox[" (or ",
    FontWeight->"Bold"],
  StyleBox["MathReader",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  StyleBox[" if you don't have ",
    FontWeight->"Bold"],
  StyleBox["Mathematica",
    FontWeight->"Bold",
    FontSlant->"Italic"],
  StyleBox[")\n\tAction: Launch Application\n\t",
    FontWeight->"Bold"],
  "5) You are all set now.  If you have trouble with putting your mathematica \
notebooks on the web, you can get more information from the ",
  ButtonBox["Spimsow set-up page",
    ButtonData:>{
      URL[ "http://mathforum.org/spimsow/set_up.html"], None},
    ButtonStyle->"Hyperlink"],
  "."
}], "Text"],

Cell[TextData[{
  "||  ",
  ButtonBox["Back to Spimsow Homepage",
    ButtonData:>{
      URL[ "http://mathforum.org/spimsow"], None},
    ButtonStyle->"Hyperlink"],
  "  ||  ",
  ButtonBox["Back to Notebooks Page",
    ButtonData:>{
      URL[ "http://mathforum.org/spimsow/notebooks.html"], None},
    ButtonStyle->"Hyperlink"],
  "  ||  ",
  ButtonBox["Back to Main Tutorial",
    ButtonData:>{"makemathnotebk.nb", "own book"},
    ButtonStyle->"Hyperlink"],
  "  ||"
}], "Text",
  TextAlignment->Center,
  FontSize->13,
  CellTags->"own book"]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"Macintosh 3.0",
ScreenRectangle->{{0, 832}, {0, 604}},
WindowSize->{530, 530},
WindowMargins->{{56, Automatic}, {Automatic, 16}},
StyleDefinitions -> "Default.nb",
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->{
  "own book"->{
    Cell[11515, 346, 561, 19, 31, "Text",
      CellTags->"own book"]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"own book", 12927, 390}
  }
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1731, 51, 94, 2, 134, "Title"],
Cell[1828, 55, 604, 11, 112, "Text"],

Cell[CellGroupData[{
Cell[2457, 70, 86, 2, 50, "Section"],
Cell[2546, 74, 98, 3, 30, "Text"],

Cell[CellGroupData[{
Cell[2669, 81, 37, 0, 46, "Subsection"],
Cell[2709, 83, 762, 24, 102, "Text"],
Cell[3474, 109, 620, 19, 84, "Text"],
Cell[4097, 130, 1179, 36, 134, "Text"],
Cell[5279, 168, 420, 13, 64, "Text"],
Cell[5702, 183, 577, 17, 84, "Text"],
Cell[6282, 202, 531, 14, 82, "Text"],
Cell[6816, 218, 895, 24, 150, "Text"],
Cell[7714, 244, 456, 11, 62, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8207, 260, 38, 0, 46, "Subsection"],
Cell[8248, 262, 809, 11, 174, "Text"],
Cell[9060, 275, 423, 10, 46, "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[9532, 291, 40, 0, 50, "Section"],
Cell[9575, 293, 94, 3, 30, "Text"],
Cell[9672, 298, 1840, 46, 304, "Text"],
Cell[11515, 346, 561, 19, 31, "Text",
  CellTags->"own book"]
}, Open  ]]
}, Open  ]]
}
]
*)




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