View of /trunk/NationalProblemLibrary/ma123DB/set4/s7_8_17.pg

    1 ##KEYWORDS('integrals', 'improper')
    2 ##DESCRIPTION
    3 ## Determine if an improper integral converges and evaluate it.
    4 ##ENDDESCRIPTION
    5 
    6 ## Shotwell cleaned
    7 
    8 ## DBsubject('Calculus')
    9 ## DBchapter('Techniques of Integration')
   10 ## DBsection('Improper Integrals')
   11 ## Date('6/3/2002')
   12 ## Author('')
   13 ## Institution('')
   14 ## TitleText1('Calculus Early Transcendentals')
   15 ## EditionText1('4')
   16 ## AuthorText1('Stewart')
   17 ## Section1('7.8')
   18 ## Problem1('17')
   19 
   20 DOCUMENT();        # This should be the first executable line in the problem.
   21 
   22 loadMacros(
   23 "PGbasicmacros.pl",
   24 "PGanswermacros.pl",
   25 "PGauxiliaryFunctions.pl"
   26 );
   27 
   28 TEXT(beginproblem());
   29 $showPartialCorrectAnswers = 1;
   30 
   31 $a = random(1,20,.1);
   32 
   33 
   34 BEGIN_TEXT
   35 Determine whether the integral is divergent or convergent.
   36 If it is convergent, evaluate it. $BR$BR
   37 If it diverges to infinity, state your answer as $BITALIC inf $EITALIC .
   38 If it diverges to negative infinity, state your answer as $BITALIC -inf $EITALIC . If it diverges without being infinity or negative infinity, state your answer as $BITALIC div $EITALIC .
   39 
   40 $BR \[ \int_{$a}^{\infty}  \cos(x) \, dx \]
   41 $BR Answer: \{ans_rule(40) \}
   42 $BR
   43 END_TEXT
   44 
   45 ANS(num_cmp('div', strings=>['inf', '-inf', 'div']));
   46 
   47 
   48 ENDDOCUMENT();        # This should be the last executable line in the problem.
   49