Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2011

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

Search the Archive

Re: Only real solutions for a=a^0.7*b

  • To: mathgroup at smc.vnet.net
  • Subject: [mg119729] Re: Only real solutions for a=a^0.7*b
  • From: Bob Hanlon <hanlonr at cox.net>
  • Date: Sun, 19 Jun 2011 07:24:59 -0400 (EDT)
  • Reply-to: hanlonr at cox.net

eq = a == a^0.7*b;

DeleteCases[
 Select[Solve[eq, a], FreeQ[#, Complex] &],
 _?((a /. #) == 0 &)]

{{a -> 1.*b^(10/3)}}

DeleteCases[
 Select[Solve[Rationalize[eq], a], FreeQ[#, Complex] &],
 _?((a /. #) == 0 &)]

{{a -> b^(10/3)}}


Bob Hanlon

---- "niels.gierse at gmail.com" <niels.gierse at googlemail.com> wrote: 

=============
Hi all!

Is there a way to make Mathematica only report the real solution for

eq = a == a^0.7*b

Solve[eq, a]

reports:
{{a -> 0.}, {a -> (-0.5 - 0.866025 I) b^(
    10/3)}, {a -> (-0.5 + 0.866025 I) b^(10/3)}, {a -> 1. b^(10/3)}}

The solution I am after is the last one. Is there a way to have solve
only report that one? As the exponent is changing from case to case
selecting one like [[5]] does not help. Playing around with Refine[],
Assuming[] etc. to impose a>0 did not help.

Does someone have a hint for me how to do this? I am using Mathematica
7.0.0 (Windows, 64 bit)

Cheers,

Niels



  • Prev by Date: Re: Only real solutions for a=a^0.7*b
  • Next by Date: Re: SingularValueDecomposition
  • Previous by thread: Re: Only real solutions for a=a^0.7*b
  • Next by thread: Re: Only real solutions for a=a^0.7*b