Re: Problems with Solve
- To: mathgroup at smc.vnet.net
- Subject: [mg132464] Re: Problems with Solve
- From: totarefugium <mtaktikos at t-online.de>
- Date: Sun, 23 Mar 2014 04:59:18 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-outx@smc.vnet.net
- Delivered-to: mathgroup-newsendx@smc.vnet.net
- References: <lgj2cs$lcg$1@smc.vnet.net>
Hello,
In[1]:= N[Solve[z + 5 (z^2 - 1) + 1 z^3 == 1, z]]
Out[1]= {{z -> 0.925423 + 0. I}, {z -> -4.47735 + 2.22045*10^-16 I}, {z
-> -1.44807 - 4.44089*10^-16 I}}
In[2]:=[N[Solve[z + 5 (z^2 - 1) + 1 z^3 == 1, z] ] /.
Complex[re_, im_ /; Abs[im] < 0.001] :> re
Out[2] = {{z -> 0.925423}, {z -> -4.47735}, {z -> -1.44807}}
HTH,
Michael Taktikos
Hamburg/Germany