MathGroup Archive 2003

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

Search the Archive

Re: WinXP and Mathematica 2.2.3.2

  • To: mathgroup at smc.vnet.net
  • Subject: [mg45303] Re: WinXP and Mathematica 2.2.3.2
  • From: drbob at bigfoot.com (Bobby R. Treat)
  • Date: Mon, 29 Dec 2003 00:22:10 -0500 (EST)
  • References: <bsjlkb$252$1@smc.vnet.net> <bsmaea$d9k$1@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

Under Mathematica 5.0, it goes like this:

Assuming[1 > y > 0 && 
   1 > z > 0, Integrate[
   Sqrt[(3 - (x + y + z))/
     (1 + x + y + z)], 
   {x, 0, 1}]]

-Sqrt[(-(-3 + y + z))*
     (1 + y + z)] + 
  Sqrt[4 - y^2 - 2*y*z - 
    z^2] - 4*ArcSin[
    (1/2)*Sqrt[2 - y - z]] + 
  4*ArcSin[(1/2)*Sqrt[
      3 - y - z]]

Assuming[0 < z < 1, 
  Integrate[%, {y, 0, 1}]]

(1/2)*(-8*Sqrt[4 - z^2] - 
   2*z*Sqrt[4 - z^2] + 
   5*Sqrt[3 - 2*z - z^2] + 
   z*Sqrt[3 - 2*z - z^2] + 
   3*Sqrt[3 + 2*z - z^2] + 
   z*Sqrt[3 + 2*z - z^2] + 
   4*ArcCos[z/2] - 
   4*ArcCos[(1 + z)/2] - 
   8*ArcCsc[2/Sqrt[1 - z]] - 
   8*z*ArcCsc[
     2/Sqrt[1 - z]] + 
   8*ArcCsc[2/Sqrt[2 - z]] + 
   16*z*ArcCsc[
     2/Sqrt[2 - z]] - 
   8*z*ArcCsc[2/Sqrt[3 - z]])

Integrate[%, {z, 0, 1}]
8 - 9*Sqrt[3] + (8*Pi)/3

N[%]
0.7891231414528868

NIntegrate[NIntegrate[
   NIntegrate[Sqrt[
     (3 - (x + y + z))/
      (1 + x + y + z)], 
    {x, 0, 1}], {y, 0, 1}], 
  {z, 0, 1}]
0.7891231413365837

Bobby

vb at cybertester.com (Vladimir Bondarenko) wrote in message news:<bsmaea$d9k$1 at smc.vnet.net>...
> "Sieghard Seyrling" <sseyrlin at student.ethz.ch> wrote in message news:<bsjlkb$252$1 at smc.vnet.net>...
> > Hi!
> > Just one question: is it possible to run Mathematica 2.2.3.2 under Windows
> > XP Home Edition???
> 
> 
> Enjoy Mathematica 2.2 under Windows XP!
> 
> 
> In[1] := $Version
> 
> Out[1] = Windows 387 2.2 (April 9, 1993)
> 
> In[2] := Integrate[Integrate[Integrate[Sqrt[(3 - (x + y + z))/\
>          (1 + x + y + z)], {x, 0, 1}], {y, 0, 1}], {z, 0, 1}]
> 
> Out[2] = (16 - 9*3^(1/2) - 2*Pi)/3 + (2*(4 - 9*3^(1/2) + 5*Pi))/3
> 
> In[3] := N[%]
> 
> Out[3] = 0.789123
> 
> In[4] := NIntegrate[NIntegrate[NIntegrate[Sqrt[(3-(x+y+z))/\
>          (1 + x + y + z)], {x, 0, 1}], {y, 0, 1}], {z, 0, 1}]
> 
> Out[4] = 0.789123
> 
> 
> Cheers,
> 
> Vladimir Bondarenko
> 
> http://www.cybertester.com/
> http://maple.bug-list.org/
> http://www.CAS-testing.org/
> 
> ..................................................................


  • Prev by Date: Re: Printing "Alias" Definitions
  • Next by Date: Re: Politically incorrect response to Re: a bug in RealDigits? Mathematica 5.0
  • Previous by thread: Re: WinXP and Mathematica 2.2.3.2
  • Next by thread: Finding Repeated Number Blocks