Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Lifeware
biocham
Commits
db8c6b42
Commit
db8c6b42
authored
Nov 18, 2019
by
HEMERY Mathieu
Browse files
Rewrite print_alpha_parameter
parent
ed8d1066
Changes
1
Show whitespace changes
Inline
Side-by-side
hybrid.pl
View file @
db8c6b42
...
...
@@ -545,14 +545,17 @@ print_event(Reactions_data, Stoch_list, Hybrid_reactants_list, Constraints_list,
%
%
print_alpha_parameters
(
0
,
Stream
)
:-
format
(
Stream
,
"parameter(alpha_sum = 0).~n"
,
[]),!.
print_alpha_parameters
(
N_alpha
,
Stream
)
:-
format
(
Stream
,
"parameter(alpha~d = 0).~n"
,
[
N_alpha
]),
Nm_alpha
is
N_alpha
-
1
,
print_alpha_parameters
(
Nm_alpha
,
Stream
).
numlist
(
1
,
N_alpha
,
AlphaList
),
format
(
Stream
,
"parameter("
,
[]),
print_alpha_parameters_sr
(
AlphaList
,
Stream
),
format
(
Stream
,
"alpha_sum = 0).~n"
,
[]).
print_alpha_parameters_sr
([
N
|
Tail
],
Stream
)
:-
format
(
Stream
,
"alpha~d = 0, "
,
[
N
]),
print_alpha_parameters_sr
(
Tail
,
Stream
).
print_alpha_parameters_sr
([],
Stream
).
print_constraints_parameters
(
Constraints_list
,
Current_counter
,
Stream
)
:-
length
(
Constraints_list
,
Total_count
),
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment