(*^
::[ Information =
"This is a Mathematica Notebook file. It contains ASCII text, and can be
transferred by email, ftp, or other text-file transfer utility. It should
be read or edited using a copy of Mathematica or MathReader. If you
received this as email, use your mail application or copy/paste to save
everything from the line containing (*^ down to the line containing ^*)
into a plain text file. On some systems you may have to give the file a
name ending with ".ma" to allow Mathematica to recognize it as a Notebook.
The line below identifies what version of Mathematica created this file,
but it can be opened using any other version as well.";
FrontEndVersion = "Macintosh Mathematica Notebook Front End Version 2.2";
MacintoshStandardFontEncoding;
fontset = title, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, e8, 24, "B Univers 65 Bold";
fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, e6, 18, "Garamond";
fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, e6, 14, "I Garamond LightItalic";
fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, a20, 18, "B Univers 65 Bold";
fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, a15, 14, "AGaramond Semibold";
fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, a12, 12, "Garamond";
fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "AGaramond";
fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "AGaramond";
fontset = input, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeInput, M42, N23, bold, L-5, 12, "Courier";
fontset = output, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier";
fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L-5, 12, "Courier";
fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L-5, 12, "Courier";
fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, B65535, L-5, 12, "Courier";
fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, 12, "Courier";
fontset = name, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, 10, "Geneva";
fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, 12, "Garamond";
fontset = leftheader, inactive, L2, 12, "Garamond";
fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, 12, "Garamond";
fontset = leftfooter, inactive, L2, 12, "Garamond";
fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 10, "Times";
fontset = clipboard, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = completions, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special1, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special2, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special3, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special4, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
fontset = special5, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, 12, "Times";
showRuler; currentKernel;
]
:[font = text; inactive; preserveAspect; leftWrapOffset = 17; leftNameWrapOffset = 1]
Mathematics 161 Laboratory 4 September 24, 1992
Name: _____________________________ Lab Partner: ___________________________
Consulted with: ____________________________________________________________
:[font = smalltext; inactive; preserveAspect; right]
© Lafayette College, 1994
:[font = title; inactive; preserveAspect]
Secant Lines & Difference Quotients
:[font = text; inactive; preserveAspect]
The derivative is one of the most powerful mathematical tools ever discovered. Today we investigate its mathematical origin: the limit of the slope of secant lines.
:[font = section; inactive; preserveAspect]
Part 0: A Dry Run
:[font = subsection; inactive; preserveAspect]
Preliminaries
:[font = text; inactive; preserveAspect]
Mathematica has the capability of animating a sequence of graphs (flashing them on the screen in rapid sucession so that the graph appears to move). To create the sequences of graphs needed in this lab, your intrepid instructor has created a special command that is contained in a ÒMathematica package.Ó To ÒteachÓ Mathematica the command, we input the package as follows:
;[s]
7:0,0;1,1;12,0;284,1;295,0;318,1;329,0;376,-1;
2:4,14,10,AGaramond,0,12,0,0,0;3,14,10,AGaramond,2,12,0,0,0;
:[font = input; preserveAspect]
<