       AW: Solve real roots only ?

• To: mathgroup at smc.vnet.net
• Subject: [mg43601] AW: [mg43585] Solve real roots only ?
• From: Matthias.Bode at oppenheim.de
• Date: Tue, 23 Sep 2003 04:01:47 -0400 (EDT)
• Sender: owner-wri-mathgroup at wolfram.com

```Hello Pavel,

the following does work (V. 4.1.1):

Needs["Miscellaneous`RealOnly`"];

f = a - (1 - x)*Sqrt[20*x - 20000*y];
g = (a*(1 - y) -1000*y*(1 - x))/(10 - x);
Solve[{f == 0,g == 0}, {x, y}]

The output is quite lengthy.

Best regards,

Matthias Bode
Sal. Oppenheim jr. & Cie. KGaA
Koenigsberger Strasse 29
D-60487 Frankfurt am Main
GERMANY
Tel.: +49(0)69 71 34 53 80
Mobile: +49(0)172 6 74 95 77
Fax: +49(0)69 71 34 95 380
E-mail: matthias.bode at oppenheim.de
Internet: http://www.oppenheim.de

-----Ursprungliche Nachricht-----
Von: Pavel Pokorny [mailto:Pavel.Pokorny at vscht.cz]
Gesendet: Montag, 22. September 2003 09:14
An: mathgroup at smc.vnet.net
Betreff: [mg43585] Solve real roots only ?

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

```

• Prev by Date: Re: Forcing a Fit through a Data Point (Mathematica 5)
• Next by Date: Re: Share processor time between calculations
• Previous by thread: Re: Counting Twin Primes
• Next by thread: Mathematica commands needed to solve problem in Set Theory!