models/Primer/conpar.lua

   1 --%  ft| TRAJECTORY_T1_V0_A1_O1 sn| Convergence~to~a~fixed~point n| #0 d| 0.4 n| #1 d| 1 n| #2 d| 2 n| #3 d| 4 n| #4 d| 3 n| #5 d| 0.01 n| #6 d| 0 n| #7 d| 150 n| #8 d| 150 n| #9 d| p
   2 --@@
   3 name = "Conpar"
   4 description = "See Model refs in user's guide"
   5 type = "C"
   6 parameters = {"a", "m", "b", "s"}
   7 variables = {"p"}
   8
   9 function f(a, m, b, s, p)
  10
  11         p1 = a + m - (b + s) * p
  12
  13         return p1
  14 end
  15
  16 function Jf(a, m, b, s, p)
  17
  18 return - b - s
  19
  20 end