Maple Lab 4 (Spring 2007 Math 251) 

Section 05-07 

Answer Key 

Exercises 

 

Note: Use appropriate colors and plot options to make your plots look nice. The appearance of 

          you lab will be factored into your grade. You may add execution groups if you need more. 

          Please delete unused execution groups. 

> Typesetting:-mrow(Typesetting:-mi(
 

 

 

Warning, the assigned names `<,>` and `<|>` now have a global binding
Warning, these protected names have been redefined and unprotected: `*`, `+`, `-`, `.`, D, Vector, diff, int, limit, series
Warning, the name changecoords has been redefined
 

1. Define a vector field Typesetting:-mrow(Typesetting:-mi( 

   and a parametric curve Typesetting:-mrow(Typesetting:-mi( where Typesetting:-mrow(Typesetting:-mn(. 

    

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(F, Vector[column]([[`+`(`*`(3, `*`(`^`(x, 2), `*`(`^`(y, 2), `*`(z)))), y)], [`+`(`*`(2, `*`(`^`(x, 3), `*`(y, `*`(z)))), x)], [`+`(`*`(`^`(x, 3), `*`(`^`(y, 2))), cos(z... (1)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(r, Vector[column]([[cos(t)], [sin(t)], [t]], [ (2)
 

1(a).  Plot the parametric curve. 

> Typesetting:-mrow(Typesetting:-mi(
 

Plot
 

1(b). Compute the line integral Typesetting:-mrow(Typesetting:-mi(  where Typesetting:-mrow(Typesetting:-mi(is the curve parametrized by 

        Typesetting:-mrow(Typesetting:-mi(. Compute the integral by plugging in the parametrization and computing 

        directly. 

> Typesetting:-mrow(Typesetting:-mi(
 

-1 (3)
 

1(c). Compute the line integral Typesetting:-mrow(Typesetting:-mi(  by computing Typesetting:-mrow(Typesetting:-mi(. 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(rPrimeLength, `*`(`^`(2, `/`(1, 2))))], [`*`(`^`(2, `/`(1, 2)))]) (4)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(T, Vector[column]([[`+`(`-`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(sin(t))))))], [`+`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(cos(t)))))], [`+`(`*`(`/`(1, 2), `*`(`... (5)
 

> Typesetting:-mrow(Typesetting:-mi(
 

-1 (6)
 

1(d). Check to see if the vector field Typesetting:-mrow(Typesetting:-mi( conservative. 

       If it is, compute Typesetting:-mrow(Typesetting:-mi(  using the fundmental theorem  

       of line integrals. 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([Vector[column]([[0], [0], [0]], [ (7)
 

Since Typesetting:-mrow(Typesetting:-mi(is the zero vector field, Typesetting:-mrow(Typesetting:-mi( must be conservative. 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(f, `+`(`*`(`^`(x, 3), `*`(`^`(y, 2), `*`(z))), `*`(y, `*`(x)), sin(z)))], [`+`(`*`(`^`(x, 3), `*`(`^`(y, 2), `*`(z))), `*`(y, `*`(x)), sin(z))]) (8)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([Vector[column]([[0], [-1], [`+`(`*`(`/`(3, 2), `*`(Pi)))]], [ (9)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([Vector[column]([[1], [0], [0]], [ (10)
 

> Typesetting:-mrow(Typesetting:-mi(
 

-1 (11)
 

2. [Section 16.4 #6]  

   Let Typesetting:-mrow(Typesetting:-mi( be the curve which consists of the parabola 

   Typesetting:-mrow(Typesetting:-mi( fromTypesetting:-mrow(Typesetting:-mi( toTypesetting:-mrow(Typesetting:-mi( and then the line segment from 

  Typesetting:-mrow(Typesetting:-mi( toTypesetting:-mrow(Typesetting:-mi(.  

    

   Plot Typesetting:-mrow(Typesetting:-mi( and define the functions: 

   Typesetting:-mrow(Typesetting:-mi(and Typesetting:-mrow(Typesetting:-mi(. 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(P, proc (x, y) options operator, arrow; VectorCalculus:-`*`(`*`(`^`(y, 2)), sin(x)) end proc)], [proc (x, y) options operator, arrow; VectorCalculus:-`*`(`*`(`^`(y, 2)),... (12)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(Q, proc (x, y) options operator, arrow; VectorCalculus:-`*`(`*`(`^`(x, 2)), sin(y)) end proc)], [proc (x, y) options operator, arrow; VectorCalculus:-`*`(`*`(`^`(x, 2)),... (13)
 

2(a). Compute the line integral Typesetting:-mrow(Typesetting:-mi( 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(r1, Vector[column]([[t], [`*`(`^`(t, 2))]], [ (14)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(r2, Vector[column]([[`+`(1, `-`(t))], [`+`(1, `-`(t))]], [ (15)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(A, `+`(24, `-`(`*`(14, `*`(cos(1)))), `-`(`*`(19, `*`(sin(1))))))], [`+`(24, `-`(`*`(14, `*`(cos(1)))), `-`(`*`(19, `*`(sin(1)))))]) (16)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(B, `+`(`-`(`*`(2, `*`(cos(1)))), `-`(`*`(4, `*`(sin(1)))), 4))], [`+`(`-`(`*`(2, `*`(cos(1)))), `-`(`*`(4, `*`(sin(1)))), 4)]) (17)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(LHS, `+`(28, `-`(`*`(16, `*`(cos(1)))), `-`(`*`(23, `*`(sin(1))))))], [`+`(28, `-`(`*`(16, `*`(cos(1)))), `-`(`*`(23, `*`(sin(1)))))]) (18)
 

2(b). Use Green's Theorem to turn the line integral from part 2(a) 

       into an equivalent double integral and verify the Green's 

       Theorem holds. 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(RHS, `+`(28, `-`(`*`(16, `*`(cos(1)))), `-`(`*`(23, `*`(sin(1))))))], [`+`(28, `-`(`*`(16, `*`(cos(1)))), `-`(`*`(23, `*`(sin(1)))))]) (19)
 

> Typesetting:-mrow(Typesetting:-mi(
 

true (20)
 

3. Consider the surface Typesetting:-mrow(Typesetting:-mi( where Typesetting:-mrow(Typesetting:-mn(. 

 

   Plot this surface. 

> Typesetting:-mrow(Typesetting:-mi(
Typesetting:-mrow(Typesetting:-mi(
 

Plot
 

3(a). Find formulas for both orientations of this surface using 

       the gradient operator. Decide which orientation points 

       "upward" and which points "downward" and label the 

       orientations accordingly. 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(gradF, Vector[column]([[`/`(`*`(x), `*`(`^`(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2))), `/`(1, 2))))], [`/`(`*`(y), `*`(`^`(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2))), `/`(1, 2))))], ... (21)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(gradLength, `*`(`^`(2, `/`(1, 2))))], [`*`(`^`(2, `/`(1, 2)))]) (22)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(downward, Vector[column]([[`+`(`/`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(x))), `*`(`^`(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2))), `/`(1, 2)))))], [`+`(`/`(`*`(`/`(1, 2), `... (23)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(upward, Vector[column]([[`+`(`-`(`/`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(x))), `*`(`^`(`+`(`*`(`^`(x, 2)), `*`(`^`(y, 2))), `/`(1, 2))))))], [`+`(`-`(`/`(`*`(`/`(1... (24)
 

3(b). This surface can be parametrized using the equations: 

        Typesetting:-mrow(Typesetting:-mi(,   Typesetting:-mrow(Typesetting:-mi(,  and  Typesetting:-mrow(Typesetting:-mi( 

        where Typesetting:-mrow(Typesetting:-mn( and Typesetting:-mrow(Typesetting:-mn(. 

 

        Define a such a parametrization: 

        Typesetting:-mrow(Typesetting:-mi( 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(r, Vector[column]([[`*`(u, `*`(cos(v)))], [`*`(u, `*`(sin(v)))], [u]], [ (25)
 

3(c).  Compute both orientations for this surface again, but 

        this time use the parametrization. Again label them as 

        either "upward" or "downward". 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(ruXrv, Vector[column]([[`+`(`-`(`*`(u, `*`(cos(v)))))], [`+`(`-`(`*`(u, `*`(sin(v)))))], [`+`(`*`(`^`(cos(v), 2), `*`(u)), `*`(`^`(sin(v), 2), `*`(u)))]], [ (26)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(ruXrvLength, `*`(`^`(2, `/`(1, 2)), `*`(u)))], [`*`(`^`(2, `/`(1, 2)), `*`(u))]) (27)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(upward, Vector[column]([[`+`(`-`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(cos(v))))))], [`+`(`-`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(sin(v))))))], [`+`(`*`(`/`(1,... (28)
 

> Typesetting:-mrow(Typesetting:-mi(
 

Typesetting:-mprintslash([`:=`(downward, Vector[column]([[`+`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(cos(v)))))], [`+`(`*`(`/`(1, 2), `*`(`^`(2, `/`(1, 2)), `*`(sin(v)))))], [`+`(`-`(`*`(`/`(1, 2),... (29)
 

3(d).  Plot this surface (using Typesetting:-mrow(Typesetting:-mi('s parametric plot) along  

        with a few sample normal vectors (using your downward orientation). 

> Typesetting:-mrow(Typesetting:-mi(
 

> Typesetting:-mrow(Typesetting:-mi(
Typesetting:-mrow(Typesetting:-mi(
 

> Typesetting:-mrow(Typesetting:-mi(
 

Plot
 

>