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

                    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[     13572,        457]*)
(*NotebookOutlinePosition[     14648,        494]*)
(*  CellTagsIndexPosition[     14547,        487]*)
(*WindowFrame->Normal*)



Notebook[{

Cell[CellGroupData[{
Cell["Changes in Labs", "Title"],

Cell[CellGroupData[{

Cell["General", "Section"],

Cell["\<\
Significant changes were made in the MTH 230 manual; students in \
MTH 230 must get the new version. Changes in the MTH 229 and MTH 231 \
notebooks were minor; generally speaking a used manual from last  year should \
be fine. The only exception is a new lab 75 Euler's Method in the MTH 231 \
manual. If you use that lab, make sure everyone has a copy of it.\
\>", "Text"],

Cell["\<\
The changes in the MTH 230 manual were intended to give a better \
fit to our current syllabus, to improve the quality and clarity of the \
problems and narrative, and to make formatting and style more consistent. \
\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Exercises", "Section"],

Cell[TextData[{
  "Quite a few problems in the MTH 230 Lab Manual were ",
  ButtonBox["changed",
    ButtonData:>"Changes",
    ButtonStyle->"Hyperlink"],
  " or ",
  ButtonBox["renumbered",
    ButtonData:>"Renumber",
    ButtonStyle->"Hyperlink"],
  ". Lists of such changes can be found below; just click on the links."
}], "Text"],

Cell["\<\
The Exercise Summaries in the MTH 229 and MTH 230 manuals have been \
dropped.\
\>", "Text"],

Cell["\<\
All exercises are now contained in Now You Try It sections which \
are visible at the highest level of the notebook (with a new distinctive \
background).\
\>", "Text"],

Cell["\<\
The format of the Summary problems has been changed. They now say \
the following:\
\>", "Text"],

Cell["\<\
\[OpenCurlyDoubleQuote]Write one or more paragraphs concerning this \
laboratory. Your instructor may give specific instructions; otherwise see the \
Introduction of your lab manual for possible writing topics.\
\[CloseCurlyDoubleQuote]\
\>", "Text"],

Cell["Here is the relevant section from the Introduction:", "Text"],

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"]
}, Open  ]],

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"]
}, Open  ]],

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"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Table of Contents", "Section"],

Cell[TextData[{
  "Lab ",
  "47 Indeterminate Forms",
  " was renumbered as ",
  StyleBox["27 Indeterminate Forms",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[TextData[{
  "A new lab ",
  StyleBox["28 Antiderivatives",
    FontWeight->"Bold"],
  " was created, combining material from former labs ",
  "35 Antiderivatives I",
  " and ",
  "44 Initial Value Problems",
  "."
}], "Text"],

Cell[TextData[{
  "Projects in the 229 and 230 manuals have been incorporated into two new \
labs: ",
  StyleBox["29 Projects I",
    FontWeight->"Bold"],
  " and ",
  StyleBox["49 Projects II",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[TextData[{
  "The labs on antidifferentiation have been reorganized for greater \
flexibility. There are now four such labs: ",
  StyleBox["35 Substitution",
    FontWeight->"Bold"],
  ", ",
  StyleBox["36 Integration by Parts",
    FontWeight->"Bold"],
  ", ",
  StyleBox["37 Partial Fractions",
    FontWeight->"Bold"],
  ", and ",
  StyleBox["38 Trigonometric Integrals",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[TextData[{
  "The former labs 38 Trapezoidal Rule and 39 Simpson's Rule are now combined \
into a single lab ",
  StyleBox["39 Numerical Integration",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[TextData[{
  "Lab 46 Improper Integrals was renumbered as ",
  StyleBox["40 Improper Integrals",
    FontWeight->"Bold"],
  "."
}], "Text"],

Cell[TextData[{
  "A new lab ",
  StyleBox["75 Euler's Method",
    FontWeight->"Bold"],
  " was created."
}], "Text"],

Cell["\<\
I had hoped to write two additional notebooks, 44 Applied Integrals \
(related to 6.5-6.7 and other topics) and 46 Growth and Decay (related to \
7.5-7.6), but there just wasn't time. Let me know if you would find these \
useful.\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Individual Notebooks", "Section"],

Cell["\<\
Here is a brief synopsis of the major changes to the MTH 230 \
notebooks.\
\>", "Text"],

Cell[CellGroupData[{

Cell["Lab 28 Antiderivatives", "Subsection"],

Cell["\<\
This is just a combination of old material from former labs 35 and \
44, but it is a good fit for the material of section 4.9.\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lab 32 Area Functions", "Subsection"],

Cell["\<\
New sections on the Definite Integral and Signed Area were added, \
and the section on Area and Velocity was completely rewritten to emphasize \
the difference between distance traveled and displacement. If you haven't \
used this notebook before, you should take a look at it.\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lab 33 Riemann Sums", "Subsection"],

Cell[TextData[{
  "Problem 33.1(c) now asks students to compose and execute explicit sums in \
",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  ". The section on Writing Riemann Sums has been rewritten to include the \
necessary material and show how to do this. "
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lab 34 Areas and Limits", "Subsection"],

Cell["\<\
Two new problems were included. One uses the Fundamental Theorem to \
evaluate simple definite integrals, and one is a guided proof of the (first \
part of the) Fundamental Theorem.\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lab 35 Substitution", "Subsection"],

Cell[TextData[{
  "The basic formulas have been moved to lab 28 Antiderivatives. There is a \
new (brief) section on reverse substitution with an example of an arctangent \
form, and the integrals ",
  Cell[BoxData[
      \(\[Integral]\(sin\^2\) \((x)\) \[DifferentialD]x\)]],
  " and ",
  Cell[BoxData[
      \(\[Integral]\(cos\^2\) \((x)\) \[DifferentialD]x\)]],
  " have been added."
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lab 39 Numerical Integration", "Subsection"],

Cell["\<\
Formulas and error bounds are discussed for the Midpoint Rule, \
Trapezoidal Rule, and Simpson's Rule. The explanation of finding and using \
error bounds is in the Midpoint Rule section. There is more emphasis on \
writing out the formulas rather than just letting the computer do all the \
work\
\>", "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lab 43 Arc Length", "Subsection"],

Cell[TextData[{
  "The ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " procedure for approximating the length of a curve using line segments was \
greatly simplified."
}], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lab 45 Differential Equations", "Subsection"],

Cell["\<\
The approach to Euler's Method was changed to emphasize the \
algorithm and writing out the steps. Students are asked to do this in problem \
L45.5.\
\>", "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Renumbered Problems", "Section",
  CellTags->"Renumber"],

Cell[BoxData[
    FormBox[GridBox[{
          {\(Old\ Number\), \(New\ Number\)},
          {\(L47  .2\), \(L27  .1\)},
          {\(L47  .1\), \(L27  .2\)},
          {\(L47  .3\), \(L27  .3\)},
          {\(L47  .4\), \(L27  .4\)},
          {\(L47  .5\), \(L27  .5\)},
          {\(L47  .6\), \(L27  .6\)},
          {\(L47  .7\), \(L27  .7\)},
          {\(L47  .8\), \(L27  .8\)},
          {\(L35  .1\), \(L28  .1\)},
          {\(L44  .2\), \(L28  .2\)},
          {\(L32  .5\), \(L32  .4\)},
          {\(L33  .5\), \(L33  .4\)},
          {\(L34  .3\), \(L34  .4\)},
          {\(L34  .4\), \(L34  .6\)},
          {\(L34  .5\), \(L34  .7\)},
          {\(L35  .2\), \(L35  .1\)},
          {\(L35  .3\), \(L35  .2\)},
          {\(L35  .5\), \(L35  .3\)},
          {\(L37  .2\), \(L38  .3\)},
          {\(L39  .7\), \(L39  .6\)},
          {\(L46  .1\), \(L40  .1\)},
          {\(L46  .2\), \(L40  .2\)},
          {\(L46  .3\), \(L40  .3\)},
          {\(L46  .4\), \(L40  .4\)},
          {\(L46  .5\), \(L40  .5\)},
          {\(L46  .6\), \(L40  .6\)},
          {\(L46  .7\), \(L40  .7\)},
          {\(L45  .1\), \(L45  .2\)},
          {\(L45  .2\), \(L45  .3\)},
          {\(L45  .3\), \(L45  .4\)},
          {\(L45  .5\), \(L45  .7\)},
          {\(L45  .7\), \(L45  .8\)}
          }], TextForm]], "Text"]
}, Open  ]],

Cell[CellGroupData[{

Cell["New or Modified Problems", "Section",
  CellTags->"Changes"],

Cell["\<\
\"mod\" means a minor modification which does not change the \
answer. \"Mod\" means a major modification which changes the answer.\
\>", \
"Text"],

Cell[BoxData[GridBox[{
        {\(L27  .1\), "mod", \(formerly\ L47  .2\)},
        {\(L27  .2\), "mod", \(formerly\ L47  .1\)},
        {\(L27  .3\), "mod", \(formerly\ L47  .3\)},
        {\(L27  .4\), "mod", \(formerly\ L47  .4\)},
        {\(L28  .3\), "new", "Summary"},
        {\(L31  .1\), "Mod", "\[Placeholder]"},
        {\(L32  .3\), "Mod", "\[Placeholder]"},
        {\(L32  .4\), "Del", "\[Placeholder]"},
        {\(L33  .1\), "Mod", "\[Placeholder]"},
        {\(L33  .2\), "Mod", "\[Placeholder]"},
        {\(L33  .4\), "Del", "\[Placeholder]"},
        {\(L34  .2\), "Mod", "\[Placeholder]"},
        {\(L34  .3\), "New", "\[Placeholder]"},
        {\(L34  .5\), "New", "\[Placeholder]"},
        {\(L35  .4\), "Del", "\[Placeholder]"},
        {\(L36  .1\), "mod", \(\((e)\) - \((h)\)\ deleted\)},
        {\(L36  .2\), "Mod", \(\((b)\)\ changed\)},
        {\(L37  .1\), "New", "\[Placeholder]"},
        {\(L37  .2\), "New", "\[Placeholder]"},
        {\(L37  .3\), "New", "\[Placeholder]"},
        {\(L37  .4\), "new", "Summary"},
        {\(L38  .1\), "New", "\[Placeholder]"},
        {\(L38  .2\), "New", "\[Placeholder]"},
        {\(L38  .4\), "new", "Summary"},
        {\(L39  .1\), "Mod", "\[Placeholder]"},
        {\(L39  .2\), "Mod", "\[Placeholder]"},
        {\(L39  .3\), "Del", "\[Placeholder]"},
        {\(L39  .3\), "New", "\[Placeholder]"},
        {\(L39  .4\), "Mod", "\[Placeholder]"},
        {\(L39  .5\), "Mod", "\[Placeholder]"},
        {\(L39  .6\), "Del", "\[Placeholder]"},
        {\(L41  .1\), "mod", \(parts\ reordered\)},
        {\(L43  .1\), "Mod", "\[Placeholder]"},
        {\(L45  .1\), "New", "\[Placeholder]"},
        {\(L45  .4\), "Del", "\[Placeholder]"},
        {\(L45  .5\), "New", "\[Placeholder]"},
        {\(L45  .6\), "Del", "\[Placeholder]"},
        {\(L45  .6\), "New", "\[Placeholder]"}
        }]], "Text"]
}, Open  ]]
}, Open  ]]
},
FrontEndVersion->"4.0 for Macintosh",
ScreenRectangle->{{0, 832}, {0, 604}},
WindowSize->{520, 482},
WindowMargins->{{1, Automatic}, {Automatic, 1}},
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->{
  "Renumber"->{
    Cell[9996, 362, 62, 1, 56, "Section",
      CellTags->"Renumber"]},
  "Changes"->{
    Cell[11428, 405, 66, 1, 56, "Section",
      CellTags->"Changes"]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"Renumber", 14363, 477},
  {"Changes", 14450, 480}
  }
*)

(*NotebookFileOutline
Notebook[{

Cell[CellGroupData[{
Cell[1739, 51, 32, 0, 108, "Title"],

Cell[CellGroupData[{
Cell[1796, 55, 26, 0, 56, "Section"],
Cell[1825, 57, 383, 6, 78, "Text"],
Cell[2211, 65, 240, 5, 62, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[2488, 75, 28, 0, 56, "Section"],
Cell[2519, 77, 334, 10, 46, "Text"],
Cell[2856, 89, 102, 3, 30, "Text"],
Cell[2961, 94, 178, 4, 46, "Text"],
Cell[3142, 100, 106, 3, 30, "Text"],
Cell[3251, 105, 260, 5, 46, "Text"],
Cell[3514, 112, 67, 0, 30, "Text"],

Cell[CellGroupData[{
Cell[3606, 116, 38, 0, 46, "Subsection"],
Cell[3647, 118, 265, 5, 62, "Text"],

Cell[CellGroupData[{
Cell[3937, 127, 39, 0, 42, "Subsubsection"],
Cell[3979, 129, 411, 7, 62, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4427, 141, 39, 0, 42, "Subsubsection"],
Cell[4469, 143, 360, 6, 78, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4866, 154, 38, 0, 42, "Subsubsection"],
Cell[4907, 156, 300, 6, 62, "Text"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[5268, 169, 36, 0, 56, "Section"],
Cell[5307, 171, 158, 7, 32, "Text"],
Cell[5468, 180, 231, 9, 48, "Text"],
Cell[5702, 191, 237, 9, 50, "Text"],
Cell[5942, 202, 422, 15, 66, "Text"],
Cell[6367, 219, 198, 6, 50, "Text"],
Cell[6568, 227, 144, 5, 32, "Text"],
Cell[6715, 234, 118, 5, 32, "Text"],
Cell[6836, 241, 253, 5, 62, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7126, 251, 39, 0, 56, "Section"],
Cell[7168, 253, 97, 3, 30, "Text"],

Cell[CellGroupData[{
Cell[7290, 260, 44, 0, 46, "Subsection"],
Cell[7337, 262, 150, 3, 46, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7524, 270, 43, 0, 46, "Subsection"],
Cell[7570, 272, 301, 5, 62, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7908, 282, 41, 0, 46, "Subsection"],
Cell[7952, 284, 284, 7, 64, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8273, 296, 45, 0, 46, "Subsection"],
Cell[8321, 298, 205, 4, 46, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[8563, 307, 41, 0, 46, "Subsection"],
Cell[8607, 309, 398, 10, 62, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9042, 324, 50, 0, 46, "Subsection"],
Cell[9095, 326, 320, 6, 78, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9452, 337, 39, 0, 46, "Subsection"],
Cell[9494, 339, 190, 6, 48, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9721, 350, 51, 0, 46, "Subsection"],
Cell[9775, 352, 172, 4, 46, "Text"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{
Cell[9996, 362, 62, 1, 56, "Section",
  CellTags->"Renumber"],
Cell[10061, 365, 1330, 35, 539, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11428, 405, 66, 1, 56, "Section",
  CellTags->"Changes"],
Cell[11497, 408, 157, 4, 46, "Text"],
Cell[11657, 414, 1887, 39, 619, "Text"]
}, Open  ]]
}, Open  ]]
}
]
*)




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