RE: HELP : Mathematica v4 producing erroneous results ! Mathematica3 worked fine...

• To: mathgroup at smc.vnet.net
• Subject: [mg18989] RE: [mg18954] HELP : Mathematica v4 producing erroneous results ! Mathematica3 worked fine...
• From: "Ersek, Ted R" <ErsekTR at navair.navy.mil>
• Date: Tue, 3 Aug 1999 13:44:35 -0400
• Sender: owner-wri-mathgroup at wolfram.com

```slinger at signal.dera.gov.uk  wrote:
-------------------------------------

We recently upgraded to Mathematica v4 on NT and Solaris from Mathematica
v3.
To my horror, I discovered that notebooks which produced good results under
3 produced
errroneous ones under v4.

I have traced the fault, and the code below is distilled down to illustrate
the
problem.  Basically, I'm simply assigning complex numbers to an array using
a
Do[] (but note the Fourier[], which seems to be necessary to cause the bug,
for
some reason).  Unfortunately, the imaginary parts of the result are not
correct
- their values should be as in the array "ideal" but are simply equal to the
real parts !!

-----------------------------

I deleted the original code and provide simpler code that causes the
problem.  I agree that it only comes out wrong when using Fourier.  I can't
imagine what Fourier would have to do with it!

In[1]:=
\$Version

Out[1]=
4.0 for Microsoft Windows (April 21,1999)

In[2]:=
ideal={0.337385 + 0.6624I, 0.563615 - 0.750732I,
0.869075 + 0.200504I, 0.516709 + 0.938178I};
output=Fourier[ideal]

Out[3]=
{1.14339 + 0.525175 I, 0.57861 + 0.254401 I,
0.063068 + 0.337729 I, -1.1103 + 0.207495 I}

In[4]:=
output[[1]]=ideal[[1]];
output

Out[5]=
{0.337385 + 0.337385 I, 0.57861 + 0.254401 I,
0.063068 + 0.337729 I, -1.1103 + 0.207495 I}

------------------------
Part[output,1] above should be (0.337385 + 0.6624 I).

How Bizarre!
Ted Ersek

```

• Prev by Date: Re: HypergeometricPFQ Question