View of /trunk/NationalProblemLibrary/272/setStewart15_8/problem_10.pg

    1 ## DESCRIPTION
    2 ##   Multiple Integrals
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('Multiple Integral')
    6 ## Tagged by nhamblet
    7 
    8 ## DBsubject('Calculus')
    9 ## DBchapter('Multiple Integrals')
   10 ## DBsection('Double Integrals Over General Regions')
   11 ## Date('')
   12 ## Author('')
   13 ## Institution('ASU')
   14 ## TitleText1('Calculus')
   15 ## EditionText1('')
   16 ## AuthorText1('Stewart')
   17 ## Section1('15.8')
   18 ## Problem1('')
   19 
   20 DOCUMENT();
   21 loadMacros("PG.pl",
   22            "PGbasicmacros.pl",
   23            "PGchoicemacros.pl",
   24            "PGanswermacros.pl",
   25            "PGauxiliaryFunctions.pl",
   26            "PGgraphmacros.pl",
   27            "Dartmouthmacros.pl");
   28 
   29 
   30 ## Do NOT show partial correct answers
   31 $showPartialCorrectAnswers = 1;
   32 
   33 ## Lots of set up goes here
   34 
   35 
   36 
   37 ## Ok, we are ready to begin the problem...
   38 ##
   39 TEXT(beginproblem());
   40 
   41 $ml = new_match_list();
   42 
   43 $ml -> qa(
   44         "\( \int_{0}^{1} \! \int^{y^2}_{0} \ \frac{1}{x} \ dx \ dy \)",
   45         "cartesian coordinates",
   46         "\( \iint_D \ \frac{1}{x^2+y^2} \ dA \) where D is: \( x^2+y^2 \leq 4 \)",
   47         "polar coordinates",
   48         "\( \iiint_E \ z \ dV \) where E is: \( 1 \leq x \leq 2, 3 \leq y \leq 4, 5 \leq z \leq 6 \)",
   49         "cartesian coordinates",
   50         "\( \iiint_E \ z^2 \ dV \) where E is: \( -2 \leq z \leq 2, 1 \leq x^2+y^2 \leq 2 \)",
   51         "cylindrical coordinates",
   52         "\( \iiint_E \ dV \) where E is: \( x^2+y^2+z^2 \leq 4, x \geq 0, y \geq 0, z \geq 0 \)",
   53         "spherical coordinates"
   54 );
   55 
   56 $ml->choose(5);
   57 
   58 BEGIN_TEXT
   59 $PAR
   60 Match the integrals with the type of coordinates which make them the easiest to do.
   61 Put the letter of the coordinate system to the left of the number of the integral.
   62 $PAR
   63 \{ $ml -> print_q \}
   64 $PAR
   65 \{ $ml -> print_a \}
   66 END_TEXT
   67 
   68 ANS(str_cmp($ml->ra_correct_ans));
   69 
   70 
   71 
   72 
   73 
   74 ENDDOCUMENT();
   75 
   76 
   77 
   78