Re: unwanted Complex result
- To: mathgroup at smc.vnet.net
- Subject: [mg91638] Re: unwanted Complex result
- From: Steven Siew <stevensiew2 at gmail.com>
- Date: Sat, 30 Aug 2008 01:52:05 -0400 (EDT)
- References: <g95k8a$543$1@smc.vnet.net>
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}}