View of /trunk/NationalProblemLibrary/Rochester/setAlgebra16FunctionGraphs/c0s1p1/c0s1p1.pg

    1 ## DESCRIPTION
    2 ## Algebra
    3 ## ENDDESCRIPTION
    4 
    5 ## Tagged by tda2d
    6 
    7 ## DBsubject('Algebra')
    8 ## DBchapter('Functions')
    9 ## DBsection('Graphs of Functions')
   10 ## Date('6/3/2002')
   11 ## TitleText1('College Algebra')
   12 ## AuthorText1('Stewart, Redlin, Watson')
   13 ## EditionText1('3')
   14 ## Section1('4.2')
   15 ## Problem1('19 20 21 22')
   16 ## KEYWORDS('function' 'graph' 'domain' 'range','function', 'graph', 'linear', 'increasing/decreasing')
   17 
   18 
   19 DOCUMENT();        # This should be the first executable line in the problem.
   20 
   21 loadMacros("PG.pl",
   22            "PGbasicmacros.pl",
   23            "PGchoicemacros.pl",
   24            "PGanswermacros.pl",
   25 "PGauxiliaryFunctions.pl");
   26 
   27 $pictSet=&random(1,3,1);  #there are three sets of graphs
   28 
   29 $pictNum=&random(1,4,1);  #each set has 4 graphs the numbers are below
   30 
   31 @pictID = (
   32 "1-55141.gif",
   33 "1-79226.gif",
   34 "1-75352.gif",
   35 "1-65474.gif",
   36 "2-96187.gif",
   37 "2-11287.gif",
   38 "2-68382.gif",
   39 "2-63428.gif",
   40 "3-44144.gif",
   41 "3-69221.gif",
   42 "3-18387.gif",
   43 "3-55459.gif"
   44 );
   45 
   46 sub pictIndex{    # this gives offsets into @pictID -- I was too laxy to do multidimensional arrays
   47   my ($i,$j)=@_;
   48   return(($i-1)*4+$j-1 )
   49   }
   50 
   51 @question = ();
   52 @answer =();
   53 
   54 TEXT(beginproblem(),
   55  qq!The simplest functions are the linear (or affine) functions ---
   56   the functions whose graphs are
   57  a straight line. They are important because many functions (the so-called
   58  differentiable functions) ${LQ}locally$RQ look like straight lines.
   59   (${LQ}locally$RQ means that
   60  if we zoom in and look at the function at very powerful magnification
   61  it will look like a straight line.)  $PAR
   62  !,
   63  "Enter the letter of the graph of the function which corresponds to
   64    each statement. $BR"
   65  );
   66 
   67 qa(~~@question,~~@answer,
   68 "The graph of the line is increasing",
   69 @pictID[&pictIndex($pictSet,1)],
   70 "The graph of the line is decreasing",
   71 @pictID[&pictIndex($pictSet,2)],
   72 "The graph of the line is constant",
   73 @pictID[&pictIndex($pictSet,3)],
   74 "The graph of the line is not the graph of a function",
   75 @pictID[&pictIndex($pictSet,4)],
   76 );
   77 
   78 @slice = 0..3;              # select an ordered subset of the questions and answers
   79 @shuffle = &shuffle(scalar(@slice));    # create a permutation of the right length
   80 @images =  @answer[@slice[@shuffle]];   # create a permuted list of the answers
   81 @captions =@ALPHABET[0..3];             # the caption letters are always in order
   82 
   83 TEXT(
   84 &match_questions_list(@question[@slice]),
   85 &imageRow(~~@images,~~@captions)
   86 );
   87 @ans = @ALPHABET[&invert(@shuffle ) ];
   88 ANS(str_cmp(  [ @ans ] ) );
   89 
   90 ENDDOCUMENT();        # This should be the last executable line in the problem.