[npl] / trunk / NationalProblemLibrary / ASU-topics / setTrigIdentities / p1.pg Repository: Repository Listing bbplugincoursesdistsnplrochestersystemwww

# Annotation of /trunk/NationalProblemLibrary/ASU-topics/setTrigIdentities/p1.pg

 1 : jj 61 ## DESCRIPTION 2 : ## Geometry: Plane Geometry 3 : ## ENDDESCRIPTION 4 : 5 : ## KEYWORDS('geometry', 'plane') 6 : ## Tagged by YJ 7 : 8 : ## DBsubject('Geometry') 9 : ## DBchapter('Plane Geometry') 10 : ## DBsection('Trigonometric Identities') 11 : ## Date('5/26/2005') 12 : ## Author('Jeff Holt') 13 : ## Institution('UVA') 14 : ## TitleText1('Calculus') 15 : ## EditionText1('5e') 16 : ## AuthorText1('Stewart') 17 : ## Section1('5.8.4') 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 : "PGgraphmacros.pl", 29 : "PGasu.pl" 30 : ); 31 : 32 : TEXT(&beginproblem); 33 : 34 : $showPartialCorrectAnswers = 1; 35 : 36 :$pi = 4*atan2(1,1); 37 : $a=random(3,9,2); 38 :$b=random($a+1,$a+2,1); 39 : 40 : $cst=-$a/$b; 41 : 42 : #evaluate answers 43 : 44 :$bb=$b**2; 45 :$d = $bb-$a**2; 46 : $e = 2*$a**2-$bb; 47 : 48 :$snt="-sqrt($d)/$b"; 49 : $sn2t="2*$a*sqrt($d)/$bb"; 50 : $cs2t="$e/$bb"; 51 :$snthalf=sqrt((1-$cst)/2); 52 :$csthalf=-sqrt((1+\$cst)/2); 53 : 54 : TEXT(EV2(<