Re: Problem with simultaneous equations with several variables - population genetics

*To*: mathgroup at smc.vnet.net*Subject*: [mg9049] Re: [mg8686] Problem with simultaneous equations with several variables - population genetics*From*: Paul Abbott <paul at physics.uwa.edu.au>*Date*: Thu, 9 Oct 1997 01:42:28 -0400*Organization*: University of Western Australia*Sender*: owner-wri-mathgroup at wolfram.com

Richard Anderson wrote: > The solution, courtesy of Daniel Lichtblau at Wolfram, involves getting > rid of denominators to prevent Solve from generating extra variables to > handle them. We subtract one side from the other, use Together to get > numerator / denominator, and set it to zero. This code does this: > > eqs={pfs==pf,pms==pm}; > polys=Map[#[[1]]-#[[2]]&,eqs]; Using Subtract is a bit neater: polys = Apply[Subtract,eqs,1] Cheers, Paul ____________________________________________________________________ Paul Abbott Phone: +61-8-9380-2734 Department of Physics Fax: +61-8-9380-1014 The University of Western Australia Nedlands WA 6907 mailto:paul at physics.uwa.edu.au AUSTRALIA http://www.pd.uwa.edu.au/~paul God IS a weakly left-handed dice player ____________________________________________________________________