date 
 unsetenv DISPLAY 
 cd ~/Symbolic/Maple/ 
 maple
pollux: pollux: Sun Nov 12 17:03:12 EST 1995
pollux: pollux: {{Maple}}     |\^/|     Maple V Release 3 (University of Florida)
._|\|   |/|_. Copyright (c) 1981-1994 by Waterloo Maple Software and the
 \  MAPLE  /  University of Waterloo. All rights reserved. Maple and Maple V
 <____ ____>  are registered trademarks of Waterloo Maple Software.
      |       Type ? for help.
                                     20872


# Part c  of the first problem on TakeHome B.


# We compute the radius of the cross-section of the doughnut.

> crosssection_rad  := (1/2)* 1 ;

                            crosssection_rad := 1/2

> outdoughnut_rad   := (1/2)* 4 ;

                              outdoughnut_rad := 2


> centroid_rad  :=  outdoughnut_rad - crosssection_rad;


                              centroid_rad := 3/2

> circum_centroid_circle  := 2*Pi*centroid_rad ;


                         circum_centroid_circle := 3 Pi

> area_crossection := Pi * crosssection_rad^2 ;

                           area_crossection := 1/4 Pi


# Now by the Thm of Pappus...

> part_c_vol := simplify(circum_centroid_circle*area_crossection) ;


                                                 2
                             part_c_vol := 3/4 Pi