Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1998

[Date Index] [Thread Index] [Author Index]

Search the Archive

Getting Delayed rules from NSolve

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14220] Getting Delayed rules from NSolve
  • From: dennis.benjamin at molecular-sciences.oxford.ac.uk (Dennis Benjamin)
  • Date: Wed, 7 Oct 1998 03:00:49 -0400
  • Organization: Oxford University, England
  • Sender: owner-wri-mathgroup at wolfram.com

Hi All:

	I am using NSolve to get numerical solutions from a setof simultaneous
equations. The problem I am facing is extracting the physically
reasonable solution from the supplied list of rules. For Example,

In[199]:=
Chop[NSolve[ Elim, {RP1,RP2}] /. P2t ->5 10^-6 ]

Out[199]=
{{RP2 -> -7.26519017625297269`*^-7,RP1 -> 2.36086513207038839`*^-6}, 
 {RP2 -> 0.0000102421050739988284`,RP1 -> 5.26971403312072794`*^-7}, 
 {RP2 -> 3.73302832515359561`*^-7, RP1 -> 2.23274575728650503`*^-7}}

Only the third set is reasonable, given that RP1 and RP2 > 0 and RP1
+RP2 < 1 10^-6. 

I would like to use Replace with a /; condition to select a  particular
value. However, I can only use /; with delayed Rules (:> instead of
->). Any ideas how to do this? Alternatively, a different approach to
getting the pair of numbers

3.73302832515359561`*^-7
2.23274575728650503`*^-7

from the above list of rules.

Thanks!

Dennis Benjami


  • Prev by Date: How to control the default plot size?
  • Next by Date: x == x^1.2/(2*x^3+y^0.7+4*z^2.5)
  • Previous by thread: Re: How to control the default plot size?
  • Next by thread: Re: Getting Delayed rules from NSolve