View of /trunk/NationalProblemLibrary/ASU-topics/setSequenceandSeries/factorial2.pg

    1 ##DESCRIPTION
    2 ##   Simplify factorials
    3 ##ENDDESCRIPTION
    4 
    5 ## Tagged by ynw2d
    6 
    7 
    8 ## DBsubject('Algebra')
    9 ## DBchapter('Sequences and Series')
   10 ## DBsection('The Binomial Theorem')
   11 ## Date('6/3/2002')
   12 ## Institution('ASU')
   13 ## TitleText1('College Algebra')
   14 ## AuthorText1('Stewart, Redlin, Watson')
   15 ## EditionText1('3')
   16 ## Section1('9.6')
   17 ## Problem1('13')
   18 ## KEYWORDS('factorials')
   19 
   20 #
   21 # First comes some stuff that appears at the beginning of every problem
   22 #
   23 
   24 DOCUMENT();        # This should be the first executable line in the problem.
   25 
   26 loadMacros(
   27 "PG.pl",
   28 "PGbasicmacros.pl",
   29 "PGchoicemacros.pl",
   30 "PGanswermacros.pl",
   31 "PGauxiliaryFunctions.pl",
   32 "PGasu.pl"
   33 );
   34 
   35 TEXT(beginproblem());
   36 
   37 #
   38 # Choose the denominator
   39 #
   40 
   41 $b = random(1,30);
   42 
   43 #Pick how many more the numerator will be
   44 $c = random(1,5);
   45 
   46 #Calculate the numerator
   47 $a = $b + $c;
   48 
   49 #calculate the answer
   50 $ans = $a;
   51 for($j=$b+1; $j<$a; $j++) {
   52   $ans *= $j;
   53 }
   54 
   55 #Now the problem
   56 
   57 
   58 BEGIN_TEXT
   59 Evaluate \[\frac{$a !}{$b !}\]
   60   $PAR
   61   \(\frac{$a !}{$b !}\) =\{ans_rule(40)\}
   62 END_TEXT
   63 
   64 #
   65 # Tell WeBWork how to test if answers are right.  These should come in the
   66 # same order as the answer blanks above.  You tell WeBWork both the type of
   67 # "answer evaluator" to use, and the correct answer.
   68 #
   69 
   70 ANS(num_cmp($ans));
   71 
   72 ENDDOCUMENT();        # This should be the last executable line in the problem.
   73