View of /trunk/NationalProblemLibrary/Rochester/setTrig06Inverses/p15.pg

    1 ##DESCRIPTION
    2 ##KEYWORDS('trigonometry', 'inverse functions')
    3 ##
    4 ##ENDDESCRIPTION
    5 
    6 DOCUMENT();        # This should be the first executable line in the problem.
    7 
    8 loadMacros(
    9 "PG.pl",
   10 "PGbasicmacros.pl",
   11 "PGchoicemacros.pl",
   12 "PGanswermacros.pl",
   13 "PGauxiliaryFunctions.pl",
   14 "PGasu.pl",
   15 "extraAnswerEvaluators.pl"
   16 );
   17 
   18 TEXT(beginproblem());
   19 $showPartialCorrectAnswers = 1;
   20 
   21 @values =('\frac{1}{36}','\frac{1}{9}','\frac{1}{16}','\frac{1}{25}');
   22 
   23 $tag1 = random(0,3,1);
   24 $pi = 3.1415927;
   25 @ans1 = (arccos(1/6), arccos(1/3), arccos(1/4), arccos(1/5));
   26 @ans2=  (arccos(-1/6),arccos(-1/3),arccos(-1/4),arccos(-1/5));
   27 @ans3=(2*$pi-arccos(-1/6),2*$pi-arccos(-1/3),2*$pi-arccos(-1/4),2*$pi-arccos(-1/5));
   28 @ans4=(2*$pi-arccos(1/6),2*$pi-arccos(1/3),2*$pi-arccos(1/4),2*$pi-arccos(1/5));
   29 
   30 TEXT(EV2(<<EOT));
   31 Solve the equation in the interval [0,2 \( \pi \)].
   32 If there is more than one solution write them separated by commas.
   33 
   34 $PAR
   35  \( (\cos(x))^2=$values[$tag1] \)
   36 $PAR
   37 \( x= \)   \{ans_rule(20) \}
   38 
   39 EOT
   40 ANS(number_list_cmp("$ans1[$tag1],$ans2[$tag1],$ans3[$tag1],$ans4[$tag1]"));
   41 
   42 
   43 ENDDOCUMENT();        # This should be the last executable line in the problem.
   44