Advertisement
fedexist

Untitled

Feb 2nd, 2016
88
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Bash 0.48 KB | None | 0 0
  1. bool P;
  2.  
  3. proctype autome1(){
  4.  
  5.     if
  6.         ::P && true -> P=false;
  7.         ::P && true -> skip;
  8.         ::!P -> skip;
  9.     fi;
  10. }
  11.  
  12. proctype automa2(){
  13.  
  14.     bool Q = true;
  15.    
  16.     if
  17.         ::P && Q->
  18.             if
  19.                 ::true -> P=false;
  20.                 ::true -> Q=false;
  21.                 ::else -> skip;
  22.             fi;
  23.         ::!P && Q ->
  24.             if
  25.                 ::true -> P=!P; Q=!Q;
  26.                 ::else -> skip;
  27.             fi;
  28.         ::P && !Q -> Q=!Q;
  29.     fi;
  30. }
  31.  
  32. init{
  33.  
  34. atomic{
  35.    
  36.     if
  37.         ::true -> P=false;
  38.     else -> P=true;
  39.  
  40.     run automa1();
  41.     run automa2();
  42.  
  43. }
  44.  
  45.  
  46. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement