Commit 26ea5aa1 authored by HEMERY Mathieu's avatar HEMERY Mathieu
Browse files

Remove dead code (append_reactant & append_product)

parent b9d1dd08
......@@ -649,40 +649,6 @@ alpha_accumulation([], _Acc, []).
%=============================%
%== Get Data from Reactions ==%
%=============================%
append_reactants(Reactants, Counter, Init_list, Middle_list, Species_order) :-
length(Reactants, Number_of_reactants),
(
Counter =< Number_of_reactants
->
nth1(Counter, Reactants, [RName, RNumber]),
nth1(RPosition, Species_order, RName),
atom_number(RNumber_atom,RNumber),
atom_concat('-', RNumber_atom, Rchange),
append(Init_list, [[RPosition, Rchange]], Next_init),
Next_counter is Counter + 1,
append_reactants(Reactants, Next_counter, Next_init,Middle_list, Species_order)
;
Middle_list = Init_list
).
append_products(Products, Counter, Init_list, Changes, Species_order) :-
length(Products, Number_of_products),
Counter =< Number_of_products
->
(
nth1(Counter, Products, [PName, PNumber]),
nth1(PPosition, Species_order, PName),
atom_number(PNumber_atom,PNumber),
atom_concat('+', PNumber_atom, Pchange),
append(Init_list, [[PPosition, Pchange]], Next_init),
Next_counter is Counter + 1,
append_products(Products, Next_counter, Next_init, Changes, Species_order)
)
;
(
Changes = Init_list
).
print_normal(Reactions_data, Init_list, N_finish_list, Alpha_list, Alpha_accumulation_list, Constraints_list, Stoch_species_order) :-
......
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