## DESCRIPTION
##   Angle between Vectors
## ENDDESCRIPTION

## Tagged by nhamblet

## DBsubject('Calculus')
## DBchapter('Vectors and the Geometry of Space')
## DBsection('The Dot Product')
## Date('6/3/2002')
## TitleText1('Calculus: Early Transcendentals')
## AuthorText1('Rogawski')
## EditionText1('1')
## Section1('12.3')
## Problem1('28')
## TitleText2('Calculus: Early Transcendentals')
## AuthorText2('Stewart')
## EditionText2('6')
## Section2('12.3')
## Problem2('28')
## KEYWORDS('Dot Product', 'Angle',"vector')

DOCUMENT();

loadMacros(
"PG.pl",
"PGbasicmacros.pl",
"PGchoicemacros.pl",
"PGanswermacros.pl",
"PGauxiliaryFunctions.pl"
);

TEXT(beginproblem());
$showPartialCorrectAnswers = 1;

$a = non_zero_random(-10, 10);
$b = random(-10, 10);
$c = random(-10, 10);
$d = non_zero_random(-10, 10);
$e = random(-10, 10);
$f = random(-10, 10);

$adbecf = $a*$d + $b*$e + $c*$f;

$dist1 = sqrt(($a)**2 + ($b)**2 + ($c)**2);
$dist2 = sqrt(($d)**2 + ($e)**2 + ($f)**2);

$ans = arccos($adbecf/($dist1*$dist2));

BEGIN_TEXT
$PAR
What is the angle in radians between the vectors 
$BR \( {\mathbf a} \) = ($a, $b, $c)
and $BR \( {\mathbf b} \) = ($d, $e, $f)?

$PAR Angle: \{ ans_rule(60) \} (radians)
END_TEXT
ANS(num_cmp($ans));

ENDDOCUMENT();