(* Content-type: application/mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 6.0' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 11903, 437]
NotebookOptionsPosition[ 9393, 343]
NotebookOutlinePosition[ 9913, 362]
CellTagsIndexPosition[ 9870, 359]
WindowFrame->Normal
ContainsDynamic->False*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell[TextData[{
StyleBox["Mathematica\n",
FontSlant->"Italic"],
"NoteBook Cells"
}], "Title",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
by
K. D. Stroyan
University of Iowa\
\>", "Subsubtitle",
Evaluatable->False,
AspectRatioFixed->True],
Cell["copyright 2007 by Keith Stroyan - All rights reserved.", "Text",
Evaluatable->False,
CellChangeTimes->{{3.397565813092762*^9, 3.397565820816804*^9}},
AspectRatioFixed->True,
FontFamily->"Times"],
Cell[CellGroupData[{
Cell[TextData[{
"Closed and Open ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" Cells"
}], "Section",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
This NoteBook has several parts. Some of the parts are in a \"closed\" \
Mathematica \"cells.\" Notice the various kinds of brackets at the right \
side of this window. These brackets mark cells. The Closed cells are the \
ones with the small dark half-arrowheads at the bottom (and the open boxes to \
the left of that).\
\>", "Text",
Evaluatable->False,
AspectRatioFixed->True,
FontFamily->"Times"],
Cell["\<\
To open a closed cell, use your mouse to position the cursor over the dark \
arrowhead and click the button on the mouse twice rapidly. (This is called \
\"double clicking.\")\
\>", "Text",
Evaluatable->False,
AspectRatioFixed->True,
FontFamily->"Times"],
Cell[TextData[{
"Open the next cell containing \"A ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" Section Cell 2\" now.."
}], "Text",
Evaluatable->False,
AspectRatioFixed->True,
FontFamily->"Times"]
}, Open ]],
Cell[CellGroupData[{
Cell[TextData[{
"A ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" Section Cell 2"
}], "Section",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
When you are done looking at a section, you can position the cursor at the \
far right bracket again and double click to close that section. Close the \
preceding cell.\
\>", "Text"],
Cell["Now open successive cells within this cell. ", "Text"],
Cell[CellGroupData[{
Cell["Subsection: Text vs. computation.", "Subsection",
Evaluatable->False],
Cell[CellGroupData[{
Cell["Subsubsection: Addition", "Subsubsection",
Evaluatable->False],
Cell[TextData[{
"\tThis is a ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" text cell. It contains typing for the user to read, not for the computer \
to compute. The cell after this is a ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" Input Cell (containing the computer command \"2 + 3\"). Input Cells are \
for ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" commands such as adding two numbers.\n\t\t\t\n\tComputations can only be \
executed if they are entered in \"input\" cells. These are marked with the \
plain square brackets at the right of the window (with no flags or arrows.) \
Inactive text and \"output\" cells have the little tick mark (or flag) at the \
top. ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" cannot do a computation if you type it in an inactive cell. You can open \
and close groups of both kinds of cells that are grouped in another cell.\n\t\
\t\t\t\n\tOnce the computation is typed you must press the key at the \
far right of the keyboard (you can also use + ). Your typing \
will be in an input (or active computation) cell and the answer will be in an \
output (inactive) cell. The pair looks like the following:"
}], "Text",
Evaluatable->False],
Cell[BoxData[
RowBox[{"2", "+", "3"}]], "Input"]
}, Open ]],
Cell[CellGroupData[{
Cell["Subsubsection: Multiplication", "Subsubsection",
Evaluatable->False],
Cell[TextData[{
"The Input cell below here contains a command to multiply two numbers. You \
can execute the command by moving the cursor into that cell with the mouse \
and clicking. Once you have done this a thin vertical line will appear in \
the cell. Once this is done, press the key on the number pad or hold \
down the key and press . This will maks ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" do the computation. Go ahead and try."
}], "Text",
Evaluatable->False],
Cell[BoxData[
RowBox[{"2", "*", "3"}]], "Input"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[TextData[{
"Subsection: Where do I learn more ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" computing?"
}], "Subsection",
Evaluatable->False],
Cell[CellGroupData[{
Cell["\<\
Subsubsection Basic Computing: Numerics, symbolics & graphics.\
\>", "Subsubsection",
Evaluatable->False],
Cell["\<\
There are separate NoteBooks in the Chapter 1 folder that show you the three \
main aspects of scientific computing:\
\>", "Text",
Evaluatable->False],
Cell["\<\
Numeric, both exact arithmetic and approximate or floating point arithmetic.\
\>", "Text",
Evaluatable->False],
Cell["Symbolic.", "Text",
Evaluatable->False],
Cell["Graphic.", "Text",
Evaluatable->False],
Cell["\<\
All three are combined in the next Input cell. that computation now, \
but open the other NoteBooks to learn how to do these various commands \
yourself.\
\>", "Text",
Evaluatable->False],
Cell[BoxData[{
RowBox[{
RowBox[{"Clear", "[",
RowBox[{"x", ",", "y"}], "]"}], ";"}], "\n",
RowBox[{"y", "=",
RowBox[{
FractionBox["1",
RowBox[{"x", "+", "1"}]], "-",
FractionBox["1",
RowBox[{"x", "-", "1"}]]}]}], "\n",
RowBox[{"Simplify", "[",
RowBox[{"Together", "[", "y", "]"}], "]"}], "\n",
RowBox[{"Plot", "[",
RowBox[{"y", ",",
RowBox[{"{",
RowBox[{"x", ",",
RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}], "\n",
RowBox[{
RowBox[{"x", "=", "3"}], ";"}], "\n",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "y", ",", "\"\< when x = \>\"", ",", "x"}],
"]"}], ";"}], "\n",
RowBox[{
RowBox[{"x", "=", "0.3`"}], ";"}], "\n",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",", "y", ",", "\"\< when x = \>\"", ",", "x"}],
"]"}], ";"}]}], "Input"]
}, Open ]],
Cell[CellGroupData[{
Cell["\<\
Subsubsection More Computing: Lists, rules and examples for Chapter 1.\
\>", "Subsubsection",
Evaluatable->False],
Cell[TextData[{
"The Chapter 1 folder also contains introductory NoteBooks on defining rules \
with ",
StyleBox["Mathematica",
FontSlant->"Italic"],
" and on using Lists. These are more advanced ideas and yu can return to \
them later."
}], "Text",
Evaluatable->False],
Cell[TextData[{
"The section \"Previews of Coming Attractions\" in Chapter 1 studies linear \
functions from the point of view of local coordinates and looks at a few \
basic derivatives. The NoteBooks ",
StyleBox["LinearIntro.ma",
FontWeight->"Bold"],
" and ",
StyleBox["DerivLimit.ma",
FontWeight->"Bold"],
" are related to that work. The next cell gives a preview of those \
NoteBooks if you wish to the computation now. "
}], "Text",
Evaluatable->False],
Cell[BoxData[{
RowBox[{
RowBox[{"Clear", "[",
RowBox[{"f", ",", "x", ",", "y", ",", "dx", ",", "dy"}], "]"}],
";"}], "\n",
RowBox[{
RowBox[{
RowBox[{"f", "[", "x_", "]"}], ":=",
SuperscriptBox["x", "3"]}], ";"}], "\n",
RowBox[{
RowBox[{"Print", "[",
RowBox[{"\"\\"", ",",
RowBox[{"f", "[", "x", "]"}]}], "]"}], ";"}], "\n",
RowBox[{
RowBox[{"x", "=", "1"}], ";"}], "\n",
RowBox[{
RowBox[{"y", "=",
RowBox[{"f", "[", "x", "]"}]}], ";"}], "\n",
RowBox[{
RowBox[{"dy", "=",
RowBox[{
RowBox[{
SuperscriptBox["f", "\[Prime]",
MultilineFunction->None], "[", "x", "]"}], " ", "dx"}]}], ";"}], "\n",
RowBox[{
RowBox[{"Print", "[",
RowBox[{
"\"\< and its tangent dy = \>\"", ",", "dy", ",", "\"\< at x = \>\"", ",",
"x"}], "]"}], ";"}], "\n",
RowBox[{"Plot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"f", "[",
RowBox[{"x", "+", "dx"}], "]"}], "-", "y"}], ",", "dy"}], "}"}], ",",
RowBox[{"{",
RowBox[{"dx", ",",
RowBox[{"-", "2"}], ",",
RowBox[{"+", "2"}]}], "}"}], ",",
RowBox[{"AxesOrigin", "\[Rule]",
RowBox[{"{",
RowBox[{"0", ",", "0"}], "}"}]}], ",",
RowBox[{"AxesLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}]}], "]"}]}], "Input"]
}, Open ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell["Exercises", "Section",
Evaluatable->False,
AspectRatioFixed->True],
Cell["\<\
The only important point of this NoteBook is to have you answer this \
question:
What is the advantage of having the different kinds of cells that you opened \
and closed above? (HINT: How do you \"turn pages\" when you are reading on \
the computer?)\
\>", "Text",
Evaluatable->False],
Cell["TYPE YOUR ANSWER HERE:", "Text",
Evaluatable->False]
}, Closed]]
}, Open ]]
},
WindowSize->{715, 694},
WindowMargins->{{4, Automatic}, {Automatic, 0}},
DockedCells->(FrontEndExecute[{
FrontEnd`NotebookApply[
FrontEnd`InputNotebook[], #, Placeholder]}]& ),
FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)",
StyleDefinitions->FrontEnd`FileName[{"Creative"}, "NaturalColor.nb",
CharacterEncoding -> "UTF-8"]
]
(* End of Notebook Content *)
(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 143, 6, 113, "Title",
Evaluatable->False],
Cell[736, 31, 113, 6, 60, "Subsubtitle",
Evaluatable->False],
Cell[852, 39, 204, 4, 26, "Text",
Evaluatable->False],
Cell[CellGroupData[{
Cell[1081, 47, 156, 7, 72, "Section",
Evaluatable->False],
Cell[1240, 56, 418, 9, 56, "Text",
Evaluatable->False],
Cell[1661, 67, 268, 7, 41, "Text",
Evaluatable->False],
Cell[1932, 76, 210, 8, 26, "Text",
Evaluatable->False]
}, Open ]],
Cell[CellGroupData[{
Cell[2179, 89, 151, 7, 72, "Section",
Evaluatable->False],
Cell[2333, 98, 193, 4, 41, "Text"],
Cell[2529, 104, 60, 0, 26, "Text"],
Cell[CellGroupData[{
Cell[2614, 108, 76, 1, 34, "Subsection",
Evaluatable->False],
Cell[CellGroupData[{
Cell[2715, 113, 69, 1, 24, "Subsubsection",
Evaluatable->False],
Cell[2787, 116, 1251, 26, 191, "Text",
Evaluatable->False],
Cell[4041, 144, 49, 1, 37, "Input"]
}, Open ]],
Cell[CellGroupData[{
Cell[4127, 150, 75, 1, 28, "Subsubsection",
Evaluatable->False],
Cell[4205, 153, 513, 10, 95, "Text",
Evaluatable->False],
Cell[4721, 165, 49, 1, 33, "Input"]
}, Open ]]
}, Closed]],
Cell[CellGroupData[{
Cell[4819, 172, 157, 6, 26, "Subsection",
Evaluatable->False],
Cell[CellGroupData[{
Cell[5001, 182, 116, 3, 24, "Subsubsection",
Evaluatable->False],
Cell[5120, 187, 161, 4, 41, "Text",
Evaluatable->False],
Cell[5284, 193, 121, 3, 26, "Text",
Evaluatable->False],
Cell[5408, 198, 46, 1, 26, "Text",
Evaluatable->False],
Cell[5457, 201, 45, 1, 26, "Text",
Evaluatable->False],
Cell[5505, 204, 207, 5, 41, "Text",
Evaluatable->False],
Cell[5715, 211, 853, 28, 162, "Input"]
}, Open ]],
Cell[CellGroupData[{
Cell[6605, 244, 124, 3, 24, "Subsubsection",
Evaluatable->False],
Cell[6732, 249, 275, 8, 41, "Text",
Evaluatable->False],
Cell[7010, 259, 477, 12, 71, "Text",
Evaluatable->False],
Cell[7490, 273, 1378, 45, 162, "Input"]
}, Open ]]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[8929, 325, 74, 2, 42, "Section",
Evaluatable->False],
Cell[9006, 329, 297, 7, 56, "Text",
Evaluatable->False],
Cell[9306, 338, 59, 1, 24, "Text",
Evaluatable->False]
}, Closed]]
}, Open ]]
}
]
*)
(* End of internal cache information *)