Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
verimag
reproducible-research
sasartifact
Commits
fb81e314
Commit
fb81e314
authored
Apr 29, 2021
by
erwan
Browse files
Fix the coloring job that was actually broken
parent
8197c1a3
Pipeline
#65894
passed with stages
in 124 minutes and 31 seconds
Changes
2
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
coloring-campaign/coloring_campaign.ml
View file @
fb81e314
...
...
@@ -7,24 +7,14 @@ precision := 0.1;;
let
algos
=
[
"../../test/alea-coloring-alt"
;
"../../test/alea-coloring-unif"
;
"../../test/alea-coloring"
]
let
daemons
=
[
"-sd"
;
"-lcd"
;
"-dd"
]
let
daemons
=
[
"-sd"
;
"-lcd"
;
"-dd"
]
let
cliques
=
List
.
init
10
(
fun
n
->
Clique
(
30
*
(
n
+
1
)))
(* Cliques of size 30, 60, ..., 300 *)
let
er
=
List
.
init
10
(
fun
n
->
ER
(
30
*
(
n
+
1
)
,
0
.
4
))
(* ER of size 30, 60, ..., 300 *)
let
rings
=
List
.
init
10
(
fun
n
->
Ring
(
500
*
(
n
+
1
)))
(* Rings of size 500, 1000, ..., 5000 *)
let
gen_make_rules
()
=
let
fn
=
"Makefile.expe-rules"
in
let
oc
=
open_out
fn
in
Printf
.
fprintf
oc
"# Generated by coloring_campaign.ml"
;
let
compare_neg
x
y
=
compare
y
x
in
let
l
=
List
.
sort_uniq
compare_neg
(
cliques
@
rings
@
er
)
in
let
targets
,
targets_cmxs
=
gen_makefile
oc
daemons
algos
l
[]
[]
in
Printf
.
fprintf
oc
"
\n
CMXS=%s
\n
"
(
String
.
concat
" "
targets_cmxs
);
Printf
.
fprintf
oc
"
\n
LOG=%s
\n
%!"
(
String
.
concat
" "
targets
);
Printf
.
printf
"%s has been generated
\n
%!"
fn
;
close_out
oc
;;
let
networks
=
(
cliques
@
rings
@
er
)
let
gen_make_rules
()
=
gen_makefile
"Makefile.expe-rules"
daemons
algos
networks
;;
#
use
"parseLog.ml"
;;
let
gen_pdf
()
=
let
gl
=
[
"clique"
;
"ring"
;
"er"
]
in
...
...
expe/Makefile
View file @
fb81e314
...
...
@@ -50,8 +50,9 @@ BIGLOG=$(BIGDOT:%.dot=%.log)
# nb: It performs |DOT|x|TEST_DIRS| experiments
EXPE
=
$(TEST_DIRS:%=%.expe)
BIGEXPE
=
$(TEST_DIRS:%=%.bigexpe)
expe
:
$(EXPE) ring1000.log
bigexpe
:
$(BIGEXPE) ring10000.log
expe
:
$(EXPE)
bigexpe
:
$(BIGEXPE)
ring
:
ring1000.log ring10000.log
%.expe
:
$(DOT)
touch
$@
...
...
Write
Preview
Supports
Markdown
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