models/Primer/conlyapb.lua

   1 --%  ft| TRAJECTORY_T0_V0_A1_O1 sn| Slow~convergence~to~a~fixed~point n| #0 d| 0.01 n| #1 d| 0.02 n| #2 d| -7e+4 n| #3 d| 0.05 n| #4 d| 0 n| #5 d| 75000 n| #6 d| 75000 n| #7 d| x n| #8 d| y
   2 --@@
   3 name = "Conlyapb"
   4 description = " See Model refs in user's guide)"
   5 type = "C"
   6 parameters = {"k"}
   7 variables = {"x", "y"}
   8
   9 function f (k, x, y)
  10
  11         x1 =  y + k * x * (x^2 + y^2)
  12
  13         y1 = - x
  14
  15         return x1, y1
  16
  17 end
  18
  19 function Jf(k, x, y)
  20
  21         return
  22
  23         3 * k * x^2     + k * y^2,       2 * k * x * y
  24         - 1,                             0
  25
  26 end