Pamef/ds/trains0.xml

<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE nta PUBLIC '-//Uppaal Team//DTD Flat System 1.1//EN' 'http://www.it.uu.se/research/group/darts/uppaal/flat-1_2.dtd'>
<nta>
	<declaration>/*
OR - 2019
 */

const int NAB = 3;         // # trains
const int NBA = 3;
const int N = 6;

typedef int[0,NAB-1] id_tAB;
typedef int[0,NBA-1] id_tBA;

int ab=0, ba=0;

chan        accesAB[NAB], accesBA[NBA], libAB[NAB], libBA[NBA];

</declaration>
	<template>
		<name>TrainBA</name>
		<parameter>const id_tBA id</parameter>
		<declaration>clock x;</declaration>
		<location id="id0" x="-51" y="0">
			<name x="-51" y="17">A</name>
		</location>
		<location id="id1" x="34" y="0">
			<name x="25" y="17">BA</name>
			<label kind="invariant" x="51" y="-8">x&lt;=10</label>
		</location>
		<location id="id2" x="34" y="-127">
			<name x="34" y="-161">B</name>
		</location>
		<location id="id3" x="-51" y="-127">
			<name x="-59" y="-161">Safe</name>
		</location>
		<init ref="id3"/>
		<transition>
			<source ref="id0"/>
			<target ref="id3"/>
			<label kind="synchronisation" x="-51" y="-68">libBA[id] !</label>
		</transition>
		<transition>
			<source ref="id1"/>
			<target ref="id0"/>
		</transition>
		<transition>
			<source ref="id2"/>
			<target ref="id1"/>
			<label kind="synchronisation" x="42" y="-85">accesBA[id] ?</label>
			<label kind="assignment" x="42" y="-68">x:=0</label>
		</transition>
		<transition>
			<source ref="id3"/>
			<target ref="id2"/>
		</transition>
	</template>
	<template>
		<name x="40" y="16">TrainAB</name>
		<parameter>const id_tAB id</parameter>
		<declaration>clock x;</declaration>
		<location id="id4" x="127" y="93">
			<name x="116" y="65">Safe</name>
		</location>
		<location id="id5" x="212" y="93">
			<name x="211" y="65">A</name>
		</location>
		<location id="id6" x="127" y="229">
			<name x="124" y="243">B</name>
		</location>
		<location id="id7" x="212" y="229">
			<name x="202" y="243">AB</name>
			<label kind="invariant" x="228" y="218">x&lt;=10</label>
		</location>
		<init ref="id4"/>
		<transition>
			<source ref="id6"/>
			<target ref="id4"/>
			<label kind="synchronisation" x="127" y="144">libAB[id] !</label>
		</transition>
		<transition>
			<source ref="id7"/>
			<target ref="id6"/>
		</transition>
		<transition>
			<source ref="id5"/>
			<target ref="id7"/>
			<label kind="synchronisation" x="212" y="144">accesAB[id] ?</label>
			<label kind="assignment" x="212" y="161">x:=0</label>
		</transition>
		<transition>
			<source ref="id4"/>
			<target ref="id5"/>
		</transition>
	</template>
	<template>
		<name x="40" y="16">CTRL</name>
		<declaration>id_tAB list[N+1];
int[0,N] len;

// Put an element at the end of the queue
void enqueue(id_tAB element)
{
        list[len++] = element;
}

// Remove the front element of the queue
void dequeue()
{
        int i = 0;
        len -= 1;
        while (i &lt; len)
        {
                list[i] = list[i + 1];
                i++;
        }
        list[i] = 0;
}

// Returns the front element of the queue
id_tAB front()
{
   return list[0];
}

// Returns the last element of the queue
id_tAB tail()
{
   return list[len - 1];
}</declaration>
		<location id="id8" x="-102" y="51">
			<name x="-153" y="43">Free</name>
		</location>
		<location id="id9" x="212" y="-68">
			<name x="178" y="-59">AB</name>
			<label kind="comments" x="34" y="-59">At least one on AB</label>
		</location>
		<location id="id10" x="212" y="187">
			<name x="178" y="161">BA</name>
			<label kind="comments" x="34" y="161">At least one on BA</label>
		</location>
		<init ref="id8"/>
		<transition>
			<source ref="id10"/>
			<target ref="id10"/>
			<label kind="select" x="221" y="263">e:id_tBA</label>
			<label kind="synchronisation" x="221" y="280">libBA[e] ?</label>
			<label kind="assignment" x="221" y="297">ba --</label>
			<nail x="280" y="255"/>
			<nail x="212" y="255"/>
		</transition>
		<transition>
			<source ref="id10"/>
			<target ref="id10"/>
			<label kind="select" x="357" y="187">e:id_tBA</label>
			<label kind="synchronisation" x="357" y="204">accesBA[e] !</label>
			<label kind="assignment" x="357" y="221">ba ++</label>
			<nail x="348" y="187"/>
			<nail x="348" y="255"/>
		</transition>
		<transition>
			<source ref="id9"/>
			<target ref="id9"/>
			<label kind="select" x="408" y="-153">e:id_tAB</label>
			<label kind="synchronisation" x="408" y="-136">accesAB[e] !</label>
			<label kind="assignment" x="408" y="-119">ab++</label>
			<label kind="comments" x="408" y="-178">One more train on AB</label>
			<nail x="399" y="-68"/>
			<nail x="399" y="-178"/>
		</transition>
		<transition>
			<source ref="id9"/>
			<target ref="id9"/>
			<label kind="select" x="136" y="-161">e:id_tAB</label>
			<label kind="synchronisation" x="136" y="-144">libAB[e] ?</label>
			<label kind="assignment" x="136" y="-127">ab--</label>
			<label kind="comments" x="59" y="-187">One train leaves AB</label>
			<nail x="289" y="-187"/>
			<nail x="212" y="-187"/>
		</transition>
		<transition>
			<source ref="id10"/>
			<target ref="id8"/>
			<label kind="guard" x="-170" y="136">ba == 0</label>
			<label kind="comments" x="-221" y="161">No train on BA</label>
			<nail x="-102" y="187"/>
		</transition>
		<transition>
			<source ref="id8"/>
			<target ref="id10"/>
			<label kind="select" x="221" y="102">e:id_tBA</label>
			<label kind="synchronisation" x="221" y="119">accesBA[e] !</label>
			<label kind="assignment" x="221" y="136">ba++</label>
			<label kind="comments" x="221" y="76">First train on BA</label>
			<nail x="212" y="85"/>
		</transition>
		<transition>
			<source ref="id9"/>
			<target ref="id8"/>
			<label kind="guard" x="-169" y="-85">ab == 0</label>
			<label kind="comments" x="-221" y="-59">No train on AB</label>
			<nail x="-101" y="-68"/>
		</transition>
		<transition>
			<source ref="id8"/>
			<target ref="id9"/>
			<label kind="select" x="221" y="0">e:id_tAB</label>
			<label kind="synchronisation" x="221" y="17">accesAB[e] !</label>
			<label kind="assignment" x="221" y="34">ab++</label>
			<label kind="comments" x="221" y="-25">First train on AB</label>
			<nail x="212" y="17"/>
		</transition>
	</template>
	<system>system TrainAB, TrainBA, CTRL;
</system>
	<queries>
		<query>
			<formula>E&lt;&gt; TrainBA(1).BA</formula>
			<comment></comment>
		</query>
		<query>
			<formula>E&lt;&gt; TrainBA(2).BA
			</formula>
			<comment>
			</comment>
		</query>
		<query>
			<formula>A[] forall (i : id_tBA) forall (j : id_tAB) TrainBA(i).BA &amp;&amp; TrainAB(j).AB imply i == j
			</formula>
			<comment>
			</comment>
		</query>
		<query>
			<formula>TrainBA(1).B --&gt; TrainBA(1).BA
			</formula>
			<comment>
			</comment>
		</query>
		<query>
			<formula>A&lt;&gt; TrainBA(1).BA
			</formula>
			<comment>
			</comment>
		</query>
		<query>
			<formula>E&lt;&gt; TrainBA(1).BA &amp; TrainBA(2).BA
			</formula>
			<comment>
			</comment>
		</query>
	</queries>
</nta>