You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

53 lines
1.1 KiB

8 years ago
  1. // polling example [IT90]
  2. // gxn/dxp 26/01/00
  3. ctmc
  4. const int N = 2;
  5. const double mu = 1;
  6. const double gamma = 200;
  7. const double lambda = mu/N;
  8. module server
  9. s : [1..2]; // station
  10. a : [0..1]; // action: 0=polling, 1=serving
  11. [loop1a] (s=1)&(a=0) -> gamma : (s'=s+1);
  12. [loop1b] (s=1)&(a=0) -> gamma : (a'=1);
  13. [serve1] (s=1)&(a=1) -> mu : (s'=s+1)&(a'=0);
  14. [loop2a] (s=2)&(a=0) -> gamma : (s'=1);
  15. [loop2b] (s=2)&(a=0) -> gamma : (a'=1);
  16. [serve2] (s=2)&(a=1) -> mu : (s'=1)&(a'=0);
  17. endmodule
  18. module station1
  19. s1 : [0..1]; // state of station: 0=empty, 1=full
  20. [loop1a] (s1=0) -> 1 : (s1'=0);
  21. [] (s1=0) -> lambda : (s1'=1);
  22. [loop1b] (s1=1) -> 1 : (s1'=1);
  23. [serve1] (s1=1) -> 1 : (s1'=0);
  24. endmodule
  25. // construct further stations through renaming
  26. module station2 = station1 [ s1=s2, loop1a=loop2a, loop1b=loop2b, serve1=serve2 ] endmodule
  27. // (cumulative) rewards
  28. // expected time station 1 is waiting to be served
  29. rewards "waiting"
  30. s1=1 & !(s=1 & a=1) : 1;
  31. endrewards
  32. // expected number of times station 1 is served
  33. rewards "served"
  34. [serve1] true : 1;
  35. endrewards
  36. label "target" = s=1&a=1;