The group you are posting to is a Usenet group. Messages posted to this group will make your email address visible to anyone on the Internet. Your reply message has not been sent.
Your post was successful
 |
Newsgroups: comp.soft-sys.math.mathematica
From: ynb <wkfkh...@yahoo.co.jp>Date: Sat, 7 Nov 2009 11:49:48 +0000 (UTC)
Local: Sat 7 Nov 2009 11:49
Subject: Bug? ver4
In[26]:= Table[N[{Cos[Pi/k], FunctionExpand[ Cos[Pi/k]]}], {k, 17, 21}] Out[26]=
{{0.9829730996839018, 0.9829730996839018},
{0.984807753012208, 0.9848077530122081 + 0.*I},
{0.9863613034027223, 1.126478970802505 + 0.375464157076925* I},
<------Bug????
{0.9876883405951378, 0.9876883405951377},
{0.9888308262251285, 0.9888308262251286 + 9.614813431917819*^-17*I}}
You must Sign in before you can post messages. You do not have the permission required to post.
|
|
Newsgroups: comp.soft-sys.math.mathematica
From: ynb <wkfkh...@yahoo.co.jp>Date: Tue, 10 Nov 2009 11:00:09 +0000 (UTC)
Local: Tues 10 Nov 2009 11:00
Subject: Re: Bug? ver4
On 11=E6=9C=887=E6=97=A5, =E5=8D=88=E5=BE=8C8:49, ynb <wkfkh ...@yahoo.co.jp> wrote: > In[26]:= > Table[N[{Cos[Pi/k], FunctionExpand[ > =C2 =C2 =C2 Cos[Pi/k]]}], {k, 17, 21}] > Out[26]=
> {{0.9829730996839018, 0.9829730996839018},
> =C2 {0.984807753012208, 0.9848077530122081 + =C2 0.*I},
> {0.9863613034027223, 1.126478970802505 + 0.375464157076925* I},
> <------Bug????
> {0.9876883405951378, =C2 0.9876883405951377},
> {0.9888308262251285, 0.9888308262251286 + 9.614813431917819*^-17*I}}
Hi, seems to be fixed in version 7: Table[N[{Cos[Pi/k], FunctionExpand[Cos[Pi/k]]}], {k, 17, 21}] {{0.982973, 0.982973}, {0.984808, 0.984808}, {0.986361,
0.986361}, {0.987688, 0.987688}, {0.988831, 0.988831}}
Daniel
<--- thanks
You must Sign in before you can post messages. You do not have the permission required to post.
|
|
Newsgroups: comp.soft-sys.math.mathematica
From: dh <d...@metrohm.com>Date: Tue, 10 Nov 2009 11:00:46 +0000 (UTC)
Local: Tues 10 Nov 2009 11:00
Subject: Re: Bug? ver4
Hi,
seems to be fixed in version 7:
Table[N[{Cos[Pi/k], FunctionExpand[Cos[Pi/k]]}], {k, 17, 21}]
{{0.982973, 0.982973}, {0.984808, 0.984808}, {0.986361,
0.986361}, {0.987688, 0.987688}, {0.988831, 0.988831}}
Daniel
ynb wrote: > In[26]:= > Table[N[{Cos[Pi/k], FunctionExpand[ > Cos[Pi/k]]}], {k, 17, 21}] > Out[26]=
> {{0.9829730996839018, 0.9829730996839018},
> {0.984807753012208, 0.9848077530122081 + 0.*I},
> {0.9863613034027223, 1.126478970802505 + 0.375464157076925* I},
> <------Bug????
> {0.9876883405951378, 0.9876883405951377},
> {0.9888308262251285, 0.9888308262251286 + 9.614813431917819*^-17*I}}
You must Sign in before you can post messages. You do not have the permission required to post.
|
|
|
|
