Instructor Hentzel Office Phone: 515-294-8141 E-mail: hentzel@iastate.edu Math Department Fax: 515-294-5454 http://www.math.iastate.edu/hentzel/class.166.03 Textbook: Calculus by Varberg, Purcell, Rigdon, eight edition. April 14 12.8 Polar Calculus p554: 1,(2),6,(12),(14),15-17,(22),25 Main Idea: Finding areas and tangent lines to polar curves Key Words: 1/2 r^2 d theta Goal: Learn how to find areas and tangent lines to polar curves. ------------------------------------------------------------------ Previous assignment: Page 548 Problem 9 Cardioid r[t_] := 3-3 Cos[t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,0,4 Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"Problem 9 r = 3-3 Cos[t] Cardioid",AspectRatio->Automatic]; Display["9.ps",b]; Page 548 Problem 15 Limacon r[t_] := 2 - 3 Sin[t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,0,4 Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"Problem 15 r = 2-3 Sin[t] Limacon",AspectRatio->Automatic]; Display["15.ps",b]; Page 548 Problem 21 Three leaved rose r[t_] := 5 Cos[3t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,0,4 Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"Problem 21 r = 5 Cos[3t] Three Leaved Rose",AspectRatio->Automatic]; Display["21.ps",b]; Page 548 Problem 29 logarithmic spiral r[t_] := E^t a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,0,2 Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"Problem 29 r = e^t Logarithmic Spiral",AspectRatio->Automatic, PlotRange->All]; Display["29.ps",b]; Page 548 Problem 45 (a) r[t_] := Cos[t/2] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-4 Pi,4 Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"45a r = Cos[t/2]",AspectRatio->Automatic, PlotRange->All]; Display["45a.ps",b]; (b) r[t_] := Sec[3t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"45b r = Sec[3t]",AspectRatio->Automatic, PlotRange->All]; Display["45b.ps",b]; (c) r[t_] := 2 - 3 Sin[5t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"45c r = 2 - 3 Sin[5t]",AspectRatio->Automatic, PlotRange->All]; Display["45c.ps",b]; (d) r[t_] := 1 - 2 Sin[5t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"45d r = 1 - 2 Sin[5t]",AspectRatio->Automatic, PlotRange->All]; Display["45d.ps",b]; (e) r[t_] := Cos[t/4] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"45e r = Cos[t/4]",AspectRatio->Automatic, PlotRange->All]; Display["45e.ps",b]; (f) r[t_] := t Cos[t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"45f r = t Cos[t] ",AspectRatio->Automatic, PlotRange->All]; Display["45f.ps",b]; (g) r[t_] := 1/t^(3/2) a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,0.5, 50},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"45g r = 1/t^(3/2) ",AspectRatio->Automatic, PlotRange->All]; Display["45g.ps",b]; (h) r[t_] := 2 Cos[3t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,0.5, 50},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"45h r = 2 Cos[3t] ",AspectRatio->Automatic, PlotRange->All]; Display["45h.ps",b]; --------------------------------------------------- New Material The area of a sector of a circle of radius r and angle theta is 1/2 r^2 theta. . ''`` /. ' r/ ` rt .' / `. . /t . . /__________. . r . . . . . .... The same formula as for a triangle holds. Area = 1/2 BasexHeight or Area = 1/2 rt * r = 1/2 r^2 theta -------------------------------------------------------------------- Example 1: Find the area of the region inside the limacon r = 2 + Cos[t] ' ` too ' ` big . . ` | . ' . .` .| r ' . . . | ' too . ' . . | ' small ' . | 'dt ' r . |' ' ---------.-------+--------------------.----- | . | . . | . . | . | . . | . . When we draw the approximating sector of the circle, the biggest radius makes the area too big. The smallest radius makes the area too small. Since the limit of the approximations has to be both too big and at the same time too small, then the limit can only be the exact area. t=2Pi INT 1/2 r^2 dt t=0 t=2Pi INT 1/2 (2+Cos[t])^2 dt t=0 t=2Pi 1/2 INT 4 + 2 Cos[t] + Cos[t]^2 dt t=0 t=2Pi 1-Cos[2t] 1/2 INT 4 + 2 Cos[t] + --------- dt t=0 2 | | t = 2 Pi | Sin[2t] | 1/2 | 4 t + 2 Sin[t] + 1/2 t - -------- | | 4 | | | t = 0 1/2 ( 8 Pi + Pi) = 9 Pi/2 ------------------------------------------------------------ r[t_] := 2 + Cos[t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"Page 551 Example 1 r = 2 + Cos[t]",AspectRatio->Automatic, PlotRange->All]; Display["ex1.ps",b]; c = ParametricPlot[ 3/Sqrt[2] {Cos[t], Sin[t]}+{1,0}, {t,-Pi, Pi},PlotStyle->{RGBColor[0,1,0]}]; d = Show[a,c,PlotLabel->"Page 551 Example 1 r = 2 + Cos[t]",AspectRatio->Automatic]; Display["ex1x.ps",d]; ----------------------------------------------------------- Page 551 Find the area of one leaf of the four leaved rose r = 4 Sin[2 t]; --------------------------------------------------------- r[t_] := 4 Sin[2 t] a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"Page 551 Example 2 r = 4 Sin[2 t]",AspectRatio->Automatic, PlotRange->All]; Display["ex2.ps",b]; f[t_] := Cos[t] {1/Sqrt[2],-1/Sqrt[2]}+ 2 Sin[t] {1/Sqrt[2],+1/Sqrt[2]} + {3/2,3/2}; c = ParametricPlot[ f[t], {t,-Pi, Pi}]; d = Show[a,c,PlotLabel->"Page 551 Example 2 r = 4 Sin[2 t]",AspectRatio->Automatic]; Display["ex2x.ps",d]; --------------------------------------------- t=Pi/2 Area = INT 1/2 r^2 dt t=0 t=Pi/2 Area = 1/2 INT 16 Sin[2 t]^2 dt t=0 t=Pi/2 Area = INT 4(1-Cos[4t]) dt t=0 | | t = Pi/2 Area = | 4 t - Sin[4t| | | t = 0 Area = 2 Pi ------------------------------------------------------- Page 552 Example 3. Find the area of the region outside the cardioid r = 1+Cos[t] and inside the circle r = Sqrt[3] Sin[t]; -------------------------------------------------------------- r[t_] := 1+Cos[t]; a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"Page 552 Example 3: r = 1+Cos[t]",AspectRatio->Automatic, PlotRange->All]; Display["ex3.ps",b]; f[t_] := Sqrt[3] Sin[t] {Cos[t],Sin[t]}; c = ParametricPlot[ f[t], {t,-Pi, Pi}]; d = Show[a,c,PlotLabel->"Page 551 Example 3: 1+Cos[t]",AspectRatio->Automatic]; Display["ex3x.ps",d]; -------------------------------------------------------------- Find the limits of integration by finding where the curves cross. 1 + Cos[t] = Sqrt[3] Sin[t] 1 + 2 Cos[t] + Cos[t]^2 = 3 Sin[t]^2 1 + 2 Cos[t] + Cos[t]^2 = 3 - 3 Cos[t]^2 -2 + 2 Cos[t] + 4 Cos[t]^2 = 0 -1 + Cos[t] + 2 Cos[t]^2 = 0 (2 Cos[t] - 1)(Cos[t] + 1) = 0 Cos[t] = 1/2 Cos[t] = -1 t = Pi/3 or t = Pi t = Pi 1/2 INT 3 Sin[t]^2 - (1+Cos[t])2 dt t=Pi/3 t = Pi 1/2 INT 3 Sin[t]^2 - 1 - 2 Cos[t] - Cos[t]^2 dt t=Pi/3 t = Pi 1/2 INT 3 - 3 Cos[t]^2 - 1 - 2 Cos[t] - Cos[t]^2 dt t=Pi/3 t = Pi 1/2 INT 2 - 4 Cos[t]^2 - 2 Cos[t] dt t=Pi/3 t = Pi 1/2 INT 2 - 2(1+Cos[2t])- 2 Cos[t] dt t=Pi/3 t = Pi 1/2 INT -2 Cos[2t])- 2 Cos[t] dt t=Pi/3 | | t = Pi 1/2 | -Sin[2t] - 2 Sin[t] | | | t=Pi/3 1/2 ( + Sin[2 Pi/3] + 2 Sin[Pi/3] ) 1/2 ( Sqrt[3]/2 + 2 Sqrt[3]/2 ) 3 Sqrt[3]/4 ---------------------------------------------------------- Page 553 Example 4 Consider the polar equation r = 4 Sin[3 t] (a) Find the slope of the tangent line at t = Pi/6 and t = Pi/4 (b) Find the tangent lines at the pole. (c) Sketch the graph. (d) Find the area of one leaf. The slope we are used to is a cartesian coordinate concept. So it is not surprising that we simply compute it by going to the coordinate representation of the graph. x = r Cos[t] y = r Sin[t] x = 4 Sin[3 t] Cos[t] y = 4 Sin[3 t] Sin[t] dx/dt = 12 Cos[3 t] Cos[t] - 4 Sin[3t] Sin[t] dy/dt = 12 Cos[3 t] Sin[t] + 4 Sin[3 t] Cos[t] dx/dt | = -2 dx/dt | = -8 Pi/6 Pi/4 dy/dt | = 2 Sqrt[3] dy/dt | = -4 Pi/6 Pi/4 dy/dx | = -Sqrt[3] dy/dx | = 1/2 Pi/6 Pi/4 -------------------------------------------------------------- r[t_] := 4 Sin[3 t]; a = ParametricPlot[{ r[t] Cos[t], r[t] Sin[t]}, {t,-Pi, Pi},PlotStyle->{RGBColor[1,0,0]}]; b = Show[a,PlotLabel->"Page 553 Example 4: r = 4 Sin[3t]",AspectRatio->Automatic, PlotRange->All]; Display["ex4.ps",b]; c = ParametricPlot[ r[Pi/6]{Cos[Pi/6],Sin[Pi/6]} +{t,t (-Sqrt[3])},{t,-1,1}]; d = ParametricPlot[ r[Pi/4]{Cos[Pi/4],Sin[Pi/4]} +{t,t/2},{t,-1,1}]; e = Show[a,c,d,PlotLabel->"Page 553 Example 4: r = 4 Sin[3t] ",AspectRatio->Automatic]; Display["ex4x.ps",d]; ------------------------------------------------------------------------------