Re: cubic equation solver
- To: mathgroup at smc.vnet.net
- Subject: [mg130252] Re: cubic equation solver
- From: Costa Bravo <q13a27tt at aol.com>
- Date: Fri, 29 Mar 2013 05:56:11 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <kj0tko$iiv$1@smc.vnet.net>
Elim Qiu wrote: > > But Mathematica says: > > Solve[x^3 + (Sqrt[6] + 2 Sqrt[3] + 2 Sqrt[2] - 9) x + 2 Sqrt[3] - > Sqrt[2] - 2 == 0, x] > > {{x -> (1/ > 2 (18 + 9 Sqrt[2] - 18 Sqrt[3] + > I Sqrt[3 (4662 - 1252 Sqrt[2] - 1296 Sqrt[3] - > ........ Solve[x^3 + (Sqrt[6] + 2 Sqrt[3] + 2 Sqrt[2] - 9) x + 2 Sqrt[3] - Sqrt[2] - 2 == 0, x]//FullSimplify Out(2)= {{x -> -Sqrt[2] + Sqrt[3]}, {x -> 2 - Sqrt[3]}, {x -> -2 + Sqrt[2]}} -- Costa