Commit a0e271f1 authored by SOLIMAN Sylvain's avatar SOLIMAN Sylvain
Browse files

only support for conservation laws

parent d3f3287f
......@@ -107,7 +107,8 @@ export_lemon_stream(Id, Stream) :-
Conserv,
(
invariants:base_mol(List),
atomic_list_concat(List, ',', Conserv)
maplist(no_coeff, List, LList),
atomic_list_concat(LList, ',', Conserv)
),
ConservList
),
......@@ -158,6 +159,15 @@ sign('+', 1).
sign('-', -1).
%! no_coeff(+Coeff, -NoCoeff) is det.
%
% from a species with or without stoichiometry Coeff, remove the optional
% coefficient to get the species without stoichiometry NoCoeff
no_coeff(_*V, V) :-
!.
no_coeff(X, X).
%! normalize_reaction(+Item, -NormalizedStoichiometry, -Negated) is det.
%
% compute a sorted stoichiometry list for the reaction Item as
......
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