SHARE
TWEET

Untitled

a guest Jun 24th, 2019 59 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. s=NDSolve[{x'[t] == x[t]*(1 - x[t]) - 9*x[t]*y[t]/(10*x[t] + 1),
  2.             y'[t] == 0.3*y[t]*(1 - 10*y[t]/(10*x[t] + 1)), x[0] == 0.15, y[0] == 0.25},
  3.             {x, y}, {t, 0, 150}]
  4.  
  5.  Plot[Evaluate[x[t] /. s], {t, 0, 150}, PlotRange -> All]
  6.  Plot[Evaluate[y[t] /. s], {t, 0, 150}, PlotRange -> All]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top