Calculus & Analytic Geometry II, MTH 169  

(Instructor: M. USMAN) 

Lab#1 

Instructions:Please type all inputs  and reproduce these examples presented here then solve the homework problems listed at the end of this Lab.  

Objectives: In this lab we will find the volume of solids using method of integration. We need to include the package "Student[Calculus1])". 

 

> with(Student[Calculus1]):
 

> VolumeOfRevolution(x^2, x=0..3,  axis = horizontal, output = plot,volumeoptions = [style = wireframe, color=blue], axes = boxed);
 

> VolumeOfRevolution(x^2, x=0..3,  axis=horizontal, output=integral);
 

> evalf(%);
 

 

 

Plot
Int(`*`(Pi, `*`(`^`(x, 4))), x = 0 .. 3)
152.6814030 (1)
 

> VolumeOfRevolution( exp(-x^2), x=0..3,  axis=horizontal, output=plot,volumeoptions = [style = wireframe, color=blue], axes = boxed);
 

> VolumeOfRevolution(exp(-x^2), x=0..3, axis=horizontal,output=integral);
 

> evalf(%);
 

 

 

Plot
Int(`*`(Pi, `*`(`^`(exp(`+`(`-`(`*`(`^`(x, 2))))), 2))), x = 0 .. 3)
1.968701239 (2)
 

> VolumeOfRevolution(x, x^2, x=0..1, axis=horizontal,output=integral);
 

> VolumeOfRevolution(x, x^2, x=0..1, axis=horizontal, output=plot,volumeoptions = [style = wireframe, color=blue], axes = boxed);
 

> evalf(%);
 

 

 

Int(`*`(Pi, `*`(abs(`+`(`-`(`*`(`^`(x, 2))), `*`(`^`(x, 4)))))), x = 0 .. 1)
Plot
Plot
 

If we wish to rotate our region about the axis x = -3, then we make the following change: 

> VolumeOfRevolution( 4*x-x^2, x^2, x=0..2, axis=vertical,distancefromaxis = -3, output=plot,volumeoptions = [style = wireframe, color=blue], axes = boxed);
 

Plot
 

Ex 6.2(Q#8) 

 

> VolumeOfRevolution(1/4*x^2, 5-x^2, x=-2..2, axis=horizontal, output=plot,volumeoptions = [style = wireframe, color=blue], axes = boxed);
 

Plot
 

> VolumeOfRevolution(1/4*x^2, 5-x^2, x=-2..2, axis=horizontal, output=integral);
 

Int(`*`(Pi, `*`(abs(`+`(`*`(`/`(15, 16), `*`(`^`(x, 4))), 25, `-`(`*`(10, `*`(`^`(x, 2)))))))), x = -2 .. 2) (3)
 

> evalf(%);
 

184.3067690 (4)
 

Ex 6.2(Q#14) 

 

> VolumeOfRevolution( 1/x, 0, x=1..3, axis=horizontal,distancefromaxis = -1, output=plot,volumeoptions = [style = wireframe, color=blue], axes = boxed);
 

> VolumeOfRevolution(1/x, 0,x=1..3, axis=horizontal,distancefromaxis = -1, output=integral);
 

 

Plot
Int(`/`(`*`(Pi, `*`(`+`(1, `*`(2, `*`(x))))), `*`(`^`(x, 2))), x = 1 .. 3) (5)
 

> evalf(%);
 

8.997179693 (6)
 

> Typesetting:-mrow(Typesetting:-mi(
Typesetting:-mrow(Typesetting:-mi(
Typesetting:-mrow(Typesetting:-mi(