Author: Not specified Language: text
Description: Not specified Timestamp: 2013-05-13 20:53:30 +0000
View raw paste Reply
  1. a = 1.2; b = 0.8; c = 0.4; d = 0.6; xo = 0.8; yo = 1.1; T = 30;
  2. solution = NDSolve[{x'[t] == d*x[t]*(y[t] - 1),
  3. x[0] == xo, y'[t] == a*y[t]*(1 - x[t]),
  4. y[0] == yo}, {x, y}, {t, 0, T}];
  5. graph2 = Plot[Evaluate[{x[t], y[t]} /. solution], {t, 0, T},
  6.  
  7. PlotRange -> All]
View raw paste Reply