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
____________________________________________________________________