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                 teoria (object).
  12                 entorno (hash).
  13
  14                 print "Llena entorno".
  15                 entorno{"sensor1"} = 10.5.
  16                 entorno{"sensor2"} = 1.5.
  17
  18                 print "Crea Sistema autónomo".
  19                 sa = new SistemaAutonomo.
  20
  21                 print "Crea Teorías".
  22                 teorias = 3 new Teorias.
  23                 teorias{0} init named "t1" with-action 1.
  24                 teorias{1} init named "t2" with-action 2.
  25                 teorias{2} init named "t3" with-action 3.
  26
  27                 print "Carga datos a las teorías".
  28                 (teorias{0}) set-dato-inicial name "sensor1" value 10.5.
  29                 (teorias{0}) set-dato-inicial name "sensor2" value 0.5.
  30                 (teorias{1}) set-dato-inicial name "sensor1" value 0.5.
  31                 (teorias{1}) set-dato-inicial name "sensor2" value 10.5.
  32                 (teorias{2}) set-dato-inicial name "sensor1" value 5.5.
  33                 (teorias{2}) set-dato-inicial name "sensor2" value 5.5.
  34
  35                 print "Agrega teorías al sistema autónomo".
  36                 sa add teoria (teorias{0}).
  37                 sa add teoria (teorias{1}).
  38                 sa add teoria (teorias{2}).
  39                 print "Actualiza entorno".
  40                 sa update entorno entorno.
  41                 print "Calcula el plan".
  42                 sa plan.
  43                 print "Obtiene próxima teoría".
  44                 teoria = sa get-next-theory.
  45                 print "Obtiene datos de la teoría teoría".
  46                 print(teoria get-nombre).
  47                 print(teoria get-accion).
  48                 print "Valida teoría".
  49                 if (sa validate theory teoria): {
  50                         print "valida".
  51                 }
  52
  53                 free teorias{0}.
  54                 free teorias{1}.
  55                 free teorias{2}.
  56                 free sa.
  57
  58 }
  59