Solve real roots only ?
- To: mathgroup at smc.vnet.net
- Subject: [mg43585] Solve real roots only ?
- From: Pavel Pokorny <Pavel.Pokorny at vscht.cz>
- Date: Mon, 22 Sep 2003 03:14:10 -0400 (EDT)
- Organization: Czech Technical University
- Sender: owner-wri-mathgroup at wolfram.com
Dear Mathematica friends,
how can I tell Solve to find real roots only?
I tried RealOnly but it makes this little program to crash!
Needs["Miscellaneous`RealOnly`"];
f = a - (1-x) Sqrt[20 x - 20000 y];
g = (a(1-y)- 1000 y (1-x))/(10-x);
s = Solve [ f==0 && g==0, {x,y}];
xs = x /. s;
xx = Series [xs, {a,0,2}];
Is it my fault?
Thanks
--
Pavel Pokorny
Math Dept, Prague Institute of Chemical Technology
http://www.vscht.cz/mat/Pavel.Pokorny