MathGroup Archive 1997

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: mathematica problem

  • To: mathgroup at
  • Subject: [mg7592] Re: [mg7540] mathematica problem
  • From: Allan Hayes <hay at>
  • Date: Thu, 19 Jun 1997 03:13:55 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

On 13 Jun 1997
Stephanie Gill <sgill at>
in [mg7540] mathematica problem

> Consider the region enclosed by y=sin^-1x, y=0, and x=1.  Find the
> volume of the solid generated by revolving the region about the
> x-axis using
> a)  disks;
> b)  cylindrical shells.
>I do not understand how to do this on Mathematica, can you help?


Here is the graph of  y = ArcSin[x]   (that is y = sin^-1x) from x  
= 0 to x = 1.

	{{PointSize[.02],Point[{.7, ArcSin[.7]}],
	 Text[{"x","y"},{.7, ArcSin[.7]},{-1,1}],
	  Line[{{1,0},{1, ArcSin[1]}}]

You can look at the curve as as given by either
(1)  {x,y} such that y = ArcSin[x]  for x in [0,1]                  
(2)  {x,y} such that x = Sin[y]     for y in [0,ArcSin[1]]            

Using (1) we get the volume from disks:

	Integrate[Pi*ArcSin[x]^2, {x, 0, 1}]
	1/4*Pi*(-8 + Pi^2)

Using (2) we get the volume from shells:

	Integrate[2*Pi*y*(1 - Sin[y]), {y, 0, ArcSin[1]}]
	1/4*Pi*(-8 + Pi^2)

This will look clearer if you convert the input and output cells  
for the integrations to TraditionalForm (to do this, select the  
cells and use the menu Cell>ConvertTo>TraditionalForm).

If you are interested in writing an fuller explanation of what is  
happening then Mathematica can produce graphics to show the disks  
and shells - please get in touch if you have any further questions  
about this.

Allan Hayes
hay at
voice:+44 (0)116 2714198
fax: +44 (0)116 2718642
12 Copse Close, Leicester, LE2 4FB, UK

  • Prev by Date: Re: Help: Saving/Printing graphics output
  • Next by Date: Re: Re: Re: Just another bug in MMA 3.0
  • Previous by thread: mathematica problem
  • Next by thread: Re: mathematica problem