Bug? ver4
- To: mathgroup at smc.vnet.net
- Subject: [mg104710] Bug? ver4
- From: ynb <wkfkh056 at yahoo.co.jp>
- Date: Sat, 7 Nov 2009 06:50:25 -0500 (EST)
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}}