ReactionSystems/testing/examples/digraph.system

Environment: [x = {a}.y, y =({a}.x + {b}.y) ]
Initial Entities: {a, b}
Context: [({a,b}.{a}.{a,c}.x + {a,b}.{a}.{a}.nill)]
Reactions: ([{a,b}, {c}, {b}])

Digraph > Dot
        | Entities
	| Entities
	| Entities < {a} ? "blue" ! "white"
	| ! "black"
	> Print,

Digraph > GraphML
	| Entities
	| Entities
	> Print,

Digraph > node { if (entities == {a, b})
                 then { return 0; }
                 else { return 2; } }
        > Dot
        | Entities
        | Entities
        | Entities < {a} ? "blue" ! "white"
        | ! "black"
        > Print,

Digraph > node { return entities == {b}; }
        > Dot
        | Entities
        | Entities
        | Entities < {a} ? "blue" ! "white"
        | ! "black"
        > Print,