View of /trunk/NationalProblemLibrary/ASU-topics/setSolveEquations/zhu3.pg

    1 ##DESCRIPTION
    2 ##   Inequality
    3 ##ENDDESCRIPTION
    4 
    5 
    6 ## KEYWORDS('Equations and Inequalities')
    7 ## Tagged by ynw2d
    8 
    9 ## DBsubject('Algebra')
   10 ## DBchapter('Equations and Inequalities')
   11 ## DBsection('Algebraic and Graphical Solutions of Equations')
   12 ## Date('')
   13 ## Author('')
   14 ## Institution('ASU')
   15 ## TitleText1('')
   16 ## EditionText1('')
   17 ## AuthorText1('')
   18 ## Section1('')
   19 ## Problem1('')
   20 
   21 DOCUMENT();        # This should be the first executable line in the problem.
   22 
   23 loadMacros(
   24 "PG.pl",
   25 "PGbasicmacros.pl",
   26 "PGchoicemacros.pl",
   27 "PGanswermacros.pl",
   28 "PGauxiliaryFunctions.pl",
   29 "PGasu.pl",
   30 "extraAnswerEvaluators.pl"
   31 );
   32 
   33 TEXT(beginproblem());
   34 $showPartialCorrectAnswers = 0;
   35 
   36 $pr = list_random([3,4], [5,12],[8, 15], [7,24]);
   37 $a = $pr->[1]/2;
   38 $b = $pr->[0];
   39 
   40 TEXT(EV2(<<EOT));
   41 Solve the following equation.
   42 $BR
   43 \[ \frac{$a}{x} - \frac{$b}{x-$a} + 1 = 0 \]
   44 $BR
   45 Answer: \{ans_rule(35) \}
   46 $BR
   47 $BBOLD Note: $EBOLD
   48  If there is more than one answer, write them separated by commas (e.g., 1, 2).
   49 Do not list individual values of \(x\) more than once.
   50 EOT
   51 
   52 $c = sqrt($b**2+4*$a**2);
   53 
   54 ANS(number_list_cmp("($b+$c)/2, ($b-$c)/2"));
   55 
   56 
   57 ENDDOCUMENT();        # This should be the last executable line in the problem.;
   58 
   59