Avoid error missing parameters

library/examples/modalINF473L/satode.pl

@@ -43,7 +43,15 @@ sat(N, M) :-
       assertz(ode_dxdt(Aj, Aj * Kj)),
       big_prod(J, N, 0, Pj),
       simplify(Pj, PPj),
-      assertz(ode_func(Kj, PPj))
+      assertz(ode_func(Kj, PPj)),
+      make_name('c', J, Cj),
+      forall(
+        between(1, N, I),
+        (
+          make_name(Cj, I, Cji),
+          assertz(ode_par(Cji, 0))
+        )
+      )
     )
   ).
 
@@ -145,6 +153,7 @@ set_clause_parameter(Clause, N) :-
   !,
   make_name('c', Clause, Cj),
   make_name(Cj, N, Cji),
+  retractall(ode_par(Cji, _)),
   assertz(ode_par(Cji, 1)).
 
 set_clause_parameter(Clause, N) :-
@@ -152,4 +161,5 @@ set_clause_parameter(Clause, N) :-
   NN is -N,
   make_name('c', Clause, Cj),
   make_name(Cj, NN, Cji),
+  retractall(ode_par(Cji, _)),
   assertz(ode_par(Cji, -1)).