[npl] / trunk / NationalProblemLibrary / UMN / calculusStewartCCC / s_6_2_prob01.pg Repository:
ViewVC logotype

Annotation of /trunk/NationalProblemLibrary/UMN/calculusStewartCCC/s_6_2_prob01.pg

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2212 - (view) (download)

1 : jonathan r 1706 gness #DESCRIPTION
2 :     gness ## Calculus: Volumes
3 :     gness ##ENDDESCRIPTION
4 :     gness
5 :     gness ##KEYWORDS('calculus', 'volumes')
6 :     gness
7 :     gness ## DBsubject('Calculus')
8 :     gness ## DBchapter('Applications of Integration')
9 :     gness ## DBsection('Volumes')
10 :     gness ## Date('03/03/2010')
11 :     gness ## Author('Justin Sukiennik')
12 :     gness ## Institution('University of Minnesota')
13 :     gness ## TitleText1('Calculus: Concepts and Contexts')
14 :     gness ## EditionText1('4 Custom UMTYMP Ed.')
15 :     gness ## AuthorText1('Stewart')
16 :     gness ## Section1('6.2')
17 :     gness ## Problem1('')
18 :     gness
19 :     gness #####################################################################
20 :     gness DOCUMENT(); # This should be the first executable line in the problem.
21 :     gness
22 :     gness loadMacros(
23 :     gness "PGstandard.pl",
24 :     gness "MathObjects.pl",
25 :     gness "PGcourse.pl",
26 :     gness );
27 :     gness
28 :     gness #####################################################################
29 :     gness
30 :     gness $showPartialCorrectAnswers = 1;
31 :     gness TEXT(beginproblem());
32 :     gness
33 :     gness
34 :     gness Context("Numeric");
35 :     gness
36 :     gness $n = random(2,6,2);
37 :     gness $c = random(2,8,1);
38 :     gness
39 :     gness $an = Compute("2*pi*(2*$c - 1 - 2*$c/($n+1) + 1/(2*$n + 1))")->reduce;
40 :     gness
41 :     gness $ans = Compute("$an");
42 :     gness
43 :     gness #####################################################################
44 :     gness
45 :     gness Context()->texStrings;
46 :     gness BEGIN_TEXT
47 :     gness Find the volume of the solid obtained by rotating the region bounded by \(y = x^{$n}\) and \(y = 1\) about the line \(y = $c.\)$PAR
48 :     gness Volume = \{ans_rule(20) \}
49 :     gness END_TEXT
50 :     gness
51 :     gness #####################################################################
52 :     gness
53 :     gness ANS(($ans)->cmp());
54 :     gness
55 :     gness ENDDOCUMENT(); # This should be the last executable line in the problem.

aubreyja at gmail dot com
ViewVC Help
Powered by ViewVC 1.0.9