View of /trunk/NationalProblemLibrary/FortLewis/Algebra/1-4-Equivalent-equations/MCH1-1-4-28-Equivalent-equations.pg

    1 ## DESCRIPTION
    2 ## Algebraic equations
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('Equations')
    6 
    7 ## DBsubject('Algebra')
    8 ## BookTitle('Algebra: Form and Function')
    9 ## DBchapter('Basic Algebra')
   10 ## BookChapter('The Key Concepts of Algebra')
   11 ## DBsection('Equivalent Equations')
   12 ## BookSection('Equivalent Equations')
   13 ## Date('01/01/10')
   14 ## Author('Paul Pearson')
   15 ## Institution('Fort Lewis College')
   16 ## TitleText1('Algebra: Form and Function')
   17 ## EditionText1('1')
   18 ## AuthorText1('McCallum, Connally, and Hughes-Hallett')
   19 ## Section1('1.4')
   20 ## Problem1('28')
   21 
   22 
   23 ########################################
   24 #  Initialization
   25 
   26 DOCUMENT();
   27 
   28 loadMacros(
   29 "PGstandard.pl",
   30 "MathObjects.pl",
   31 "PGstandard.pl",
   32 "PGchoicemacros.pl",
   33 "AnswerFormatHelp.pl",
   34 "PGcourse.pl",
   35 );
   36 
   37 TEXT(beginproblem());
   38 
   39 #######################################
   40 #  Set-up
   41 
   42 #Context("Numeric");
   43 #Context()->variables->are(r=>"Real");
   44 
   45 $a = random(3,6,1);
   46 
   47 $equation1 = "\( \displaystyle x^2 = $a x \)";
   48 
   49 $equation2 = "\( \displaystyle x = $a \)";
   50 
   51 $mc = new_multiple_choice();
   52 $mc->qa(
   53 "Are the two equations equivalent?
   54 $BCENTER
   55 $equation1
   56 $BR
   57 $BR
   58 $equation2
   59 $ECENTER
   60 If they are equivalent, what operation transforms
   61 the first into the second?",
   62 "Divide both sides by \( x \)",
   63 );
   64 $mc->extra(
   65 "Divide both sides by \( $a \)",
   66 "Take the square root of both sides",
   67 "Subtract \( x \) from both sides",
   68 "Multiply both sides by \( $a \)",
   69 );
   70 $mc->makeLast("The equations are not equivalent");
   71 
   72 #Context()->operators->undefine("+","-","*","^","**","/");
   73 #Context()->functions->disable("All");
   74 
   75 ################################################
   76 #  Main text
   77 
   78 #Context()->texStrings;
   79 BEGIN_TEXT
   80 
   81 \{ $mc->print_q() \}
   82 $BR
   83 \{ $mc->print_a() \}
   84 
   85 END_TEXT
   86 #Context()->normalStrings;
   87 
   88 ################################################
   89 #  Answer evaluation
   90 
   91 install_problem_grader(~~&std_problem_grader);
   92 
   93 $showPartialCorrectAnswers = 0;
   94 
   95 ANS( radio_cmp( $mc->correct_ans() ) );
   96 
   97 
   98 COMMENT('MathObject version');
   99 ENDDOCUMENT();