View of /trunk/NationalProblemLibrary/CollegeOfIdaho/setAlgebra_03_01_SystemOfLinearEq/31IntAlg_19_SolveLinearEquation_Review.pg

    1 ##DESCRIPTION
    2 ## Review: Solve a linear equation
    3 ##
    4 ##ENDDESCRIPTION
    5 ## DBsubject('Intermediate Algebra')
    6 ## DBchapter('Ch 03: Systems of Linear Equations')
    7 ## DBsection('Systems of Linear Equations in Two Variables')
    8 ## KEYWORDS('linear equation')
    9 ## TitleText1('Essentials of Intermediate Algebra')
   10 ## EditionText1('1')
   11 ## AuthorText1('Blitzer')
   12 ## Section1('3.1')
   13 ## Problem1('')
   14 ## Author('RA Cruz')
   15 ## Institution('The College of Idaho')
   16 ## Date: 2007/10
   17 
   18 DOCUMENT(); # This should be the first executable line in the problem.
   19 
   20 loadMacros(
   21   "PGstandard.pl",
   22   "PGauxiliaryFunctions.pl",
   23   "Parser.pl",
   24   "MathObjects.pl",
   25   "contextLimitedNumeric.pl"
   26 );
   27 
   28 TEXT(beginproblem());
   29 
   30 ######################################
   31 #  Setup
   32 #   Note: Values are chosen to have an solution.
   33 
   34 $a = random(4,9,1);
   35 $b = random(8,12,1);
   36 $c = random(2,5,1);
   37 $d = random(2,6,1);
   38 $e = random(1,10,1);
   39 
   40 ######################################
   41 #  Main text
   42 
   43 BEGIN_TEXT
   44 REVIEW: Solve the equation for \( x \):
   45 \[ $a x = $b - $c($d x - $e)\]
   46 $PAR
   47 \( x = \) \{ans_rule(10) \}
   48 $BR
   49 END_TEXT
   50 
   51 ######################################
   52 #  Answers
   53 
   54 Context("LimitedNumeric-StrictFraction");
   55 
   56 ($ans_n,$ans_d) = reduce($b+$c*$e,$a+$c*$d);
   57 $ans = "$ans_n/$ans_d";
   58 if ($ans_d==1) {$ans = "$ans_n";}
   59 ANS(Compute($ans)->cmp);
   60 
   61 $showPartialCorrectAnswers = 1;
   62 
   63 ######################################
   64 
   65 
   66 COMMENT('MathObject version');
   67 ENDDOCUMENT();