models/tent.lua

   1 --%  ft| TRAJECTORY_T1_V0_A1_O0 sn| Chaotic~trajectory n| #0 d| 0.3 n| #1 d| 0.2 n| #2 d| 1 n| #3 d| 0 n| #4 d| 100 n| #5 d| 100 n| #6 d| x
   2 --%  ft| BIFURCATION_1 sn| Chaotic~window n| #0 d| .1 n| #1 d| 1 n| #2 d| c1 n| #3 d| -0.1 n| #4 d| 1.1 n| #5 d| -0.1 n| #6 d| 1.1 n| #7 d| 500 n| #8 d| 200 n| #9 d| x
   3 --@@
   4 name = "Tent"
   5 description = "See Model refs in user's guide"
   6 type = "D"
   7 parameters = {"c1", "c2"}
   8 variables = {"x"}
   9
  10 function f(c1, c2, x)
  11
  12         if (x <= c1) then
  13                 y = (c2 / c1) * x
  14         end
  15
  16         if (x > c1) then
  17                 y = (c2 / (1 - c1)) * (1 - x)
  18         end
  19
  20         return y
  21
  22 end