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

Delete convert_kinetics (dead_code)

parent e7e44be2
......@@ -614,23 +614,6 @@ print_alpha_sr([N|Tail], Stream) :-
print_alpha_sr(Tail, Stream).
convert_kinetics(Kinetics1 * Kinetics2,NewKinetics1 * NewKinetics2) :-
!,
convert_kinetics(Kinetics1,NewKinetics1),
convert_kinetics(Kinetics2,NewKinetics2).
convert_kinetics(Kinetics ^ 1,Kinetics) :-
!.
convert_kinetics(Kinetics ^ Number,NewKinetics) :-
NewNumber is Number - 1,
NewKinetics1 = Kinetics/Number*(Kinetics-1)^NewNumber,
convert_kinetics(NewKinetics1,NewKinetics).
convert_kinetics(Kinetics,Kinetics) :-
!.
%========================================%
%== Build Alpha list for current event ==%
%========================================%
......
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