View of /trunk/NationalProblemLibrary/maCalcDB/setAlgebra19FunTransforms/beth1algfun.pg

    1 ##DESCRIPTION
    2 ##   Transformations of graphs
    3 ##ENDDESCRIPTION
    4 
    5 ##KEYWORDS('percent')
    6 ## lcao tagged and PAID on 2-20-2004
    7 
    8 ## DBsubject('Algebra')
    9 ## DBchapter('Functions')
   10 ## DBsection('Transformations of Functions')
   11 ## Date('6/3/2002')
   12 ## Author('')
   13 ## Institution('')
   14 ## TitleText1('College Algebra')
   15 ## EditionText1('3')
   16 ## AuthorText1('Stewart, Redlin, Watson')
   17 ## Section1('4.5')
   18 ## Problem1('2')
   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 "PGanswermacros.pl",
   30 "PGauxiliaryFunctions.pl",
   31 "PGgraphmacros.pl",
   32 "PGasu.pl",
   33 "extraAnswerEvaluators.pl"
   34 );
   35 
   36 TEXT(&beginproblem);
   37 
   38 $a=non_zero_random(-6,6);
   39 $b=non_zero_random(-6,6);
   40 $a1 = -1+$a;
   41 $b1 = 2+$a;
   42 $c1 = 5+$a;
   43 $a2 = -$b;
   44 $b2 = -1-$b;
   45 $c2 = -$b;
   46 
   47 
   48 BEGIN_TEXT
   49 The graph of \( y= f(x) \) is given below: $BR
   50 \{ image("graph.gif", width=>329, height=>247)\}
   51 $BR $BR
   52 On a piece of paper sketch the graph of \( y=f(x-$a) \) and
   53 determine the new coordinates of points A, B and C.
   54 $BR
   55      A = \{ans_rule(10)\}
   56 $BR
   57      B = \{ans_rule(10)\}
   58 $BR
   59      C = \{ans_rule(10)\}
   60 
   61 $BR $BR
   62 On a piece of paper sketch the graph of \( y=-f(x)-$b \) and
   63 determine the new coordinates of points A, B and C.
   64 $BR
   65      A = \{ans_rule(10)\}
   66 $BR
   67      B = \{ans_rule(10)\}
   68 $BR
   69      C = \{ans_rule(10)\}
   70 END_TEXT
   71 
   72 
   73 ANS(interval_cmp( "($a1, 0)", unions=>'no' ) );
   74 ANS(interval_cmp( "($b1, 1)", unions=>'no' ) );
   75 ANS(interval_cmp( "($c1, 0)", unions=>'no' ) );
   76 ANS(interval_cmp( "(-1, $a2)", unions=>'no' ) );
   77 ANS(interval_cmp( "(2, $b2)", unions=>'no' ) );
   78 ANS(interval_cmp( "(5, $c2)", unions=>'no' ) );
   79 
   80 ENDDOCUMENT();        # This should be the last executable line in the problem.
   81 
   82