Commit e9dce86a authored by MARTINEZ Thierry 's avatar MARTINEZ Thierry

Reversible kinetics

parent 716fd646
......@@ -29,5 +29,12 @@ test(
command((a -> b)),
command((a => b)).
test(
'reversible reaction',
[Reactions == [1 for a => b, 2 for b => a]]
) :-
clear_model,
add_reaction((1, 2) for a <=> b),
all_items([kind: reaction], Reactions).
:- end_tests(reaction_editor).
......@@ -122,13 +122,13 @@ patch_solution_effective(A - B, A - B).
:- grammar(kinetics).
kinetics(ArithmeticExpression) :-
arithmetic_expression(ArithmeticExpression).
kinetics((ArithmeticExpression0, ArithmeticExpression1)) :-
arithmetic_expression(ArithmeticExpression0),
arithmetic_expression(ArithmeticExpression1).
kinetics(ArithmeticExpression) :-
arithmetic_expression(ArithmeticExpression).
:- grammar(condition).
......@@ -173,7 +173,7 @@ condition(not Condition) :-
arithmetic_expression([A]) :-
name(A).
object(A).
arithmetic_expression(+ ArithmeticExpression0) :-
arithmetic_expression(ArithmeticExpression0).
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment