On 28 jan, 05:41, Vladimir Bondarenko <v...@[EMAIL PROTECTED]
> wrote:
> (***************************************************************)
>
> If the same bugs exist through numerous software releases,
> I think that is valuable public information.
>
> It just should not happen.
>
> -- Brad Cooper
>
> (***************************************************************)
>
> -----------------------------------------------------------------
>
> Daniel Lichtblau tells you how unprofessional I am. Small wonder.
> Do not trust him. He is here as a hidden Wolfram Research sales
> person talking to you -- to change your mind, to push Mathematica
> sales -- as if he is just a non-biased applied mathematician, and
> developer. The smaller I am, and the less professional I am, the
> easier to softpedal all the Mathematica defects re****ted by us.
>
> But I do not care about my (true or pretended) level in his eyes
> a small red jammed cent. All this blah-blah-blah is really not of
> a caliber to care for Cyber Tester about.
>
> Deeds speak louder than words. Quality of Math is our #1 care.
>
> So our little demo continues.... Hello again from the VM machine
> which hopefully soon will not be ignored by CAS manufacturers.
>
> This example demonstrates YET ANOTHER case of bad defects in
> Wolfram Research Quality Assurance process. Consider, it cannot
> trap efficiently bugs the long livers.
>
> First, in 1996, Mathematica 3.0 returns a false result. This
> bug persists in 2002, in Mathematica 4.2.
>
> Then, in 2005, in Mathematica 5.2, this unfixed bug got worse
> in severity -- it hogs all the memory. In Mathematica 6, this
> memory hogging persists.
>
> -----------------------------------------------------------------
>
> N[Integrate[1/Sqrt[z^4 + z^3 + z^2 - z + 1], {z, 0, Infinity}]]
>
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A01.71331
>
> -----------------------------------------------------------------
>
> =A0 Integrate[1/Sqrt[z^4 + z^3 + z^2 - z + 1], {z, 0, Infinity}]
>
> -----------------------------------------------------------------
> VERSION =A0 =A0 =A0 =A0 =A0 =A0OUTPUT =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0
=A0 =
=A0 =A0 =A0 =A0 =A0 =A0RESOLUTION
> -----------------------------------------------------------------
>
> Mathematica 6.0 =A0 =A0No more memory available. =A0 =A0 =A0 =A0 =A0 =A0
=
=A0 BUG #2
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Mathematica kernel has shut down.
>
> Mathematica 5.2 =A0 =A0No more memory available.
> =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0Mathematica kernel has shut down.
=
=A0 =A0 =A0 BUG #2
>
> Mathematica 4.2 =A0 =A0-1.71331 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0
=
=A0 =A0 =A0 =A0 =A0 =A0BUG #1
>
> Mathematica 3.0 =A0 =A0-1.71331 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0
=
=A0 =A0 =A0 =A0 =A0 =A0BUG #1
>
> -----------------------------------------------------------------
>
> Best wishes,
>
> Vladimir Bondarenko
>
> VM and GEMM architect
> Co-founder, CEO, Mathematical Director
>
> http://www.cybertester.com/=A0Cyber
Tester,
LLChttp://maple.bug-list.org/=
=A0 Maple Bugs Encyclopaediahttp://www.CAS-testing.org/=A0CAS
Testing
>
> -----------------------------------------------------------------
Good day,
After some DIY...
In[11]:=3D e1 =3D EllipticF[ArcCsc[2/Sqrt[4+Sqrt[-3+I*Sqrt[11]]*
Sqrt[(2/11)*(13+5*Sqrt[5]+Sqrt[78+74*Sqrt[5]])]]],
(1/22)*(27-7*Sqrt[5])];
In[12]:=3D e2 =3D EllipticF[ArcSin[Sqrt[(-7-Sqrt[5]+Sqrt[-2+6*Sqrt[5]])/
(-7+Sqrt[5]-I*Sqrt[2+6*Sqrt[5]])]],
(1/22)*(27-7*Sqrt[5])];
In[13]:=3D I*Sqrt[14/11-(2*Sqrt[5])/11]*(e2-e1)//N//Chop
Out[13]=3D 1.713309773856624`
Check:
In[14]:=3D NIntegrate[1/Sqrt[z^4+z^3+z^2-z+1],{z,0,Infinity}]
Out[14]=3D 1.7133097738564849`
V.Astanoff
|
