[npl] / trunk / NationalProblemLibrary / Rochester / setTrig06Inverses / p15.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

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

Sun Mar 26 04:58:01 2006 UTC (7 years, 1 month ago) by jj
File size: 1152 byte(s)
Initial import


    1 ##DESCRIPTION
2 ##KEYWORDS('trigonometry', 'inverse functions')
3 ##
4 ##ENDDESCRIPTION
5
6 DOCUMENT();        # This should be the first executable line in the problem.
7
9 "PG.pl",
10 "PGbasicmacros.pl",
11 "PGchoicemacros.pl",
13 "PGauxiliaryFunctions.pl",
14 "PGasu.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