(*^ ::[ 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, bold, L3, e8, 24, "Calculus"; fontset = subtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 18, "Calculus"; fontset = subsubtitle, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeTitle, center, M7, bold, L2, e6, 14, "Calculus"; fontset = section, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, grayBox, M22, bold, L2, a20, 14, "Calculus"; fontset = subsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, blackBox, M19, bold, L2, a15, 12, "Calculus"; fontset = subsubsection, inactive, noPageBreakBelow, nohscroll, preserveAspect, groupLikeSection, whiteBox, M18, bold, L2, a12, 12, "Calculus"; fontset = text, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 12, "Calculus"; fontset = smalltext, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, B65535, L2, 12, "Calculus"; fontset = input, noPageBreakInGroup, preserveAspect, groupLikeInput, M42, N23, bold, L2, 12, "Courier"; fontset = output, output, inactive, noPageBreakInGroup, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = message, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, R65535, L2, 12, "Courier"; fontset = print, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = info, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeOutput, M42, N23, L2, 12, "Courier"; fontset = postscript, PostScript, formatAsPostScript, output, inactive, noPageBreakInGroup, nowordwrap, preserveAspect, groupLikeGraphics, M7, l34, w282, h287, L2, 12, "Courier"; fontset = name, inactive, nowordwrap, nohscroll, noKeepOnOnePage, preserveAspect, M7, italic, B65535, L2, 10, "Geneva"; fontset = header, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Times"; fontset = leftheader, inactive, L2, 10, "Times"; fontset = footer, inactive, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "Times"; fontset = leftfooter, inactive, center, L2, 12, "Times"; fontset = help, inactive, nohscroll, noKeepOnOnePage, preserveAspect, M7, L2, 10, "Geneva"; fontset = clipboard, inactive, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = completions, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = special1, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, M7, L2, 12, "New York"; fontset = special2, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, center, M7, L2, 12, "New York"; fontset = special3, inactive, nowordwrap, noKeepOnOnePage, preserveAspect, right, M7, L2, 12, "New York"; fontset = special4, inactive, noKeepOnOnePage, preserveAspect, M7, bold, superscript, R21845, G21845, B21845, L2, 12, "C&M"; fontset = special5, inactive, noKeepOnOnePage, preserveAspect, M7, bold, superscript, R19708, G31200, B40959, L2, 12, "C&M"; paletteColors = 128; currentKernel; ] :[font = title; inactive; preserveAspect] Parabola :[font = section; inactive; preserveAspect] Guide :[font = smalltext; inactive; preserveAspect] A circle is formed when a right circular cone is cut by a plane that is parallel to the base of the cone. If the plane is tilted the points of intersection of the plane and the cone form a figure called a parabola. An example of a parabola is people tossing a ball back and forth. :[font = section; inactive; preserveAspect] Basics :[font = smalltext; inactive; preserveAspect] The standard form of a parabola is f[x]= a(x-h)Û+k (sometimes it is necessary to complete the square to get standard form). We will discover that in this form, we can determine the axis of symmetry, which is the line x=h. The coordinates of the vertex are (h,k). If "a" is greater than zero, the curve opens up. If "a" is less than zero, the curve opens down. :[font = section; inactive; preserveAspect] Tutorial :[font = subsection; inactive; preserveAspect] What happens as the values of a,h,or k are changed :[font = smalltext; inactive; dontPreserveAspect] Note that with the function f[x]= a(x-h)Û+k as "a" changes the parabola opens up faster or slower. The smaller the value the slower it opens. The larger the value the faster it opens. If "a" is negative the parabola will open down. "h" is zero therefore the axis of symmetry is x=0. "k" is also zero therefore the vertex is (0,0). To see what changing "a" does to a parabola select the cells next to the graph and type open apple and y. the parameter is "a". :[font = input; dontPreserveAspect] Clear[f,x,a] f[x_,a_]:= a(x-0)^2+0; Do[Plot[f[x,a],{x,-10,10},PlotRange->{-10,10}, PlotLabel->"= parameter"a,AspectRatio->Automatic, PlotStyle->RGBColor[0,1,0]],{a,-1,1,.25}]; :[font = smalltext; inactive; dontPreserveAspect] With the equation f[x]= 1/2(x-h)Û+0 Notice with a change in the value of "h" the graph moves to the right or left. With a positive "h" the graph moves to the right. With a negative "h" the graph moves to the left. Since "k" equals zero the vertex has coordinates (h,0) the axis of symmetry is x=h. To see what changing "h" does to a parabola select the cells next to the graph and type open apple and y. the parameter is "h". :[font = input; dontPreserveAspect] Clear[f,x,h] f[x_,h_]:=1/2(x-h)^2+0; Do[Plot[f[x,h],{x,-10,10},PlotRange->{-10,10}, PlotLabel->"= parameter"h,AspectRatio->Automatic, PlotStyle->RGBColor[1,0,0]],{h,-5,5,2.5}] :[font = smalltext; inactive; dontPreserveAspect] With the equation f[x]= 2(x-0)Û+k you can see that the axis of symmetry is x=0. The vertex is at (0,k). Because "a" is positive the parabola opens up. To see what changing "k" does to a parabola select the cells next to the graph and type open apple and y. the parameter is "k". :[font = input; dontPreserveAspect] Clear[f,x,k] f[x_,k_]:= 2(x-0)^2+k; Do[Plot[f[x,k],{x,-10,10},PlotRange->{-10,10}, PlotLabel->"= parameter"k,AspectRatio->Automatic, PlotStyle->RGBColor[0,0,1]],{k,-5,5,2}]; :[font = section; inactive; preserveAspect] How to graph a parabola :[font = smalltext; inactive; preserveAspect] To graph a parabola set the squared term equal to qero and solve for x. This is the axis of symmetry draw this line. Then mark the point of the vertex. Then select a few x values to the right or the left of the acis of symmetry substitute these in for x in the original equation and solve for f[x] plot these points and remember to plot another point an equal distance from the axis of symmetry on the opposite side. Draw the parabola through the points you have plotted. Example: f[x]=3(x-2)Û=6 -> x-2=0-> x=2 Axis of symmetry. If x=3, f[x]=9; x=4,f[x]=18 by symmetry x=2,f[x]=9; x=1,f[x]=18 :[font = section; inactive; dontPreserveAspect] Give it a try :[font = smalltext; inactive; dontPreserveAspect] Graph the function, give the coordinates of the vertex and the equation of the axis of symmetry for each of the following (sometimes you must complete the square). Check your answers by double clicking on the rectangle Twice. :[font = text; inactive; Cclosed; dontPreserveAspect; startGroup] 1. f[x_]= (x-4)Û+2 :[font = input; dontPreserveAspect; endGroup] Clear [f,x] f[x_]= (x-4)^2 +2 Plot [f[x], {x,-10,10}, PlotRange->{-5,20}, AxesLabel->{"x","y"}, PlotStyle-> {RGBColor[0,0,1]}] :[font = text; inactive; Cclosed; dontPreserveAspect; startGroup] 2. f[x]= 4(x+2)Û-5 :[font = input; dontPreserveAspect; endGroup] Clear [f,x] f[x_]= 4(x+2)^2 -5 Plot [f[x], {x,-10,10}, PlotRange->{-5,20}, AxesLabel->{"x","y"}, PlotStyle-> {RGBColor[0,0,1]}] :[font = text; inactive; Cclosed; dontPreserveAspect; startGroup] 3. f[x]= 1/2(x-2)Û+3 :[font = input; dontPreserveAspect; endGroup] Clear [f,x] f[x_]= 1/2(x-2)^2 +3 Plot [f[x], {x,-10,10}, PlotRange->{-5,20}, AxesLabel->{"x","y"}, PlotStyle-> {RGBColor[0,0,1]}] :[font = text; inactive; Cclosed; preserveAspect; startGroup] 4. f[x]= -4xÛ :[font = input; dontPreserveAspect; endGroup] Clear [f,x] f[x_]= -4x^2 Plot [f[x], {x,-10,10}, PlotRange->{-20,5}, AxesLabel->{"x","y"}, PlotStyle-> {RGBColor[0,0,1]}] :[font = text; inactive; Cclosed; preserveAspect; startGroup] 5. f[x]= -1/4(x+4)Û-4 :[font = input; preserveAspect; endGroup] Clear [f,x] f[x_]= -1/4(x+4)^2 -4 Plot [f[x], {x,-10,10}, PlotRange->{-20,5}, AxesLabel->{"x","y"}, PlotStyle-> {RGBColor[.25,.25,1]}] :[font = text; inactive; Cclosed; preserveAspect; startGroup] 6. f[x]= -3xÛ-12x-8 :[font = input; preserveAspect; endGroup] f[x_]= -3(x+2)^2+4 Plot [f[x], {x,-10,10}, PlotRange->{-20,5}, AxesLabel->{"x","y"}, PlotStyle-> {RGBColor[.25,0,1]}] :[font = section; inactive; preserveAspect] Literacy :[font = smalltext; inactive; preserveAspect] Graph the function, state the coordinates of the vertex and the equation of the axis of symmetry for each of the following functions. :[font = text; inactive; preserveAspect] 1. f[x]= -3(x-1)Û+5 :[font = text; inactive; preserveAspect] 7. f[x]= -xÛ-4x-7 :[font = text; inactive; preserveAspect] 3. f[x]= 1/4(x-8)Û+8 :[font = text; inactive; preserveAspect] 4. f[x]= -3xÛ :[font = text; inactive; preserveAspect] 5. f[x]= 5xÛ :[font = text; inactive; preserveAspect] 6. f[x]= xÛ-16x+32 :[font = text; inactive; preserveAspect] 7. f[x]= 4(x+2)Û-19 ^*)