MathGroup Archive 2003

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

Search the Archive

Real sum gives complex result -> Bug in Mathematica?


Hi,

the following problems appears with Mathematica 4,0, 4.1, 4.2:


| In[1]:= Sum[Sin[Pi*k/n]*Sin[Pi*(k-d)/n],{k,d,n}]/.{d->10,n->100}//N
|
| Out[1]= 39.4497 - 25.4353 I
| 
| In[2]:= Sum[Sin[Pi*k/n]*Sin[Pi*(k-d)/n],{k,d+1,n}]/.{d->10,n->100}//N
|
|                             -14
| Out[2]= 47.7141 - 6.11986 10    I
|
| In[3]:= Sum[Sin[Pi*k/n]*Sin[Pi*(k-d)/n],{k,10,100}]/.{d->10,n->100}//N
| 
| Out[3]= 47.7141


Output 2 and 3 are correct, while output 1 is complex although the sum
is over real contributions! (The difference between 1 and 2 is zero, as
the second sine vanishes.) What is the problem?


Thanks, Norbert




  • Prev by Date: Readability confuses mathematica?
  • Next by Date: Making anti-aliased fonts work for 4.1 + KDE?
  • Previous by thread: Re: Readability confuses mathematica?
  • Next by thread: Re: Real sum gives complex result -> Bug in Mathematica?