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

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing 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[     62176,       1915]*)
(*NotebookOutlinePosition[     64092,       1970]*)
(*  CellTagsIndexPosition[     64048,       1966]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["Wright State Calculus Laboratory Project", "Subsubtitle"],

Cell[CellGroupData[{

Cell["Calculus Laboratory Information", "Title"],

Cell[CellGroupData[{

Cell["About This Notebook", "Subsection",
  Evaluatable->False,
  AspectRatioFixed->True],

Cell["\<\
Version 8.0, 8/1/2000. Written by Richard Mercer, Copyright 2000.\
\
\>", "Text",
  Evaluatable->False,
  AspectRatioFixed->True]
}, Closed]],

Cell[CellGroupData[{

Cell["General Information", "Subtitle"],

Cell[CellGroupData[{

Cell["Welcome to the Calculus Lab!", "Section"],

Cell["\<\
    The Calculus laboratory is located in room 270 of the \
Mathematical and Microbiological Sciences building (MM). Your class will be \
meeting in this room on certain days of the week. (Some classes will meet in \
room 170 instead.) You will work in pairs or groups on each week\
\[CloseCurlyQuote]s laboratory assignment and submit a report the following \
week.\
\>", "Text"],

Cell[TextData[{
  "    In 270 MM we have 20 Macintosh computers running ",
  StyleBox["Mathematica\[Trademark]",
    FontSlant->"Italic"],
  " software. ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " can perform just about any mathematical computation, and display 2- and \
3-dimensional color graphics. ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " works with ",
  StyleBox["notebooks",
    FontSlant->"Italic"],
  ", files which are like sections of a textbook in that they can contain \
text and graphics to explain the material, as well as input (commands) and \
output (results). You can change the commands that are there, or enter your \
own commands, and execute them to see the results; this is how you will work \
the assignments. So ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " notebooks are an ",
  StyleBox["interactive",
    FontSlant->"Italic"],
  " textbook."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Why does Calculus have a laboratory?", "Section"],

Cell[TextData[{
  "    We use a laboratory approach because it is part of what we believe to \
be a better way to teach mathematics. In traditional calculus courses, all or \
nearly all of the time is spent in a lecture format, where the instructor is \
the center of attention. Of course you will still have lectures. But in the \
laboratory, you will be participating instead of listening. ",
  StyleBox["You",
    FontSlant->"Italic"],
  ", not your instructor, will be the focus of attention. This alone should \
make the course more interesting. You will have the opportunity to try things \
for yourself, draw your own conclusions, and work at your own pace."
}], "Text"],

Cell[TextData[{
  "    There will be more emphasis on ",
  StyleBox["communicating",
    FontSlant->"Italic"],
  " mathematics. Because you will work in pairs or groups, you will spend a \
lot of time discussing what you are doing. In your lab reports you will do \
more writing than is traditionally expected in mathematics courses (usually \
none!). You will have to think more about mathematics because you will have \
to decide ",
  StyleBox["what",
    FontSlant->"Italic"],
  " you want to do before you can ask the computer to do it. Computers make \
it possible to use geometric and numerical approaches to the material that \
are not practical with a textbook, paper and pencil."
}], "Text"],

Cell["\<\
    Whether you are majoring in Engineering, Science, Mathematics \
or Secondary Education, you will be expected to use computers as mathematical \
assistants in your future career, and in many of your other courses before \
graduation.\
\>", "Text"],

Cell[TextData[{
  "    Don\[CloseCurlyQuote]t forget that the computer is just a tool and you \
are the master. You are here to learn and do ",
  StyleBox["mathematics",
    FontSlant->"Italic"],
  ", and the computer is useful only when it can help you do that. Don\
\[CloseCurlyQuote]t be afraid to leave the computers aside at times and work \
with pencil and paper at the center tables. When you are using the computer, \
make sure you understand what the computer is doing, and what you are doing. \
If you go through the labs without thinking about what you are doing or \
talking to anyone about it, you won\[CloseCurlyQuote]t get as much out of \
them as you should."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Calculus Lab FAQ", "Section"],

Cell[CellGroupData[{

Cell[TextData[{
  "What if I\[CloseCurlyQuote]ve never used a Macintosh or ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " software?"
}], "Subsection"],

Cell["\<\
The first laboratory session will be devoted to getting used to the \
computers and the software. No experience is necessary, and no programming \
will be required.\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["How can I get help with the computers?", "Subsection"],

Cell[TextData[
"Your instructor and a student assistant will be available to help during \
scheduled laboratory classes. A student assistant will be available to help \
during open lab hours. Don\[CloseCurlyQuote]t be shy about asking for help!"],
   "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Is there a web site for the calculus lab?", "Subsection"],

Cell[TextData[{
  "Yes! It\[CloseCurlyQuote]s at ",
  ButtonBox["http://www.math.wright.edu/Calculus/Lab/",
    ButtonData:>{
      URL[ "http://www.math.wright.edu/Calculus/Lab/"], None},
    ButtonStyle->"Hyperlink"],
  ". There you will find (hopefully!) up-to-date information concerning the \
Calculus Laboratory."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["When can I use the lab?", "Subsection"],

Cell["\<\
In addition to laboratory classes, (when your class meets in the \
laboratory instead of a classroom), you can use the lab during open lab \
hours. If you did not finish a laboratory assignment during class, you can \
come during open lab hours to finish it. You can also come in to use the lab \
to help with other homework. Open lab hours will be posted in the laboratory \
a few days after the beginning of classes, and will be also be available on \
the web site.\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[
"What if we don\[CloseCurlyQuote]t have time to finish the assignment during \
class?"], "Subsection"],

Cell[TextData[
"That is the main reason for having open lab hours. We know that some people \
work slower than others, and slower is often better. We \
don\[CloseCurlyQuote]t want you to feel rushed \[Dash] it does no good to \
rush through a lab if you don\[CloseCurlyQuote]t understand what you are \
doing. Please think about what you are doing, ask questions, and take the \
opportunity to try out your own ideas. If necessary you can finish during \
open lab hours. You should expect to have to spend some time in open lab \
during the quarter."], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Can I save my work? Can I print my results?", "Subsection"],

Cell["\<\
You can save your work to your account or to a Zip disk. You can \
print your results on the laser printer in the lab.\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Should I write my laboratory report during class?", "Subsection"],

Cell["\<\
Scheduled laboratory classes usually provide enough time for most \
students to complete the exercises. You should not expect to also be able to \
write your report during class time in the laboratory. Work the problems, and \
prepare and print a notebook with the results of your work. You can prepare \
your report either at home or in the lab, but if you prepare it in the lab \
you should expect to spend extra time outside class.\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Can I choose my lab partner?", "Subsection"],

Cell["\<\
In general yes, although some instructors may assign lab \
partners.\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Is attendance required at laboratory classes?", "Subsection"],

Cell["\<\
Ask your instructor about the attendance policy in your section. \
But regardless of the policy, if you do not attend, you lose an opportunity \
to learn from others, and you deny others an opportunity to learn from you.\
\
\>", "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["calcE",
  FontSlant->"Italic"]], "Section"],

Cell[TextData[{
  "A special \[OpenCurlyDoubleQuote]package\[CloseCurlyDoubleQuote]called ",
  StyleBox["calcE",
    FontSlant->"Italic"],
  " is loaded automatically when ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " is started. It customizes ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " for use in teaching Calculus. It provides better graphics and more \
flexible syntax than \[OpenCurlyDoubleQuote]plain\[CloseCurlyDoubleQuote] ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  ", and it contains specialized routines used in the Calculus notebooks. "
}], "Text"],

Cell[TextData[{
  "Most commands in the notebooks will not work without the ",
  StyleBox["calcE",
    FontSlant->"Italic"],
  " package!"
}], "DisplayText"]
}, Closed]],

Cell[CellGroupData[{

Cell["Working at Home", "Section"],

Cell["\<\
In order to use the Calculus Lab notebooks at home, you need the \
following:\
\>", "Text"],

Cell["\<\
(1)\tA computer. To be comfortable you should have a Pentium-class \
processor, Windows 95 or MacOS 8.0 or later, and at plenty of memory and hard \
disk space.\
\>", "Text"],

Cell[TextData[{
  "(2)\t",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " software, version 3.0. There is a student version available for about \
$150 (which is a remarkably good deal). If you do not find it in a bookstore, \
you can order it direct from Wolfram Research, Inc. at 1-800-965-3726 or \
through their web site at ",
  ButtonBox["http://store.wolfram.com/catalog/student/",
    ButtonData:>{
      URL[ "http://store.wolfram.com/catalog/student/"], None},
    ButtonStyle->"Hyperlink"],
  ". You must verify your student status before the product will be shipped. \
The student version contains all computational features of the professional \
version."
}], "Text"],

Cell[TextData[{
  "(3)\tThe ",
  StyleBox["calcE",
    FontSlant->"Italic"],
  " package described above. Wright State students may purchase a copy from \
Dr. Mercer for a nominal cost of $10."
}], "Text"],

Cell["(4)\tThe Calculus Lab notebooks themselves, which are free. ", "Text"],

Cell[TextData[{
  "The notebooks can be obtained directly from the calculus lab. However you \
should ",
  StyleBox["not",
    FontSlant->"Italic"],
  " copy them directly off the server. Instead, open the remote folder \
\[OpenCurlyDoubleQuote]Software for ALL Users\[CloseCurlyDoubleQuote]. Open \
the \[OpenCurlyDoubleQuote]Calculus\[CloseCurlyDoubleQuote] folder inside \
that, and you\[CloseCurlyQuote]ll see a folder called \
\[OpenCurlyDoubleQuote]Take Me Home!\[CloseCurlyDoubleQuote] which contains \
compressed files of notebooks for each course, in Windows or Mac format. Just \
copy the one(s) you want onto a floppy disk (IBM or Mac). If you have Web \
access, you can download the notebooks from ",
  ButtonBox["http://www.math.wright.edu/Calculus/Lab/Download/",
    ButtonData:>{
      URL[ "http://www.math.wright.edu/Calculus/Lab/Download/"], None},
    ButtonStyle->"Hyperlink"],
  "."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Working on Campus", "Section"],

Cell[TextData[{
  "The calculus materials may be available at some CATS-operated labs open 24 \
hours, 7 days a week. Check the ",
  ButtonBox["Web site",
    ButtonData:>{
      URL[ "http://www.math.wright.edu/Calculus/Lab/"], None},
    ButtonStyle->"Hyperlink"],
  " for the latest information."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Laboratory Program Director", "Section"],

Cell[TextData[{
  "Dr. Richard Mercer is in charge of the Calculus Laboratory, and is the \
author of the calculus notebooks and the developer of ",
  StyleBox["calcE",
    FontSlant->"Italic"],
  ". You should contact him with any questions, problems, emergencies, etc. \
concerning the administration of the computer lab, the notebooks, or ",
  StyleBox["calcE",
    FontSlant->"Italic"],
  ". In particular any typos or mistakes in the notebooks should be forwarded \
to him in written form, preferably by email. "
}], "Text"],

Cell[TextData[{
  "Contact information:\nOffice: 261 MM, 937-775-2191\nEmail: ",
  ButtonBox["richard.mercer@wright.edu",
    ButtonData:>{
      URL[ "mailto:richard.mercer@wright.edu"], None},
    Active->True,
    ButtonStyle->"Hyperlink"],
  "\nWeb:   ",
  ButtonBox["http://www.math.wright.edu/People/Richard_Mercer/",
    ButtonData:>{
      URL[ "http://www.math.wright.edu/People/Richard_Mercer/"], None},
    ButtonStyle->"Hyperlink"]
}], "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Writing Lab Reports", "Subtitle"],

Cell["\<\
    Lab reports expect more in the way of writing than you may be \
used to in mathematics. They should be treated the same as lab reports in any \
other laboratory science. You should state the problem, explain your \
procedure, give your results, and draw conclusions.\
\>", "Text"],

Cell[TextData[{
  "    It is usually ",
  StyleBox["not",
    FontSlant->"Italic"],
  " enough to just give the answer. It is ",
  StyleBox["never",
    FontSlant->"Italic"],
  " enough to just print what Mathematica did. You should emphasize what ",
  StyleBox["you",
    FontSlant->"Italic"],
  " did and thought."
}], "Text"],

Cell[CellGroupData[{

Cell["Sample Problem and Solution", "Section"],

Cell[TextData[{
  StyleBox["Problem",
    FontWeight->"Bold"],
  ":\tFind ",
  Cell[BoxData[
      RowBox[{
        StyleBox[
          UnderscriptBox["lim", 
            RowBox[{
              StyleBox["x",
                UnderscriptBoxOptions->{LimitsPositioning->False}], 
              "\[Rule]", "0"}]],
          UnderscriptBoxOptions->{LimitsPositioning->False}], 
        StyleBox[
          FractionBox[
            RowBox[{"tan", 
              RowBox[{"(", 
                StyleBox["x",
                  "DisplayFormula",
                  UnderscriptBoxOptions->{LimitsPositioning->False}], 
                ")"}]}], 
            StyleBox["x",
              "DisplayFormula",
              UnderscriptBoxOptions->{LimitsPositioning->False}]],
          "DisplayFormula",
          UnderscriptBoxOptions->{LimitsPositioning->False}]}]]],
  " using graphs, algebra, and numerical values."
}], "Exercise"],

Cell[CellGroupData[{

Cell["Solution", "Subsection"],

Cell[TextData[{
  "Solution:\tThe first thing we did was to graph ",
  Cell[BoxData[
      StyleBox[
        FractionBox[
          RowBox[{"tan", 
            RowBox[{"(", 
              StyleBox["x",
                "DisplayFormula",
                UnderscriptBoxOptions->{LimitsPositioning->False}], ")"}]}], 
          StyleBox["x",
            "DisplayFormula",
            UnderscriptBoxOptions->{LimitsPositioning->False}]],
        "DisplayFormula",
        UnderscriptBoxOptions->{LimitsPositioning->False}]]],
  " on [-1,1]:"
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{
      RowBox[{"Plot", "[", 
        RowBox[{
          FractionBox[
            RowBox[{"Tan", "[", "x", "]"}], "x"], ",", 
          RowBox[{"{", 
            RowBox[{
              RowBox[{"-", "1"}], ",", "1"}], "}"}]}], "]"}], ";"}]], "Input"],

Cell[GraphicsData["PostScript", "\<\
%!
%%Creator: Mathematica
%%AspectRatio: .61803 
MathPictureStart
/Mabs {
Mgmatrix idtransform
Mtmatrix dtransform
} bind def
/Mabsadd { Mabs
3 -1 roll add
3 1 roll add
exch } bind def
%% Graphics
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 10  scalefont  setfont
% Background color
1 1 .75 r
MFill
% Scaling calculations
0.5 0.47619 -1.04125 1.05597 [
[.02381 .00222 -6.40625 -9 ]
[.02381 .00222 6.40625 0 ]
[.2619 .00222 -10.5938 -9 ]
[.2619 .00222 10.5938 0 ]
[.7381 .00222 -8.28125 -9 ]
[.7381 .00222 8.28125 0 ]
[.97619 .00222 -4.09375 -9 ]
[.97619 .00222 4.09375 0 ]
[.4875 .12031 -16.5625 -4.5 ]
[.4875 .12031 0 4.5 ]
[.4875 .22591 -16.5625 -4.5 ]
[.4875 .22591 0 4.5 ]
[.4875 .33151 -16.5625 -4.5 ]
[.4875 .33151 0 4.5 ]
[.4875 .4371 -16.5625 -4.5 ]
[.4875 .4371 0 4.5 ]
[.4875 .5427 -16.5625 -4.5 ]
[.4875 .5427 0 4.5 ]
[ 0 0 0 0 ]
[ 1 .61803 0 0 ]
] MathScale
% Start of Graphics
1 setlinecap
1 setlinejoin
newpath
0 0 0 r
.25 Mabswid
[ ] 0 setdash
.02381 .01472 m
.02381 .02097 L
s
gsave
.02381 .00222 -67.4062 -13 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Math1Mono
%%IncludeFont: Math1Mono
/Math1Mono findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(-) show
67.625000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(1) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Math1Mono
%%+ font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Math1Mono
%%+ Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Math1Mono
%%+ font Courier
grestore
.2619 .01472 m
.2619 .02097 L
s
gsave
.2619 .00222 -71.5938 -13 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Math1Mono
%%IncludeFont: Math1Mono
/Math1Mono findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(-) show
67.625000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(0.5) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Math1Mono
%%+ font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Math1Mono
%%+ Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Math1Mono
%%+ font Courier
grestore
.7381 .01472 m
.7381 .02097 L
s
gsave
.7381 .00222 -69.2812 -13 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(0.5) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.97619 .01472 m
.97619 .02097 L
s
gsave
.97619 .00222 -65.0938 -13 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(1) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.125 Mabswid
.07143 .01472 m
.07143 .01847 L
s
.11905 .01472 m
.11905 .01847 L
s
.16667 .01472 m
.16667 .01847 L
s
.21429 .01472 m
.21429 .01847 L
s
.30952 .01472 m
.30952 .01847 L
s
.35714 .01472 m
.35714 .01847 L
s
.40476 .01472 m
.40476 .01847 L
s
.45238 .01472 m
.45238 .01847 L
s
.54762 .01472 m
.54762 .01847 L
s
.59524 .01472 m
.59524 .01847 L
s
.64286 .01472 m
.64286 .01847 L
s
.69048 .01472 m
.69048 .01847 L
s
.78571 .01472 m
.78571 .01847 L
s
.83333 .01472 m
.83333 .01847 L
s
.88095 .01472 m
.88095 .01847 L
s
.92857 .01472 m
.92857 .01847 L
s
.25 Mabswid
0 .01472 m
1 .01472 L
s
.5 .12031 m
.50625 .12031 L
s
gsave
.4875 .12031 -77.5625 -8.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(1.1) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 .22591 m
.50625 .22591 L
s
gsave
.4875 .22591 -77.5625 -8.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(1.2) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 .33151 m
.50625 .33151 L
s
gsave
.4875 .33151 -77.5625 -8.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(1.3) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 .4371 m
.50625 .4371 L
s
gsave
.4875 .4371 -77.5625 -8.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(1.4) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.5 .5427 m
.50625 .5427 L
s
gsave
.4875 .5427 -77.5625 -8.5 Mabsadd m
1 1 Mabs scale
currentpoint translate
0 17 translate 1 -1 scale
gsave
0.000000 0.000000 0.000000 setrgbcolor
1.000000 setlinewidth
gsave
newpath
 61.000000 13.000000 moveto
 558.000000 13.000000 lineto
 558.000000 4.000000 lineto
 61.000000 4.000000 lineto
 61.000000 13.000000 lineto
closepath
clip newpath
63.000000 10.000000 moveto
%%IncludeResource: font Courier
%%IncludeFont: Courier
/Courier findfont 7.000000 scalefont
[1 0 0 -1 0 0 ] makefont setfont
0.000000 0.000000 0.000000 setrgbcolor
(1.5) show
1.000000 setlinewidth
grestore
grestore
%%DocumentNeededResources: font Courier
%%DocumentSuppliedResources:
%%DocumentNeededFonts: Courier
%%DocumentSuppliedFonts:
%%DocumentFonts: font Courier
grestore
.125 Mabswid
.5 .03583 m
.50375 .03583 L
s
.5 .05695 m
.50375 .05695 L
s
.5 .07807 m
.50375 .07807 L
s
.5 .09919 m
.50375 .09919 L
s
.5 .14143 m
.50375 .14143 L
s
.5 .16255 m
.50375 .16255 L
s
.5 .18367 m
.50375 .18367 L
s
.5 .20479 m
.50375 .20479 L
s
.5 .24703 m
.50375 .24703 L
s
.5 .26815 m
.50375 .26815 L
s
.5 .28927 m
.50375 .28927 L
s
.5 .31039 m
.50375 .31039 L
s
.5 .35262 m
.50375 .35262 L
s
.5 .37374 m
.50375 .37374 L
s
.5 .39486 m
.50375 .39486 L
s
.5 .41598 m
.50375 .41598 L
s
.5 .45822 m
.50375 .45822 L
s
.5 .47934 m
.50375 .47934 L
s
.5 .50046 m
.50375 .50046 L
s
.5 .52158 m
.50375 .52158 L
s
.5 .56382 m
.50375 .56382 L
s
.5 .58494 m
.50375 .58494 L
s
.5 .60606 m
.50375 .60606 L
s
.25 Mabswid
.5 0 m
.5 .61803 L
s
0 0 m
1 0 L
1 .61803 L
0 .61803 L
closepath
clip
newpath
0 0 1 r
.5 Mabswid
.02381 .60332 m
.06244 .46441 L
.10458 .35029 L
.14415 .26801 L
.18221 .20555 L
.22272 .15283 L
.26171 .11268 L
.30316 .07928 L
.34309 .05467 L
.3815 .03707 L
.40134 .03009 L
.42237 .02417 L
.4419 .01999 L
.4602 .01718 L
.47058 .01606 L
.4757 .01563 L
.48045 .01531 L
.48473 .01508 L
.4893 .01489 L
.49192 .01482 L
.4932 .01479 L
.49438 .01476 L
.49543 .01475 L
.49658 .01473 L
.49775 .01472 L
.49897 .01472 L
.5 .01472 L
s
.5 .01472 m
.50028 .01472 L
.50148 .01472 L
.50211 .01472 L
.50281 .01473 L
.50353 .01473 L
.50421 .01474 L
.5066 .01478 L
.50795 .01481 L
.50918 .01485 L
.51371 .01501 L
.51848 .01525 L
.52366 .01558 L
.52847 .01598 L
.5394 .01713 L
.54992 .0186 L
.55985 .02031 L
.57844 .02437 L
.59846 .03002 L
.61691 .03646 L
.65631 .05435 L
.6942 .07743 L
.73454 .10929 L
.77336 .14836 L
.81464 .20098 L
.8544 .26536 L
.89265 .34383 L
.93334 .45148 L
.97252 .58835 L
.97619 .60332 L
s
5 Mabswid
.5 .01472 Mdot
1 1 .75 r
3 Mabswid
.5 .01472 Mdot
% End of Graphics
MathPictureEnd
\
\>"], "Graphics",
  ImageSize->{161.812, 100},
  ImageMargins->{{69, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}},
  ImageCache->GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40002Q0000I2000`400?l00000o`00003oX@3oool0
0:40oono002Q0?oo_`00X@3ookl000d0oono0`00000K0?oo_`<0000000<0oono0000003ookl00P3o
okl3000003T0oono0`0000000`3ookl000000?oo_`020?oo_`<00000703ookl3000000P0oono0008
0?oo_`<000000`3ookl00`000000oono0?oo_`0F0?oo_`<0000000@0oono0000003ookl000001`3o
okl00`000000oono0?oo_`0g0?oo_`030000003ookl0000000L0oono00<000000?oo_`3ookl06`3o
okl00`000000oono0?oo_`070?oo_`003P3ookl00`000000oono0?oo_`0J0?oo_`030000003ookl0
000000D0oono0`00000i0?oo_`030000003ookl0000000D0oono0`00000M0?oo_`030000003ookl0
oono00L0oono000=0?oo_`800000703ookl3000000D0oono0`00000i0?oo_`<000001@3ookl30000
01`0oono0P0000090?oo_`00X@3ookl00500oono0`000?m>0?oo_`00C`3ookl01@000?l0oono0?oo
_`3ookl0003o04d0oono00080?oo_dH000000P000?l30?oo_`<0003oA@0000060?oo_`002`3ookl0
0`000000oono0?oo_`040?oo_`030000003ookl0oono00@0oono00<000000?oo_`3ookl0103ookl0
0`000000oono0?oo_`040?oo_`030000003ookl0oono00@0oono00<000000?oo_`3ookl0103ookl0
0`000000oono0?oo_`040?oo_`030000003ookl0oono00@0oono00<000000?oo_`3ookl00P3ookl6
0000o`030?oo_`000?l0oono0080oono00<0003o0?oo_`000?l01`000?l20?oo_`030000003ookl0
oono00@0oono00<000000?oo_`3ookl0103ookl00`000000oono0?oo_`040?oo_`030000003ookl0
oono00@0oono00<000000?oo_`3ookl0103ookl00`000000oono0?oo_`040?oo_`030000003ookl0
oono00@0oono00<000000?oo_`3ookl0103ookl00`000000oono0?oo_`070?oo_`00A@3ookl30000
o`P0oono0`000?l:0?oo_`80003o@P3ookl00480oono0`000?l<0?oo_`800000303ookl30000ocl0
oono000o0?oo_`<0003o3`3ookl00`000000oono0?oo_`0>0?oo_`<0003o?03ookl003`0oono0`00
0?lB0?oo_`030000003ookl0oono0140oono0`000?li0?oo_`00>@3ookl30000oaD0oono0P00000E
0?oo_`80003o=`3ookl003P0oono00<0003o0?oo_`3ookl05P3ookl00`000000oono0?oo_`0F0?oo
_`80003o=@3ookl003H0oono0P000?lI0?oo_`030000003ookl0oono01P0oono00<0003o0?oo_`3o
okl0<P3ookl003D0oono00<0003o0?oo_`3ookl06@3ookl00`000000oono0?oo_`0I0?oo_`80003o
<P3ookl003<0oono0P000?lL0?oo_`800000703ookl00`000?l0oono0?oo_`0_0?oo_`00<P3ookl0
0`000?l0oono0?oo_`0L0?oo_`030000003ookl0oono01`0oono00<0003o0?oo_`3ookl0;P3ookl0
0340oono00<0003o0?oo_`3ookl07@3ookl00`000000oono0?oo_`0M0?oo_`030000o`3ookl0oono
02d0oono000`0?oo_`030000o`3ookl0oono01h0oono0P00000O0?oo_`030000o`3ookl0oono02`0
oono000_0?oo_`030000o`3ookl0oono01l0oono00<000000?oo_`3ookl07`3ookl00`000?l0oono
0?oo_`0[0?oo_`00;P3ookl00`000?l0oono0?oo_`0A0?oo_`<0000000<0oono0000003ookl00P3o
okl3000000@0oono00<000000?oo_`3ookl0803ookl00`000?l0oono0?oo_`0Z0?oo_`00;P3ookl0
0`000?l0oono0?oo_`0B0?oo_`030000003ookl0oono00D0oono00<000000?oo_`3ookl00`3ookl2
00000280oono00<0003o0?oo_`3ookl0:@3ookl002d0oono00<0003o0?oo_`3ookl04`3ookl00`00
0000oono0?oo_`050?oo_`030000003ookl0oono00<0oono00<000000?oo_`3ookl08P3ookl00`00
0?l0oono0?oo_`0X0?oo_`00;03ookl00`000?l0oono0?oo_`0C0?oo_`8000001P3ookl2000000D0
oono00<000000?oo_`3ookl08`3ookl00`000?l0oono0?oo_`0W0?oo_`00:`3ookl00`000?l0oono
0?oo_`0S0?oo_`8000009@3ookl00`000?l0oono0?oo_`0V0?oo_`00:P3ookl00`000?l0oono0?oo
_`0T0?oo_`030000003ookl0oono02D0oono00<0003o0?oo_`3ookl09@3ookl002T0oono00<0003o
0?oo_`3ookl09@3ookl00`000000oono0?oo_`0U0?oo_`030000o`3ookl0oono02D0oono000Y0?oo
_`030000o`3ookl0oono02D0oono0P00000W0?oo_`030000o`3ookl0oono02@0oono000X0?oo_`03
0000o`3ookl0oono02H0oono00<000000?oo_`3ookl09`3ookl00`000?l0oono0?oo_`0S0?oo_`00
9`3ookl00`000?l0oono0?oo_`0W0?oo_`030000003ookl0oono02P0oono00<0003o0?oo_`3ookl0
8P3ookl002H0oono00<0003o0?oo_`3ookl0:03ookl2000002T0oono00<0003o0?oo_`3ookl08P3o
okl002D0oono00<0003o0?oo_`3ookl0:@3ookl00`000000oono0?oo_`0Y0?oo_`030000o`3ookl0
oono0240oono000T0?oo_`030000o`3ookl0oono02X0oono00<000000?oo_`3ookl0:P3ookl00`00
0?l0oono0?oo_`0P0?oo_`008`3ookl00`000?l0oono0?oo_`0[0?oo_`800000;03ookl00`000?l0
oono0?oo_`0O0?oo_`008`3ookl00`000?l0oono0?oo_`0[0?oo_`030000003ookl0oono02/0oono
00<0003o0?oo_`3ookl07`3ookl00280oono00<0003o0?oo_`3ookl0;03ookl00`000000oono0?oo
_`0/0?oo_`030000o`3ookl0oono01h0oono000Q0?oo_`030000o`3ookl0oono01h0oono0`000000
0`3ookl000000?oo_`020?oo_`<00000103ookl2000002h0oono00<0003o0?oo_`3ookl07@3ookl0
0240oono00<0003o0?oo_`3ookl07`3ookl00`000000oono0?oo_`050?oo_`030000003ookl0oono
00<0oono00<000000?oo_`3ookl0;@3ookl00`000?l0oono0?oo_`0M0?oo_`00803ookl00`000?l0
oono0?oo_`0P0?oo_`030000003ookl0oono00H0oono00<000000?oo_`3ookl00P3ookl00`000000
oono0?oo_`0^0?oo_`030000o`3ookl0oono01`0oono000O0?oo_`030000o`3ookl0oono0200oono
0P0000060?oo_`<00000103ookl200000300oono00<0003o0?oo_`3ookl06`3ookl001l0oono00<0
003o0?oo_`3ookl0;`3ookl00`000000oono0?oo_`0_0?oo_`030000o`3ookl0oono01/0oono000N
0?oo_`030000o`3ookl0oono0300oono00<000000?oo_`3ookl0<03ookl00`000?l0oono0?oo_`0J
0?oo_`007@3ookl00`000?l0oono0?oo_`0a0?oo_`800000<P3ookl00`000?l0oono0?oo_`0I0?oo
_`007@3ookl00`000?l0oono0?oo_`0a0?oo_`030000003ookl0oono0340oono00<0003o0?oo_`3o
okl06@3ookl001`0oono00<0003o0?oo_`3ookl0<P3ookl00`000000oono0?oo_`0b0?oo_`030000
o`3ookl0oono01P0oono000L0?oo_`030000o`3ookl0oono0380oono0P00000c0?oo_`030000o`3o
okl0oono01P0oono000K0?oo_`030000o`3ookl0oono03<0oono00<000000?oo_`3ookl0<`3ookl0
0`000?l0oono0?oo_`0G0?oo_`006`3ookl00`000?l0oono0?oo_`0c0?oo_`030000003ookl0oono
03<0oono00<0003o0?oo_`3ookl05`3ookl001X0oono00<0003o0?oo_`3ookl0=03ookl00`000000
oono0?oo_`0d0?oo_`030000o`3ookl0oono01H0oono000J0?oo_`030000o`3ookl0oono03@0oono
0P00000e0?oo_`030000o`3ookl0oono01H0oono000I0?oo_`030000o`3ookl0oono03D0oono00<0
00000?oo_`3ookl0=03ookl00`000?l0oono0?oo_`0F0?oo_`006@3ookl00`000?l0oono0?oo_`0V
0?oo_`<0000000<0oono0000003ookl00P3ookl3000000@0oono00<000000?oo_`3ookl0=@3ookl0
0`000?l0oono0?oo_`0E0?oo_`00603ookl00`000?l0oono0?oo_`0X0?oo_`030000003ookl0oono
00H0oono00<000000?oo_`3ookl00P3ookl2000003H0oono00<0003o0?oo_`3ookl05@3ookl001P0
oono00<0003o0?oo_`3ookl0:03ookl00`000000oono0?oo_`050?oo_`030000003ookl0oono00<0
oono00<000000?oo_`3ookl0=P3ookl00`000?l0oono0?oo_`0D0?oo_`005`3ookl00`000?l0oono
0?oo_`0X0?oo_`8000001P3ookl3000000@0oono00<000000?oo_`3ookl0=P3ookl00`000?l0oono
0?oo_`0D0?oo_`005`3ookl00`000?l0oono0?oo_`0g0?oo_`800000>03ookl00`000?l0oono0?oo
_`0C0?oo_`005P3ookl00`000?l0oono0?oo_`0h0?oo_`030000003ookl0oono03L0oono00<0003o
0?oo_`3ookl04`3ookl001H0oono00<0003o0?oo_`3ookl0>03ookl00`000000oono0?oo_`0g0?oo
_`030000o`3ookl0oono01<0oono000F0?oo_`030000o`3ookl0oono03P0oono0P00000i0?oo_`03
0000o`3ookl0oono0180oono000E0?oo_`030000o`3ookl0oono03T0oono00<000000?oo_`3ookl0
>03ookl00`000?l0oono0?oo_`0B0?oo_`005@3ookl00`000?l0oono0?oo_`0i0?oo_`030000003o
okl0oono03P0oono00<0003o0?oo_`3ookl04P3ookl001D0oono00<0003o0?oo_`3ookl0>@3ookl2
000003X0oono00<0003o0?oo_`3ookl04@3ookl001@0oono00<0003o0?oo_`3ookl0>P3ookl00`00
0000oono0?oo_`0i0?oo_`030000o`3ookl0oono0140oono000D0?oo_`030000o`3ookl0oono03X0
oono00<000000?oo_`3ookl0>P3ookl00`000?l0oono0?oo_`0@0?oo_`00503ookl00`000?l0oono
0?oo_`0j0?oo_`800000>`3ookl00`000?l0oono0?oo_`0@0?oo_`004`3ookl00`000?l0oono0?oo
_`0k0?oo_`030000003ookl0oono03X0oono00<0003o0?oo_`3ookl0403ookl001<0oono00<0003o
0?oo_`3ookl0>`3ookl00`000000oono0?oo_`0k0?oo_`030000o`3ookl0oono00l0oono000C0?oo
_`030000o`3ookl0oono02`0oono0`0000000`3ookl000000?oo_`030?oo_`030000003ookl0oono
00<0oono0P00000l0?oo_`030000o`3ookl0oono00l0oono000B0?oo_`030000o`3ookl0oono02h0
oono00<000000?oo_`3ookl0103ookl2000000D0oono00<000000?oo_`3ookl0>`3ookl00`000?l0
oono0?oo_`0?0?oo_`004P3ookl00`000?l0oono0?oo_`0^0?oo_`030000003ookl0oono00@0oono
0P0000050?oo_`030000003ookl0oono03`0oono00<0003o0?oo_`3ookl03P3ookl00180oono00<0
003o0?oo_`3ookl0;@3ookl2000000L0oono00<000000?oo_`3ookl00`3ookl2000003d0oono00<0
003o0?oo_`3ookl03P3ookl00140oono00<0003o0?oo_`3ookl0?@3ookl00`000000oono0?oo_`0l
0?oo_`030000o`3ookl0oono00h0oono000A0?oo_`030000o`3ookl0oono03d0oono00<000000?oo
_`3ookl0?@3ookl00`000?l0oono0?oo_`0=0?oo_`004@3ookl00`000?l0oono0?oo_`0m0?oo_`80
0000?P3ookl00`000?l0oono0?oo_`0=0?oo_`00403ookl00`000?l0oono0?oo_`0n0?oo_`030000
003ookl0oono03d0oono00<0003o0?oo_`3ookl03@3ookl00100oono00<0003o0?oo_`3ookl0?P3o
okl00`000000oono0?oo_`0n0?oo_`030000o`3ookl0oono00`0oono000@0?oo_`030000o`3ookl0
oono03h0oono0P00000o0?oo_`030000o`3ookl0oono00`0oono000?0?oo_`030000o`3ookl0oono
03l0oono00<000000?oo_`3ookl0?P3ookl00`000?l0oono0?oo_`0<0?oo_`003`3ookl00`000?l0
oono0?oo_`0o0?oo_`030000003ookl0oono03l0oono00<0003o0?oo_`3ookl02`3ookl000l0oono
00<0003o0?oo_`3ookl0?`3ookl200000400oono00<0003o0?oo_`3ookl02`3ookl000h0oono00<0
003o0?oo_`3ookl0@03ookl00`000000oono0?oo_`0o0?oo_`030000o`3ookl0oono00/0oono000>
0?oo_`030000o`3ookl0oono0400oono00<000000?oo_`3ookl0?`3ookl00`000?l0oono0?oo_`0;
0?oo_`003P3ookl00`000?l0oono0?oo_`0a0?oo_`<0000000<0oono0000003ookl00P3ookl30000
00@0oono0P0000110?oo_`030000o`3ookl0oono00X0oono000>0?oo_`030000o`3ookl0oono0380
oono00<000000?oo_`3ookl01P3ookl00`000000oono0?oo_`020?oo_`030000003ookl0oono0400
oono00<0003o0?oo_`3ookl02P3ookl000d0oono00<0003o0?oo_`3ookl0<`3ookl00`000000oono
0?oo_`040?oo_`<00000103ookl00`000000oono0?oo_`100?oo_`030000o`3ookl0oono00X0oono
000=0?oo_`030000o`3ookl0oono0380oono0P0000060?oo_`<00000103ookl00`000000oono0?oo
_`110?oo_`030000o`3ookl0oono00T0oono000=0?oo_`030000o`3ookl0oono0440oono0P000012
0?oo_`030000o`3ookl0oono00T0oono000<0?oo_`030000o`3ookl0oono0480oono00<000000?oo
_`3ookl0@@3ookl00`000?l0oono0?oo_`090?oo_`00303ookl00`000?l0oono0?oo_`120?oo_`03
0000003ookl0oono0480oono00<0003o0?oo_`3ookl0203ookl000`0oono00<0003o0?oo_`3ookl0
@P3ookl2000004<0oono00<0003o0?oo_`3ookl0203ookl000/0oono00<0003o0?oo_`3ookl0@`3o
okl00`000000oono0?oo_`120?oo_`030000o`3ookl0oono00P0oono000;0?oo_`030000o`3ookl0
oono04<0oono00<000000?oo_`3ookl0@`3ookl00`000?l0oono0?oo_`070?oo_`00D@3ookl20000
04h0oono001A0?oo_`030000003ookl0oono04d0oono0000\
\>"],
  ImageRangeCache->{{{0, 160.812}, {99, 0}} -> {-1.17198, 0.929842, \
0.0143691, 0.00647973}}]
}, Closed]],

Cell[TextData[{
  "From this graph it appears that the limit is equal to 1 approaching from \
both the left and the right. We next made a table of values for ",
  Cell[BoxData[
      StyleBox[
        FractionBox[
          RowBox[{"tan", 
            RowBox[{"(", 
              StyleBox["x",
                "DisplayFormula",
                UnderscriptBoxOptions->{LimitsPositioning->False}], ")"}]}], 
          StyleBox["x",
            "DisplayFormula",
            UnderscriptBoxOptions->{LimitsPositioning->False}]],
        "DisplayFormula",
        UnderscriptBoxOptions->{LimitsPositioning->False}]]],
  "."
}], "Text"],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{
      RowBox[{"Table", "[", 
        RowBox[{"x", ",", 
          FractionBox[
            RowBox[{"Tan", "[", "x", "]"}], "x"], ",", "Show", ",", " ", 
          RowBox[{"10", " ", "Places"}], ",", 
          RowBox[{"{", 
            RowBox[{"x", ",", 
              RowBox[{"{", 
                RowBox[{
                "0.5", ",", "0.1", ",", "0.05", ",", "0.01", ",", "0.005", 
                  ",", "0.001", ",", "0.0001"}], "}"}]}], "}"}]}], "]"}], 
      ";"}]], "Input"],

Cell[BoxData[
    TagBox[GridBox[{
          {"\<\"\\!\\(x\\)\"\>", "\<\"\\!\\(\\(\\(Tan[x]\\)\\/x\\)\\)\"\>"},
          {
            TagBox[
              InterpretationBox["\<\" 0.5        \"\>",
                0.5,
                AutoDelete->True],
              (
              PaddedForm[ #, {9, 9}, ExponentFunction -> (
                ExponentFunctionE[ #, 6]&), NumberPadding -> {" ", " "}]&)], 
            TagBox[
              InterpretationBox["\<\"  1.0926049797\"\>",
                1.0926049797,
                AutoDelete->True],
              (
              PaddedForm[ #, {12, 10}, ExponentFunction -> (
                ExponentFunctionE[ #, 10]&)]&)]},
          {
            TagBox[
              InterpretationBox["\<\" 0.1        \"\>",
                0.1,
                AutoDelete->True],
              (
              PaddedForm[ #, {9, 9}, ExponentFunction -> (
                ExponentFunctionE[ #, 6]&), NumberPadding -> {" ", " "}]&)], 
            TagBox[
              InterpretationBox["\<\"  1.0033467209\"\>",
                1.0033467209,
                AutoDelete->True],
              (
              PaddedForm[ #, {12, 10}, ExponentFunction -> (
                ExponentFunctionE[ #, 10]&)]&)]},
          {
            TagBox[
              InterpretationBox["\<\" 0.05       \"\>",
                0.05,
                AutoDelete->True],
              (
              PaddedForm[ #, {9, 9}, ExponentFunction -> (
                ExponentFunctionE[ #, 6]&), NumberPadding -> {" ", " "}]&)], 
            TagBox[
              InterpretationBox["\<\"  1.0008341675\"\>",
                1.0008341675,
                AutoDelete->True],
              (
              PaddedForm[ #, {12, 10}, ExponentFunction -> (
                ExponentFunctionE[ #, 10]&)]&)]},
          {
            TagBox[
              InterpretationBox["\<\" 0.01       \"\>",
                0.01,
                AutoDelete->True],
              (
              PaddedForm[ #, {9, 9}, ExponentFunction -> (
                ExponentFunctionE[ #, 6]&), NumberPadding -> {" ", " "}]&)], 
            TagBox[
              InterpretationBox["\<\"  1.0000333347\"\>",
                1.0000333347,
                AutoDelete->True],
              (
              PaddedForm[ #, {12, 10}, ExponentFunction -> (
                ExponentFunctionE[ #, 10]&)]&)]},
          {
            TagBox[
              InterpretationBox["\<\" 0.005      \"\>",
                0.005,
                AutoDelete->True],
              (
              PaddedForm[ #, {9, 9}, ExponentFunction -> (
                ExponentFunctionE[ #, 6]&), NumberPadding -> {" ", " "}]&)], 
            TagBox[
              InterpretationBox["\<\"  1.0000083334\"\>",
                1.0000083334,
                AutoDelete->True],
              (
              PaddedForm[ #, {12, 10}, ExponentFunction -> (
                ExponentFunctionE[ #, 10]&)]&)]},
          {
            TagBox[
              InterpretationBox["\<\" 0.001      \"\>",
                0.001,
                AutoDelete->True],
              (
              PaddedForm[ #, {9, 9}, ExponentFunction -> (
                ExponentFunctionE[ #, 6]&), NumberPadding -> {" ", " "}]&)], 
            TagBox[
              InterpretationBox["\<\"  1.0000003333\"\>",
                1.0000003333,
                AutoDelete->True],
              (
              PaddedForm[ #, {12, 10}, ExponentFunction -> (
                ExponentFunctionE[ #, 10]&)]&)]},
          {
            TagBox[
              InterpretationBox["\<\" 0.0001     \"\>",
                0.0001,
                AutoDelete->True],
              (
              PaddedForm[ #, {9, 9}, ExponentFunction -> (
                ExponentFunctionE[ #, 6]&), NumberPadding -> {" ", " "}]&)], 
            TagBox[
              InterpretationBox["\<\"  1.0000000033\"\>",
                1.0000000033,
                AutoDelete->True],
              (
              PaddedForm[ #, {12, 10}, ExponentFunction -> (
                ExponentFunctionE[ #, 10]&)]&)]}
          },
        RowSpacings->1,
        ColumnSpacings->3,
        RowAlignments->Baseline,
        ColumnAlignments->{Left}],
      (TableForm[ #, TableAlignments -> {Left, Baseline}, TableHeadings -> {
        None, {"\!\(x\)", "\!\(\(\(Tan[x]\)\/x\)\)"}}, TableDirections -> 
        Column, TableSpacing -> Automatic, TableDepth -> DirectedInfinity[ 
        1]]&)]], "Print"]
}, Closed]],

Cell["\<\
This is much more convincing than the graph, which is not very \
accurate.\
\>", "Text"],

Cell[TextData[{
  "The graph also shows that ",
  Cell[BoxData[
      StyleBox[
        FractionBox[
          RowBox[{"tan", 
            RowBox[{"(", 
              StyleBox["x",
                "DisplayFormula",
                UnderscriptBoxOptions->{LimitsPositioning->False}], ")"}]}], 
          StyleBox["x",
            "DisplayFormula",
            UnderscriptBoxOptions->{LimitsPositioning->False}]],
        "DisplayFormula",
        UnderscriptBoxOptions->{LimitsPositioning->False}]]],
  " is an even function, which can be easily verified:"
}], "Text"],

Cell[TextData[{
  "f(-x) = ",
  Cell[BoxData[
      StyleBox[
        FractionBox[
          RowBox[{"tan", 
            RowBox[{"(", 
              RowBox[{"-", 
                StyleBox["x",
                  "DisplayFormula",
                  UnderscriptBoxOptions->{LimitsPositioning->False}]}], 
              ")"}]}], 
          RowBox[{"-", 
            StyleBox["x",
              "DisplayFormula",
              UnderscriptBoxOptions->{LimitsPositioning->False}]}]],
        "DisplayFormula",
        UnderscriptBoxOptions->{LimitsPositioning->False}]]],
  " = ",
  Cell[BoxData[
      StyleBox[
        FractionBox[
          RowBox[{
            RowBox[{"-", "tan"}], 
            RowBox[{"(", 
              StyleBox["x",
                "DisplayFormula",
                UnderscriptBoxOptions->{LimitsPositioning->False}], ")"}]}], 
          RowBox[{"-", 
            StyleBox["x",
              "DisplayFormula",
              UnderscriptBoxOptions->{LimitsPositioning->False}]}]],
        "DisplayFormula",
        UnderscriptBoxOptions->{LimitsPositioning->False}]]],
  " = ",
  Cell[BoxData[
      StyleBox[
        FractionBox[
          RowBox[{"tan", 
            RowBox[{"(", 
              StyleBox["x",
                "DisplayFormula",
                UnderscriptBoxOptions->{LimitsPositioning->False}], ")"}]}], 
          StyleBox["x",
            "DisplayFormula",
            UnderscriptBoxOptions->{LimitsPositioning->False}]],
        "DisplayFormula",
        UnderscriptBoxOptions->{LimitsPositioning->False}]]],
  " = f(x)"
}], "DisplayFormula"],

Cell[TextData[{
  "Since ",
  Cell[BoxData[
      StyleBox[
        FractionBox[
          RowBox[{"tan", 
            RowBox[{"(", 
              StyleBox["x",
                "DisplayFormula",
                UnderscriptBoxOptions->{LimitsPositioning->False}], ")"}]}], 
          StyleBox["x",
            "DisplayFormula",
            UnderscriptBoxOptions->{LimitsPositioning->False}]],
        "DisplayFormula",
        UnderscriptBoxOptions->{LimitsPositioning->False}]]],
  " is an even function, it was not necessary to include negative values of x \
in our table since they would give the same answers as positive values of x.\n\
The table convinced us that the limit was equal to 1. We backed up this \
conclusion with a formal evaluation:"
}], "Text"],

Cell[TextData[Cell[BoxData[
    FormBox[
      RowBox[{
        RowBox[{
          StyleBox[
            UnderscriptBox["lim", 
              RowBox[{
                StyleBox["x",
                  UnderscriptBoxOptions->{LimitsPositioning->False}], 
                "\[Rule]", "0"}]],
            UnderscriptBoxOptions->{LimitsPositioning->False}], 
          StyleBox[
            FractionBox[
              RowBox[{"tan", 
                RowBox[{"(", 
                  StyleBox["x",
                    "DisplayFormula",
                    UnderscriptBoxOptions->{LimitsPositioning->False}], 
                  ")"}]}], 
              StyleBox["x",
                "DisplayFormula",
                UnderscriptBoxOptions->{LimitsPositioning->False}]],
            "DisplayFormula",
            UnderscriptBoxOptions->{LimitsPositioning->False}]}], 
        StyleBox["=",
          "DisplayFormula",
          FontColor->GrayLevel[0]], 
        RowBox[{
          RowBox[{
            StyleBox[
              UnderscriptBox["lim", 
                RowBox[{
                  StyleBox["x",
                    UnderscriptBoxOptions->{LimitsPositioning->False}], 
                  "\[Rule]", "0"}]],
              UnderscriptBoxOptions->{LimitsPositioning->False}], 
            StyleBox[
              FractionBox[
                FractionBox[
                  RowBox[{"sin", 
                    RowBox[{"(", "x", ")"}]}], 
                  RowBox[{"cos", 
                    RowBox[{"(", "x", ")"}]}]], 
                StyleBox["x",
                  "DisplayFormula",
                  UnderscriptBoxOptions->{LimitsPositioning->False}]],
              "DisplayFormula",
              UnderscriptBoxOptions->{LimitsPositioning->False}]}], 
          StyleBox["=",
            "DisplayFormula",
            UnderscriptBoxOptions->{LimitsPositioning->False}], 
          RowBox[{
            RowBox[{
              StyleBox[
                UnderscriptBox["lim", 
                  RowBox[{
                    StyleBox["x",
                      UnderscriptBoxOptions->{LimitsPositioning->False}], 
                    "\[Rule]", "0"}]],
                UnderscriptBoxOptions->{LimitsPositioning->False}], 
              StyleBox[
                FractionBox[
                  RowBox[{"sin", 
                    RowBox[{"(", "x", ")"}]}], 
                  RowBox[{
                    StyleBox["x",
                      "DisplayFormula",
                      UnderscriptBoxOptions->{LimitsPositioning->False}], 
                    " ", "cos", 
                    RowBox[{"(", "x", ")"}]}]],
                "DisplayFormula",
                UnderscriptBoxOptions->{LimitsPositioning->False}]}], 
            StyleBox["=",
              "DisplayFormula",
              UnderscriptBoxOptions->{LimitsPositioning->False}], 
            RowBox[{
              RowBox[{
                StyleBox[
                  UnderscriptBox["lim", 
                    RowBox[{
                      StyleBox["x",
                        UnderscriptBoxOptions->{LimitsPositioning->False}], 
                      "\[Rule]", "0"}]],
                  UnderscriptBoxOptions->{LimitsPositioning->False}], 
                RowBox[{
                  StyleBox[
                    FractionBox[
                      RowBox[{"sin", 
                        RowBox[{"(", "x", ")"}]}], 
                      StyleBox["x",
                        "DisplayFormula",
                        UnderscriptBoxOptions->{LimitsPositioning->False}]],
                    "DisplayFormula",
                    UnderscriptBoxOptions->{LimitsPositioning->False}], 
                  RowBox[{
                    StyleBox[
                      UnderscriptBox["lim", 
                        RowBox[{
                          StyleBox["x",
                            UnderscriptBoxOptions->{
                            LimitsPositioning->False}], "\[Rule]", "0"}]],
                      UnderscriptBoxOptions->{LimitsPositioning->False}], 
                    StyleBox[
                      FractionBox[
                        StyleBox["1",
                          "DisplayFormula",
                          UnderscriptBoxOptions->{
                          LimitsPositioning->False}], 
                        RowBox[{" ", 
                          RowBox[{"cos", 
                            RowBox[{"(", "x", ")"}]}]}]],
                      "DisplayFormula"]}]}]}], 
              StyleBox["=",
                "DisplayFormula"], 
              RowBox[{
                RowBox[{
                  RowBox[{"(", 
                    StyleBox["1",
                      "DisplayFormula"], 
                    StyleBox[")",
                      "DisplayFormula"]}], 
                  StyleBox[
                    RowBox[{"(", "1", ")"}],
                    "DisplayFormula"]}], 
                StyleBox["=",
                  "DisplayFormula"], 
                StyleBox["1",
                  "DisplayFormula"]}]}]}]}]}], TextForm]]]], "DisplayFormula"],

Cell["\<\
To check that Mathematica agreed with us, we used the built-in \
Limit command.\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
    StyleBox[
      RowBox[{"Limit", "[", 
        RowBox[{
          RowBox[{
            RowBox[{"Tan", "[", "x", "]"}], "/", "x"}], ",", 
          RowBox[{"x", "->", "0"}]}], "]"}],
      FontFamily->"Courier",
      FontWeight->"Bold"]], "Input"],

Cell[BoxData["1"], "Output"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["Discussion of Solution", "Subsection"],

Cell["\<\
This is admittedly a highly idealized example; it is unlikely that \
you would include in any single problem all the elements shown here. (But you \
should get a really good score if you did!) \
\>", "Text"],

Cell["\<\
This problem emphasizes approaching a problem in several different \
ways. It shows graphing and numerical calculations (using the computer) and \
algebraic calculation (paper and pencil). Finally the computer is used to \
check the answer by a direct command. Not all problems will benefit from \
using more than one approach, but many will. You should use alternate methods \
of solution whenever you see the opportunity, even if the problem does not \
explicitly ask you to. \
\>", "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["About the Problems", "Section"],

Cell[CellGroupData[{

Cell["Icons", "Subsection"],

Cell["\<\
    The icons in front the problems tell you something about the \
nature of the problem. This is an attempt to be helpful, but some problems \
may have been overlooked and may not have the proper icon.\
\>", "Text"],

Cell[TextData[StyleBox["L99.1",
  FontWeight->"Bold"]], "Text",
  CellDingbat->"\[FilledSquare]"],

Cell["\<\
    Most problems have an icon of a filled square in front of the \
problem number. This means that the problem requires technology in some way. \
In many cases a graphing calculator would be adequate if you are working \
outside the lab.\
\>", "Text"],

Cell[TextData[StyleBox["L99.2",
  FontWeight->"Bold"]], "Text",
  CellDingbat->"\[EmptySquare]"],

Cell["\<\
    Many problems have an icon of an empty square in front of the \
problem number. This means that the problem does not require technology. It\
\[CloseCurlyQuote]s a pencil and paper problem that could be done anywhere. \
You may want to postpone working such problems until you are finished with \
the ones that do require the computer, though it\[CloseCurlyQuote]s often \
good to discuss these problems with your lab partner.\
\>", "Text"],

Cell[TextData[StyleBox["L99.2",
  FontWeight->"Bold"]], "Text",
  CellDingbat->"\[FivePointedStar]"],

Cell[TextData[{
  "    A few problems have an icon of a star in front of the problem number. \
This means that the problem requires the specific combination of ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " and ",
  StyleBox["calcE",
    FontSlant->"Italic"],
  ", and you are very unlikely to be able to do the problem properly \
otherwise. "
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Summary Problems", "Subsection"],

Cell["\<\
    At the end of each problem set is a Summary problem that asks \
you to write a paragraph or two about the lab. It is up to your instructor to \
clarify what kind of response s/he is looking for. Here are two possible such \
instructions.\
\>", "Text"],

Cell[CellGroupData[{

Cell["Instructions 1", "Subsubsection"],

Cell["\<\
\[OpenCurlyDoubleQuote]Explain what you\[CloseCurlyQuote]ve learned \
from this lab. Don\[CloseCurlyQuote]t take this too literally; I don\
\[CloseCurlyQuote]t want \[OpenCurlyQuote]we learned about vectors\
\[CloseCurlyQuote] or similar meaningless filler. Use this question as an \
opportunity to reflect on what you did and share your thoughts and reactions.\
\[CloseCurlyDoubleQuote]\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Instructions 2", "Subsubsection"],

Cell["\<\
 \[OpenCurlyDoubleQuote]How do these laboratory exercises relate to \
your reading work and exercises work from the textbook?  Be specific, i.e. \
tell me which specific concepts, definitions, theorems, and example problems \
in the textbook are related to these laboratory exercises. And how they are \
related?\[CloseCurlyDoubleQuote]\
\>", "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Special Topic", "Subsubsection"],

Cell["\<\
    Also in each Summary problem is a \
\[OpenCurlyDoubleQuote]Special Topic\[CloseCurlyDoubleQuote] question, which \
can be used as anybody sees fit. You might take it as a suggestion, or just \
ignore it. Most of them require more work or thought than a typical response.\
\
\>", "Text"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell["How to Get High Scores on Lab Reports", "Section"],

Cell[BoxData[
    FormBox[GridBox[{
          {"1.", 
            RowBox[{
              RowBox[{"When", " ", "in", " ", "doubt"}], ",", " ", 
              RowBox[{
                RowBox[{"write", "!"}], " ", "Think", " ", "about", " ", 
                "what", " ", "you", " ", "did"}], ",", " ", 
              RowBox[{"what", " ", "it", " ", "means"}], ",", "\n", " ", 
              RowBox[{"and", " ", "summarize", " ", 
                RowBox[{"it", "."}]}]}]},
          {"2.", 
            RowBox[{
              RowBox[{
              "Make", " ", "your", " ", "report", " ", "organized", " ", 
                "and", " ", "easy", " ", "to", " ", 
                RowBox[{"read", ".", " ", "If"}], " ", "your", " ", 
                "handwriting", " ", "is"}], " ", "\n", 
              RowBox[{
                RowBox[{"hard", " ", "to", " ", "read"}], ",", " ", 
                RowBox[{"type", " ", "your", " ", 
                  RowBox[{"report", "."}]}]}]}]},
          {"3.", 
            RowBox[{
              RowBox[{
                RowBox[{
                "If", " ", "you", " ", "are", " ", "preparing", " ", "your", 
                  " ", "report", " ", "by", " ", "hand"}], ",", " ", 
                RowBox[{
                "paste", " ", "any", " ", "Mathematica", " ", "graphs"}]}], 
              "\n", " ", 
              RowBox[{
                RowBox[{
                "into", " ", "the", " ", "proper", " ", "location", " ", 
                  "in", " ", "your", " ", "report", " ", 
                  RowBox[{
                    RowBox[{"(", 
                      RowBox[{
                      "rather", " ", "than", " ", "leaving", " ", "them", 
                        " ", "at", " ", "the", " ", "end"}], ")"}], ".", 
                    "\n", "\t", "Do"}], " ", "not", " ", "include", " ", 
                  "unnecessary", " ", "graphs", " ", "and", " ", "tables"}], 
                ";", " ", 
                RowBox[{
                "using", " ", "a", " ", "few", " ", "important", " ", 
                  "graphs"}]}], "\n", "\t", 
              RowBox[{
              "with", " ", "explanation", " ", "is", " ", "far", " ", 
                "better", " ", "than", " ", "using", " ", "dozens", " ", 
                "of", " ", "graphs", " ", "without", " ", 
                RowBox[{"explanation", "."}]}]}]},
          {"4.", 
            RowBox[{
              RowBox[{
                RowBox[{
                "If", " ", "you", " ", "see", " ", "something", " ", "that", 
                  " ", "is", " ", "unusual"}], ",", " ", 
                RowBox[{
                "or", " ", "observe", " ", "a", " ", "pattern", " ", "or", 
                  " ", "coincidence"}], ",", " ", "\n", 
                RowBox[{
                "or", " ", "something", " ", "that", " ", "you", " ", 
                  RowBox[{"don", "'"}], "t", " ", "understand"}], ",", " ", 
                RowBox[{"say", " ", 
                  RowBox[{"so", "!"}], " ", "This", " ", "is", " ", "as", 
                  " ", "important", " ", "in"}]}], " ", "\n", "\t", 
              RowBox[{
              "Mathematics", " ", "as", " ", "it", " ", "is", " ", "in", 
                " ", 
                RowBox[{"Science", "."}]}]}]},
          {"5.", 
            RowBox[{
              RowBox[{
                RowBox[{
                "If", " ", "your", " ", "scores", " ", "are", " ", "not", 
                  " ", "as", " ", "high", " ", "as", " ", "you", " ", 
                  "would", " ", "like"}], ",", 
                RowBox[{
                "ask", " ", "the", " ", "grader", " ", "or", " ", "your"}]}], 
              "\n", " ", 
              RowBox[{
              "instructor", " ", "for", " ", "suggestions", " ", "on", " ", 
                "how", " ", "to", " ", 
                RowBox[{"improve", ".", " ", "Ask"}], " ", "others", " ", 
                "in", " ", "your", " ", "class"}], " ", "\n", "\t", 
              RowBox[{
              "who", " ", "receive", " ", "high", " ", "scores", " ", "if", 
                " ", "you", " ", "can", " ", "look", " ", "at", " ", "their", 
                " ", 
                RowBox[{"reports", "."}]}]}]}
          }], TextForm]], "Text",
  PageWidth->PaperWidth,
  CellMargins->{{Inherited, 0}, {Inherited, Inherited}},
  GridBoxOptions->{ColumnAlignments->{Left}}]
}, Closed]],

Cell[CellGroupData[{

Cell["How to Get Low Scores on Lab Reports", "Section"],

Cell[BoxData[
    FormBox[GridBox[{
          {
            "1.", \(\(Just\ print\ out\ your\ Mathematica\ notebook\ with\ \
little\ or\ no\ commentary\ or\)\n\ \(\(explanation\)\(.\)\)\)},
          {
            "2.", \(\(\(Don\)\(\[CloseCurlyQuote]\)\) 
              t\ do\ any\ more\ writing\ than\ is\ absolutely\ necessary, \ 
            maybe\ less . \n\ It' 
              s\ inhumane\ to\ require\ writing\ in\ a\ math\ class, \ 
            and\ you\ know\ your\ \(\(rights\)\(.\)\)\)},
          {
            "3.", \(\(\(\(Don\)\(\[CloseCurlyQuote]\)\) 
              t\ bother\ to\ compare\ your\ answer\ with\ anybody . \ 
                You\ might\ find\ out\)\n\(yours\ is\ wrong\)\)},
          {"4.", \(Never\ explain\ anything, \ 
            never\ interpret\ answers\ and\ never\ draw\ conclusions . \n\ 
                Just\ do\ it\ and\ get\ it\ over\ \(\(with\)\(.\)\)\)},
          {
            "5.", \(\(\(\(\(Put\ all\ your\ graphs\ at\ the\ end\ of\ your\ \
report\ so\ the\ grader\ has\ to\ flip\ back\ and\)\n\ forth\ to\ find\ them \
. \ \((A\ sensible\ grader\ won\)\)\(\[CloseCurlyQuote]\)\) 
                t\ do\ \(\(it\)\(.\)\)\)\()\)\)}
          }], TextForm]], "Text",
  PageWidth->PaperWidth,
  CellMargins->{{Inherited, 0}, {Inherited, Inherited}},
  GridBoxOptions->{ColumnAlignments->{Left}}]
}, Closed]]
}, Closed]]
}, Open  ]]
},
FrontEndVersion->"4.0 for Macintosh",
ScreenRectangle->{{0, 832}, {0, 604}},
WindowToolbars->{},
WindowSize->{525, 550},
WindowMargins->{{1, Automatic}, {Automatic, 1}},
PrintingCopies->1,
PrintingPageRange->{1, 2},
PageHeaders->{{Cell[ 
        TextData[ {"p. I-", 
          CounterBox[ "Page"]}], "PageNumber"], Inherited, Cell[ 
        TextData[ {
          ValueBox[ "FileName"]}], "Header"]}, {Cell[ 
        TextData[ {
          ValueBox[ "FileName"]}], "Header"], Inherited, Cell[ 
        TextData[ {"p. I-", 
          CounterBox[ "Page"]}], "PageNumber"]}},
PageFooters->{{Cell[ 
        TextData[ {"Calculus Computer Lab Manual"}], "Footer"], Inherited, 
      Cell[ 
        TextData[ {"Version 8.0, 8/1/2000"}], "Footer"]}, {Cell[ 
        TextData[ {"Version 8.0, 8/1/2000"}], "Footer"], Inherited, Cell[ 
        TextData[ {"Calculus Computer Lab Manual"}], "Footer"]}},
PageFooterLines->{True, True},
PrintingOptions->{"FacingPages"->True},
PrivateNotebookOptions->{"ColorPalette"->{RGBColor, 128}},
ShowCellLabel->True,
CellLabelAutoDelete->True,
ShowCellTags->False,
ScriptSizeMultipliers->0.86,
RenderingOptions->{"ObjectDithering"->True,
"RasterDithering"->False},
StyleDefinitions -> "LabStyles.nb",
MacintoshSystemPageSetup->"\<\
00<0004/0B`000002mT8o?mooh<<HPUi0fL5:0?l0080004/0B`000000]P2:001
0000I00000400`<300000BL?00400@;mLO000000000006P801T1T00000000000
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->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 63, 0, 51, "Subsubtitle"],

Cell[CellGroupData[{
Cell[1805, 53, 48, 0, 66, "Title"],

Cell[CellGroupData[{
Cell[1878, 57, 89, 2, 30, "Subsection",
  Evaluatable->False],
Cell[1970, 61, 139, 5, 25, "Text",
  Evaluatable->False]
}, Closed]],

Cell[CellGroupData[{
Cell[2146, 71, 39, 0, 50, "Subtitle"],

Cell[CellGroupData[{
Cell[2210, 75, 47, 0, 37, "Section"],
Cell[2260, 77, 390, 7, 93, "Text"],
Cell[2653, 86, 926, 25, 144, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[3616, 116, 55, 0, 33, "Section"],
Cell[3674, 118, 677, 11, 144, "Text"],
Cell[4354, 131, 700, 14, 144, "Text"],
Cell[5057, 147, 260, 5, 76, "Text"],
Cell[5320, 154, 687, 12, 144, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[6044, 171, 35, 0, 37, "Section"],

Cell[CellGroupData[{
Cell[6104, 175, 162, 5, 30, "Subsection"],
Cell[6269, 182, 188, 4, 59, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[6494, 191, 60, 0, 30, "Subsection"],
Cell[6557, 193, 258, 4, 59, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[6852, 202, 63, 0, 30, "Subsection"],
Cell[6918, 204, 331, 8, 42, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[7286, 217, 45, 0, 30, "Subsection"],
Cell[7334, 219, 491, 8, 110, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[7862, 232, 117, 2, 30, "Subsection"],
Cell[7982, 236, 560, 8, 127, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[8579, 249, 65, 0, 30, "Subsection"],
Cell[8647, 251, 142, 3, 42, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[8826, 259, 71, 0, 30, "Subsection"],
Cell[8900, 261, 458, 7, 110, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[9395, 273, 50, 0, 30, "Subsection"],
Cell[9448, 275, 92, 3, 25, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[9577, 283, 67, 0, 30, "Subsection"],
Cell[9647, 285, 246, 5, 59, "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[9942, 296, 67, 1, 33, "Section"],
Cell[10012, 299, 601, 15, 76, "Text"],
Cell[10616, 316, 157, 5, 41, "DisplayText"]
}, Closed]],

Cell[CellGroupData[{
Cell[10810, 326, 34, 0, 33, "Section"],
Cell[10847, 328, 101, 3, 25, "Text"],
Cell[10951, 333, 184, 4, 59, "Text"],
Cell[11138, 339, 687, 15, 127, "Text"],
Cell[11828, 356, 205, 6, 42, "Text"],
Cell[12036, 364, 76, 0, 25, "Text"],
Cell[12115, 366, 916, 18, 144, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[13068, 389, 36, 0, 33, "Section"],
Cell[13107, 391, 311, 8, 42, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[13455, 404, 46, 0, 33, "Section"],
Cell[13504, 406, 529, 11, 110, "Text"],
Cell[14036, 419, 455, 12, 76, "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[14540, 437, 39, 0, 50, "Subtitle"],
Cell[14582, 439, 294, 5, 76, "Text"],
Cell[14879, 446, 328, 11, 42, "Text"],

Cell[CellGroupData[{
Cell[15232, 461, 46, 0, 37, "Section"],
Cell[15281, 463, 917, 27, 50, "Exercise"],

Cell[CellGroupData[{
Cell[16223, 494, 30, 0, 30, "Subsection"],
Cell[16256, 496, 548, 16, 42, "Text"],

Cell[CellGroupData[{
Cell[16829, 516, 274, 8, 49, "Input"],
Cell[17106, 526, 20724, 721, 108, 11038, 597, "GraphicsData", "PostScript", \
"Graphics"]
}, Closed]],
Cell[37845, 1250, 630, 17, 59, "Text"],

Cell[CellGroupData[{
Cell[38500, 1271, 508, 13, 69, "Input"],
Cell[39011, 1286, 4474, 116, 143, "Print"]
}, Closed]],
Cell[43500, 1405, 98, 3, 25, "Text"],
Cell[43601, 1410, 567, 16, 59, "Text"],
Cell[44171, 1428, 1580, 49, 42, "DisplayFormula"],
Cell[45754, 1479, 763, 19, 110, "Text"],
Cell[46520, 1500, 5054, 127, 91, "DisplayFormula"],
Cell[51577, 1629, 103, 3, 42, "Text"],

Cell[CellGroupData[{
Cell[51705, 1636, 265, 8, 33, "Input"],
Cell[51973, 1646, 28, 0, 32, "Output"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[52050, 1652, 44, 0, 30, "Subsection"],
Cell[52097, 1654, 217, 4, 59, "Text"],
Cell[52317, 1660, 502, 8, 127, "Text"]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[52868, 1674, 37, 0, 33, "Section"],

Cell[CellGroupData[{
Cell[52930, 1678, 27, 0, 30, "Subsection"],
Cell[52960, 1680, 226, 4, 59, "Text"],
Cell[53189, 1686, 97, 2, 26, "Text"],
Cell[53289, 1690, 262, 5, 76, "Text"],
Cell[53554, 1697, 96, 2, 26, "Text"],
Cell[53653, 1701, 453, 7, 110, "Text"],
Cell[54109, 1710, 100, 2, 26, "Text"],
Cell[54212, 1714, 367, 10, 76, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[54616, 1729, 38, 0, 30, "Subsection"],
Cell[54657, 1731, 265, 5, 76, "Text"],

Cell[CellGroupData[{
Cell[54947, 1740, 39, 0, 24, "Subsubsection"],
Cell[54989, 1742, 411, 7, 76, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[55437, 1754, 39, 0, 24, "Subsubsection"],
Cell[55479, 1756, 360, 6, 76, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[55876, 1767, 38, 0, 24, "Subsubsection"],
Cell[55917, 1769, 300, 6, 59, "Text"]
}, Closed]]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{
Cell[56278, 1782, 56, 0, 33, "Section"],
Cell[56337, 1784, 4363, 93, 267, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[60737, 1882, 55, 0, 33, "Section"],
Cell[60795, 1884, 1341, 26, 199, "Text"]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)




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