trunk/src/SistemaAutonomoDemo.tz

   1 @use Control.
   2 @use SistemaAutonomo.
   3
   4 Controller SistemaAutonomoController.
   5
   6 Control : SistemaAutonomoController {
   7
   8         + to init:
   9                 teorias (list).
  10                 sa (object).
  11
  12                 sa = new SistemaAutonomo.
  13                 teorias = 3 new Teorias.
  14                 teorias{0} init named "t1" with-action 1.
  15                 teorias{1} init named "t2" with-action 2.
  16                 teorias{2} init named "t3" with-action 3.
  17
  18                 (teorias{0}) add-dato-inicial name "sensor1" value 10.5.
  19                 (teorias{0}) add-dato-inicial name "sensor2" value 0.5.
  20                 (teorias{1}) add-dato-inicial name "sensor1" value 0.5.
  21                 (teorias{1}) add-dato-inicial name "sensor2" value 10.5.
  22                 (teorias{2}) add-dato-inicial name "sensor1" value 5.5.
  23                 (teorias{2}) add-dato-inicial name "sensor2" value 5.5.
  24
  25                 sa add teoria (teorias{0}).
  26                 sa add teoria (teorias{1}).
  27                 sa add teoria (teorias{2}).
  28
  29                 free teorias{0}.
  30                 free teorias{1}.
  31                 free teorias{2}.
  32                 free sa.
  33
  34 }
  35