Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1993
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 1993

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

Search the Archive

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
-----------------------------------------------------------------------





  • Prev by Date: Autocorrelation
  • Next by Date: Fit problem
  • Previous by thread: Autocorrelation
  • Next by thread: Fit problem