Groups > comp.soft-sys.math.mathematica > #1932

Re: Solve / Reduce isolating results.

Path	csiph.com!x330-a1.tempe.blueboxinc.net!aioe.org!feeder.news-service.com!border-2.ams.xsnews.nl!feed.xsnews.nl!border-1.ams.xsnews.nl!206.55.64.80.MISMATCH!newspump.sol.net!posts.news.twtelecom.net!nnrp2.twtelecom.net!not-for-mail
From	Bob Hanlon <hanlonr@cox.net>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Solve / Reduce isolating results.
Date	Sat, 30 Apr 2011 09:53:36 +0000 (UTC)
Organization	Steven M. Christensen and Associates, Inc and MathTensor, Inc.
Sender	steve@smc.vnet.net
Approved	Steven M. Christensen <steve@smc.vnet.net>, Moderator
Message-ID	<ipgm70$8si$1@smc.vnet.net> (permalink)
Lines	50
NNTP-Posting-Date	30 Apr 2011 08:54:21 GMT
NNTP-Posting-Host	b9b93cc9.news.twtelecom.net
X-Trace	DXC=03^8<WTUDVAQ95GXZ`^XPAC_A=>8kQj6M;[h;PUXBgbDVonPDX8c=AMEFiONJ7[GoFR_1ii3EJ]AH
X-Complaints-To	abuse@twtelecom.net
Xref	x330-a1.tempe.blueboxinc.net comp.soft-sys.math.mathematica:1932

Show key headers only | View raw

eqns = {(1/6)*((SQ1*196)*2)^3 - (1/
         6)*((((2.75 + XX)*((3.75 + XX)*21^2))*100)*2)^3 == 
     1.2902698935932682*^18, (1/6)*((SQ1*100)*2)^3 - (1/
         6)*((((2.75 + XX)*((3.75 + XX)*21^2))*36)*2)^3 == 
     1.883856772422697*^17} // Rationalize[#, 0] &;

Solve[eqns, {SQ1, XX}, Reals]

{{SQ1 -> 5292, XX -> -(27/4)}, {SQ1 -> 5292, XX -> 1/4}}

Select[Solve[eqns, {SQ1, XX}], Element[#[[All, -1]], Reals] &]

{{SQ1 -> 5292, XX -> -(27/4)}, {SQ1 -> 5292, XX -> 1/4}}


Bob Hanlon

---- Lea Rebanks <lrebanks@netvigator.com> wrote: 

=============
Dear All,

Given the enclosed code - see below.
Please could someone help me setup the code to Solve / Reduce for these 2
missing values only required 

  {SQ1 -> 5292, 
    XX -> 0.25}

(I don't want multiple results.) I want positive numbers & NOT Complex..


Many thanks for your help & attention, really appreciated. Please see below.

Best regards,
Lea...
...................................................................


Clear[SQ1]
Clear[XX]
Solve[{(1/6)*((SQ1*196)*2)^3 - 
         (1/6)*((((2.75 + XX)*((3.75 + XX)*21^2))*100)*2)^3 == 
       1.2902698935932682*^18, (1/6)*((SQ1*100)*2)^3 - 
         (1/6)*((((2.75 + XX)*((3.75 + XX)*21^2))*36)*2)^3 == 
       1.883856772422697*^17}, {SQ1, XX}]

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: Solve / Reduce isolating results. Bob Hanlon <hanlonr@cox.net> - 2011-04-30 09:53 +0000

csiph-web