Commit 60e8fb8e authored by guillaume le guludec's avatar guillaume le guludec

fixed some bugs in transfer_function.pl

parent 2bf234c7
......@@ -333,7 +333,6 @@ polynomial_list(P, FL) :-
% biochemically implements the transfer function A/(s+Alpha)^N, N > 0
% by a series of degre-(1, 0) blocks.
transfer_series_1_0(N, A, Alpha, U, Y) :-
%biocham_command(),
(
N = 1
->
......@@ -355,7 +354,6 @@ transfer_series_1_0(N, A, Alpha, U, Y) :-
% biochemically implements the transfer function A/(s2+Betas+Gamma)^N, N > 0
% by a series of degree-(2, 0) blocks.
transfer_series_2_0(N, A, Beta, Gamma, U, Y, X1) :-
%biocham_command(),
(
N = 1
->
......@@ -383,7 +381,6 @@ transfer_series_2_0(N, A, Beta, Gamma, U, Y, X1) :-
% biochemically implements the tranfer function As/(s2+Betas+Gamma)^N, N > 0
% by a series of degree-(2, 1) blocks.
transfer_series_2_1(N, A, Beta, Gamma, U, Y, X2) :-
% biocham_command(),
(
N = 1
->
......@@ -410,9 +407,6 @@ transfer_series_2_1(N, A, Beta, Gamma, U, Y, X2) :-
transfer_block_1_0(K0, K1, U, Y) :-
%%write('(1, 0)-degree reaction block with param ('),
%%write(K0), write(', '), write(K1), write(')'),
%%write('added.'), nl,
( plus_minus_mode()
->
atom_concat(U, '_plus', U_plus), atom_concat(U, '_minus', U_minus),
......@@ -451,10 +445,6 @@ transfer_block_1_0(K0, K1, U, Y) :-
).
transfer_block_2_0(K0, K1, K2, K3, U, Y, X1) :-
%%write('(2, 0)-degree reaction block with param ('),
%%write(K0), write(', '), write(K1), write(', '),
%%write(K2),write(', '), write(K3), write(')'),
%%write('added.'), nl,
( plus_minus_mode()
->
atom_concat(U, '_plus', U_plus), atom_concat(U, '_minus', U_minus),
......
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