Commit de8aab01 authored by HEMERY Mathieu's avatar HEMERY Mathieu
Browse files

Rewrite print_constraints_parameter

parent 643a9a8b
......@@ -569,7 +569,7 @@ print_constraints_parameters(List_constraints, Stream) :-
print_constraints_parameters_sr(Constr_List, Stream),
format(Stream, ").~n", []).
print_constraints_parameters_sr([N], _Stream) :-
print_constraints_parameters_sr([N], Stream) :-
format(Stream, "lower_level~d = 0", [N]),!.
print_constraints_parameters_sr([N|Tail], Stream) :-
......@@ -578,28 +578,6 @@ print_constraints_parameters_sr([N|Tail], Stream) :-
print_constraints_parameters(Constraints_list, Current_counter, Stream) :-
length(Constraints_list, Total_count),
nth1(Current_counter, Constraints_list, This_reaction_constraints),
(
This_reaction_constraints \== '0'
->
(
write(Stream, 'parameter(lower_level'),
write(Stream, Current_counter),
write(Stream, ' = 0).\n')
)
;
!
),
Current_counter < Total_count
->
(
Next_counter is Current_counter + 1,
print_constraints_parameters(Constraints_list, Next_counter, Stream)
)
;
!.
print_static_alpha(Number_of_alpha,Reactions_data, Current_count, Stream) :-
write(Stream, ' alpha'),
......
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