View of /trunk/NationalProblemLibrary/ma123DB/set11/s11_4_13.pg

    1 ##KEYWORDS('Sequences', 'Comparison Test')
    2 ##DESCRIPTION
    3 ## Determine if a series converges
    4 ##ENDDESCRIPTION
    5 
    6 ## Shotwell cleaned
    7 
    8 ## DBsubject('Calculus')
    9 ## DBchapter('Infinite Sequences and Series')
   10 ## DBsection('The Comparison Tests')
   11 ## Date('6/3/2002')
   12 ## Author('')
   13 ## Institution('')
   14 ## TitleText1('Calculus: Early Transcendentals')
   15 ## EditionText1('6')
   16 ## AuthorText1('Stewart')
   17 ## Section1('11.4')
   18 ## Problem1('13')
   19 ## TitleText2('Calculus: Early Transcendentals')
   20 ## EditionText2('1')
   21 ## AuthorText2('Rogawski')
   22 ## Section2('10.3')
   23 ## Problem2('71')
   24 
   25 DOCUMENT();        # This should be the first executable line in the problem.
   26 
   27 loadMacros(
   28 "PGbasicmacros.pl",
   29 "PGanswermacros.pl",
   30 "PGauxiliaryFunctions.pl"
   31 );
   32 
   33 TEXT(beginproblem());
   34 $showPartialCorrectAnswers = 1;
   35 
   36 $a = random(2,9,1);
   37 $b = random(2,9,1);
   38 $c = random(2,9,1);
   39 $d = $a + 1;
   40 
   41 BEGIN_TEXT
   42 
   43 Determine whether the following series converges or diverges.
   44 \[ \sum_{n=1}^\infty\frac{ n^{$a}+$b }{ n^{$d}+$c } \]
   45 Input $BITALIC C $EITALIC for convergence and $BITALIC D $EITALIC for divergence: \{ans_rule(1)\}
   46 $BR$BR $BBOLD Note: $EBOLD You have only one chance to enter your answer.
   47 END_TEXT
   48 
   49 ANS(str_cmp("D") );
   50 
   51 ENDDOCUMENT();        # This should be the last executable line in the problem.
   52