Commit 2e1ba9d6 authored by FAGES Francois's avatar FAGES Francois

test_cell_cycle

parent 44d26197
......@@ -14,7 +14,8 @@
test_hill2/0,
test_sigma/0,
test_cycle/1
test_cycle/1,
test_cell_cycle/2
]).
......@@ -296,6 +297,30 @@ sigma_absence(X, G, Y, Z, P) :-
% DEBUG - TEST ------------------------------------------------------------
test_cell_cycle(Amplitude, Time) :- % (10, 1.5)
biocham_command,
sigma_absence(croissance, g1, y1, z1, p),
sigma_absence(replication, g2, y2, z2, p),
sigma_absence(verification, g3, y3, z3, p),
sigma_absence(mitosis, g4, y4, z4, p),
present([g1], 0.5), present([y1], 2), present([z1], 0.5),
present([g2], 0.5), present([y2], 2), present([z2], 0.5),
present([g3], 0.5), present([y3], 2), present([z3], 0.5),
present([g4], 0.5), present([y4], 2), present([z4], 0.5),
present([p], 2),
present([croissance], Amplitude),
S = [croissance=[z4]=>replication,
replication=[z1]=>verification,
verification=[z2]=>mitosis,
mitosis=[z3]=>croissance],
compile(S),
with_option(time:Time, numerical_simulation),
with_option(show:[croissance,replication,verification,mitosis,z1,z2,z3,z4],plot).
test_cycle(C) :-
biocham_command,
......
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