MathGroup Archive 1999

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

Search the Archive

Re: Re: Mathematica can't win against Tiger Woods


Leszek,

soln1 = Solve[{p == b^2/a, e == Sqrt[a^2 - b^2]/a}, {a, b}];

Since you know that b > 0,

soln = Select[soln1, Simplify[(b /. #) > 0, {p > 0, 0 <= e < 1}] &] // 
      Flatten;
soln // InputForm

{b -> (I*p)/Sqrt[-1 + e^2], a -> -(p/(-1 + e^2))}

Look at the FullForm of the expression for b

FullForm[b /. soln]

Times[Complex[0, 1], Power[Plus[-1, Power[e, 2]], Rational[-1, 2]], p]

Replace the form that you want changed

soln /. Power[x_, Rational[-1, 2]] :> 
      -I*Power[-x, Rational[-1, 2]] // InputForm

{b -> p/Sqrt[1 - e^2], a -> -(p/(-1 + e^2))}

I would rather explain the concept of I to a high school class than 
semi-latus rectum.

Bob Hanlon


  • Prev by Date: Re: simple Simplify[] question
  • Next by Date: please help with plot
  • Previous by thread: Re: Mathematica can't win against Tiger Woods
  • Next by thread: Re: Re: Mathematica can't win against Tiger Woods