Solving a set of equations
- To: mathgroup at yoda.physics.unc.edu
- Subject: Solving a set of equations
- From: minpstat at durras.anu.edu.au (Peter A. Minogue)
- Date: Wed, 24 Nov 93 17:32:31 EST
Is it possible to symbolically solve the following four equations
using mathematica?
(* create equation *)
part1= p1[t+1];
part2= b11/(1+ b11+ b12)*p1[t];
part3= b21/(1+ b21+b22)*p2[t];
part4= p2[t+1];
part5= b12/(1+ b11+ b12)*p1[t];
part6= b22/(1+ b21+b22)*p2[t];
form1 = (part1 == part2+part3);
form2 = (part4 == part5+part6);
b11=Exp[Beta11*t];
b12=Exp[Beta12*t];
b21=Exp[Beta21*t];
b22=Exp[Beta22*t];
(* set age value to solve for *)
age=35;
t0=age;t1=age+1;
t=t0;eq1=form1;t=t1;eq2=form1;
t=t0;eq3=form2;t=t1;eq4=form2;
Solve[{eq1,eq2,eq3,eq4},{Beta11,Beta12,Beta21,Beta22}]; <-- can it be done
Can the equations be re-worked to solve it?
Thanks.
-----------------------------------------------------------------------
Peter Minogue minpstat at fac.anu.edu.au
Computer Support
Department of Statistics Tel: 61 6 249 3899
Australian National University, Canberra Fax: 61 6 249 0087
-----------------------------------------------------------------------