Re: List of solution
- To: mathgroup at smc.vnet.net
- Subject: [mg46990] Re: List of solution
- From: astanoff at yahoo.fr (astanoff)
- Date: Fri, 19 Mar 2004 01:35:40 -0500 (EST)
- References: <c3bqms$f1o$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Florian Jaccard wrote:
> Hello !
> C'est très simple :
> In[4]:=
> liste = {{x -> 0, y -> 0}, {x -> 1, y -> 0},
> {x -> I, y -> 1 + 2*I}}
> Out[4]=
> {{x -> 0, y -> 0}, {x -> 1, y -> 0},
> {x -> I, y -> 1 + 2*I}}
> In[5]:=
> DeleteCases[liste, {x -> xx_, y -> yy_} /;
> Im[xx] != 0 || Im[yy] != 0]
> Out[5]=
> {{x -> 0, y -> 0}, {x -> 1, y -> 0}}
The case with 3 real roots Solve[x^3 - 10x + 1 == 0] doesn't seem to work
fine...
--
0% de pub! Que du bonheur et des vrais adhérents !
Vous aussi inscrivez-vous sans plus tarder!!
Message posté à partir de http://www.gyptis.org, BBS actif depuis 1995.