Math 276

Calculus III

Fall 2001

Dr. Constant J. Goutziers

Department of Mathematical Sciences

goutzicj@oneonta.edu

Lesson 19

Double Integrals in Polar Coordinates

19.1 Double Integrals in Polar Coordinates

As explaned in class the double integral in Cartesian coordinates Int(Int(f(x,y),x = a .. b),y = c .. d) can be translated into the following double integral in Polar coordinates: Int(Int(f(r*cos(theta),r*sin(theta))*r,r = r[1] .. ... . provided that the region described by r = r[1] .. r[2] , theta = theta[1] .. theta[2] , is the same as the region described by x = a..b, y = c.. d.

Examples

Example 21.1.1
Integrate the function
f(x,y) = 3*x+4*y^2 over the region in the upper half plane bounded by x^2+y^2 = 1 and x^2+y^2 = 4 .

First we enter the data and sketch the integration region. When working with Polar coordinates it is often helpful to incorporate the coordinate axes in the plot and have equal scaling on both axes.

> with(plots): with(student): with(oneonta):

Warning, the name changecoords has been redefined

> f:=(x, y)->3*x+4*y^2; bnd1:=x^2+y^2=1; bnd2:=x^2+y^2=4; bnd3:=y=0;

f := proc (x, y) options operator, arrow; 3*x+4*y^2...

bnd1 := x^2+y^2 = 1

bnd2 := x^2+y^2 = 4

bnd3 := y = 0

> implicitplot({seq(bnd||k, k=1..3)}, x=-3..3, y=-0.5..3, scaling=constrained);

[Maple Plot]

Clearly we can integrate over r from 1 to 2 and over theta from 0 to Pi .

> e1:=Doubleint(f(r*cos(theta), r*sin(theta))*r, r=1..2, theta=0..Pi);

e1 := Int(Int((3*r*cos(theta)+4*r^2*sin(theta)^2)*r...

> e2:=Value(e1);

e2 := 15/2*Pi

>

Example 19.1.1
Compute the volume of the solid above the cone
z = sqrt(x^2+y^2) and below the sphere x^2+y^2+z^2 = 1 .

First define the functions and plot the footprint of the solid. It should be clear that we need the top half of the sphere.

> f:=(x, y)->sqrt(x^2+y^2); g:=(x, y)->sqrt(1-x^2-y^2);

f := proc (x, y) options operator, arrow; sqrt(x^2+...

g := proc (x, y) options operator, arrow; sqrt(1-x^...

> bnd:=f(x, y)=g(x, y);

bnd := sqrt(x^2+y^2) = sqrt(1-x^2-y^2)

> bnd:=map(u->u^2, bnd);

bnd := x^2+y^2 = 1-x^2-y^2

> bnd:=map(u->u+x^2+y^2, bnd);

bnd := 2*x^2+2*y^2 = 1

> bnd:=bnd/2;

bnd := x^2+y^2 = 1/2

> implicitplot(bnd, x=-1..1, y=-1..1, scaling=constrained);

[Maple Plot]

From the plot and the equation of the boundary we derive that theta ranges between 0 and 2*Pi , andr ranges from 0 to sqrt(1/2) . In order to simplify our coding, we will separately define the polar coordinates and substitute those into the cartesian equations of the cone and the sphere.

> polar:={x=r*cos(theta), y=r*sin(theta)};

polar := {x = r*cos(theta), y = r*sin(theta)}

> e1:=Doubleint(subs(polar, g(x, y)-f(x, y))*r, theta=0..2*Pi, r=0..sqrt(1/2));

e1 := Int(Int((sqrt(1-r^2*cos(theta)^2-r^2*sin(thet...

> e2:=simplify(e1, symbolic);

e2 := -Int(1,theta = 0 .. 2*Pi)*Int((-sqrt(1-r^2)+r...

> e3:=simplify(Value(e2));

e3 := -1/3*Pi*(sqrt(2)-2)

For the true graphics enthusiast it may be satisfying to sketch a 3D picture of this solid.

> p1:=plot3d(subs(polar, [x, y, f(x, y)]), theta=Pi/3..2*Pi+Pi/6, r=0..1, style=patch):

> p2:=plot3d(subs(polar, [x, y, g(x, y)]), theta=4*Pi/10..2*Pi+Pi/10, r=0..1, style=patch, color=red):

> p3:=plot3d(subs(polar, [x, y, 0]), theta=0..2*Pi, r=0..sqrt(1/2), color=[0.5, 0.5, 0.5], grid=[25, 5]):

> display([p1, p2, p3], axes=frame, scaling=constrained, orientation=[58, 64]);

[Maple Plot]

The grey disk in the XOY plane represents the integration region.

>

Example 19.1.3
Compute the area enclosed by one leaf of the rose
r = cos(3*theta) .

Now we know that the element of area dA = dx dy translates as dA = r*dr*d.theta , we are able to express the area enclosed by a curve in Polar coordinates as a double rather than a single integral. The formula for the double integral may be easier to remember than the old single integral expression for the same area.

> f:=theta->cos(3*theta);

f := proc (theta) options operator, arrow; cos(3*th...

> polarplot(f(theta), theta=0..Pi, color=magenta, scaling=constrained, axes=boxed);

[Maple Plot]

> area:=Doubleint(r, r=0..f(theta), theta=-Pi/6..Pi/6);

area := Int(Int(r,r = 0 .. cos(3*theta)),theta = -1...

> answer:=Value(area);

answer := 1/12*Pi

>