View of /trunk/NationalProblemLibrary/Rochester/setTrig04FunctionsAnyAngle/ur_tr_1_7.pg

    1 ## DESCRIPTION
    2 ## Precalculus: Trigonometry
    3 ## ENDDESCRIPTION
    4 
    5 ## KEYWORDS('trigonometry','unit circle')
    6 ## Tagged by cmd6a 5/9/06
    7 
    8 ## DBsubject('Trigonometry')
    9 ## DBchapter('Trigonometric Functions of Real Numbers')
   10 ## DBsection('The Unit Circle')
   11 ## Date('')
   12 ## Author('')
   13 ## Institution('Rochester')
   14 ## TitleText1('')
   15 ## EditionText1('')
   16 ## AuthorText1('')
   17 ## Section1('')
   18 ## Problem1('')
   19 
   20 DOCUMENT(); # This should be the first executable line in the problem.
   21 
   22 loadMacros(
   23 "PG.pl",
   24 "PGbasicmacros.pl",
   25 "PGchoicemacros.pl",
   26 "PGanswermacros.pl",
   27 "PGauxiliaryFunctions.pl"
   28 );
   29 
   30 TEXT(beginproblem());
   31 $showPartialCorrectAnswers = 1;
   32 
   33 $tag = random(0,5,1);
   34 @choose1 = (3,5,8,7,6,10);
   35 @choose2 = (4,12,15,24,8,24);
   36 @choose3 = (5,13,17,25,10,26);
   37 $a1 = $choose1[$tag];
   38 $o1 = $choose2[$tag];
   39 $h1 = $choose3[$tag];
   40 
   41 TEXT(EV2(<<EOT));
   42 If \( \sin(\theta) = \frac { $o1 } { $h1 } \), \( 0 \leq \theta \leq \pi/2 \), then
   43 
   44 $BR
   45 $BR
   46 \( \cos ( \theta ) \) equals \{ans_rule(10) \}
   47 $BR
   48 EOT
   49 $ans = $a1/$h1;
   50 ANS(num_cmp($ans));
   51 TEXT(EV2(<<EOT));
   52 \( \tan ( \theta ) \) equals \{ans_rule(10) \}
   53 $BR
   54 EOT
   55 $ans = $o1/$a1;
   56 ANS(num_cmp($ans));
   57 TEXT(EV2(<<EOT));
   58 \( \sec ( \theta ) \) equals \{ans_rule(10) \}
   59 $BR
   60 EOT
   61 $ans = $h1/$a1;
   62 ANS(num_cmp($ans));
   63 
   64 ENDDOCUMENT(); # This should be the last executable line in the problem.