MathGroup Archive 2008

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

Search the Archive

Re: unwanted Complex result


SelectPositive[soln_] := Select[soln, Apply[And,
   Map[Abs[Part[#, 2]] == Part[#, 2] &, #]] & ]

soln = Solve[(Sqrt[speed^2 - windx^2] + windy)/a speed^2 +
 b speed + c == distance/height, speed];

numericsoln = soln/.{windx->1,windy->1,a->1,b->1,c->1,distance-
>20,height->5};

SelectPositive[ N[numericsoln] ]

{{speed->1.11901}}



  • Prev by Date: Re: genetic algorithms
  • Next by Date: Re: How to Integrate[Abs[x]]?
  • Previous by thread: Re: unwanted Complex result
  • Next by thread: Re: Re: Mathematica and F# [OT]