Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Lifeware
biocham
Commits
6b3552b9
Commit
6b3552b9
authored
Nov 20, 2019
by
Mathieu Hemery
Browse files
Bug fixed in print_ifThenElse
parent
afbe2372
Changes
1
Hide whitespace changes
Inline
Side-by-side
hybrid.pl
View file @
6b3552b9
...
...
@@ -702,42 +702,49 @@ print_change_list(NumberOfSpecies,Print_helper_list, Species_order, Current_coun
Change_list
=
[[
Lower
,
Upper
],
First_change
,
Constraint
|
Change_Tail
],
nth1
(
Current_counter
,
Species_order
,
Species
),
(
length
(
Change_list
,
Triple_of_change
),
Triple_of_change
>
0
length
(
Change_list
,
Triple_of_change
),
Triple_of_change
>
0
->
% First Change start with only "if".
format
(
Stream
,
" ~w = (if alpha_sum*ran>~w and alpha_sum*ran<=~w"
,
[
Species
,
Lower
,
Upper
]),
format
(
Stream
,
" and ~w >0 then ~w"
,
[
Constraint
,
First_change
]),
(
Change_number
is
(
Triple_of_change
/
3
),
Change_number
>
1
->
print_ifThenElse
(
Change_Tail
,
Stream
)
;
!
),
% The last one.
format
(
Stream
,
"~n else ~w)"
,
[
Species
]),
(
Current_counter
=
NumberOfSpecies
->
true
;
write
(
Stream
,
','
)
),
nl
(
Stream
)
% First Change start with only "if".
format
(
Stream
,
" ~w = (if alpha_sum*ran>~w and alpha_sum*ran<=~w"
,
[
Species
,
Lower
,
Upper
]),
(
Constraint
==
'0'
->
true
;
format
(
Stream
,
" and ~w >0"
,
[
Constraint
])
),
format
(
Stream
,
" then ~w"
,
[
First_change
]),
(
Change_number
is
(
Triple_of_change
/
3
),
Change_number
>
1
->
print_ifThenElse
(
Change_Tail
,
Stream
)
;
!
),
% The last one.
format
(
Stream
,
"~n else ~w)"
,
[
Species
]),
(
Current_counter
=
NumberOfSpecies
->
true
;
write
(
Stream
,
','
)
),
nl
(
Stream
)
;
nth1
(
Current_counter
,
Species_order
,
Species_name
),
write
(
Stream
,
Species_name
)
nth1
(
Current_counter
,
Species_order
,
Species_name
),
write
(
Stream
,
Species_name
)
),
% Recursive condition on species
(
Current_counter
<
Last_counter
Current_counter
<
Last_counter
->
Next_counter
is
(
Current_counter
+
1
),
print_change_list
(
NumberOfSpecies
,
Print_helper_list
,
Species_order
,
Next_counter
,
Last_counter
,
Stream
)
Next_counter
is
(
Current_counter
+
1
),
print_change_list
(
NumberOfSpecies
,
Print_helper_list
,
Species_order
,
Next_counter
,
Last_counter
,
Stream
)
;
write
(
Stream
,
').'
),
nl
(
Stream
),
!
write
(
Stream
,
').'
),
nl
(
Stream
),
!
).
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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