Commit 519fac17 authored by HEMERY Mathieu's avatar HEMERY Mathieu
Browse files

Sort the Fields to endure the same order for different method (rsbk do not use the Fields option)

parent ea133143
......@@ -318,6 +318,7 @@ prepare_numerical_simulation_options(Options) :-
gather_events(TimeEvents, time_event),
append(RegularEvents, TimeEvents, Events),
gather_fields(Events, Fields),
writeln(Fields),
gather_initial_parameter_values(InitialParameterValues),
jacobian(Equations, Jacobian),
Options = [
......@@ -370,20 +371,19 @@ solve :-
add_table('numerical_simulation', Table).
gather_fields(Events, Fields) :-
gather_fields(Events, ['Time':t|Fields_tail]) :-
findall(
Field,
(
Field = 'Time': t
;
enumerate_variables(Field)
;
enumerate_nonconstant_parameters(Events, Field)
;
enumerate_nonparametric_functions(Field)
),
Fields
).
Fields_unsorted
),
sort(Fields_unsorted, Fields_tail).
enumerate_variables(Header: x(VariableIndex)) :-
......
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