Re: Bug? ver4
- To: mathgroup at smc.vnet.net
- Subject: [mg104800] Re: Bug? ver4
- From: dh <dh at metrohm.com>
- Date: Tue, 10 Nov 2009 06:00:33 -0500 (EST)
- References: <hd3mss$9rv$1@smc.vnet.net>
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}}
>