Re: Bug? ver4
- To: mathgroup at smc.vnet.net
- Subject: [mg104797] Re: Bug? ver4
- From: ynb <wkfkh056 at yahoo.co.jp>
- Date: Tue, 10 Nov 2009 05:59:58 -0500 (EST)
- References: <hd3mss$9rv$1@smc.vnet.net>
On 11=E6=9C=887=E6=97=A5, =E5=8D=88=E5=BE=8C8:49, ynb <wkfkh... at 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