diff --git a/gephi/--level=1 b/gephi/--level=1 new file mode 100644 index 0000000000000000000000000000000000000000..6e4f7af7671519b7ec7b7a571e89dd1bd51f5737 Binary files /dev/null and b/gephi/--level=1 differ diff --git a/gephi/--level=3 b/gephi/--level=3 new file mode 100644 index 0000000000000000000000000000000000000000..6e4f7af7671519b7ec7b7a571e89dd1bd51f5737 Binary files /dev/null and b/gephi/--level=3 differ diff --git a/gephi/--level=5 b/gephi/--level=5 new file mode 100644 index 0000000000000000000000000000000000000000..6e4f7af7671519b7ec7b7a571e89dd1bd51f5737 Binary files /dev/null and b/gephi/--level=5 differ diff --git a/script/src/.csv.ml.swp b/script/src/.csv.ml.swp new file mode 100644 index 0000000000000000000000000000000000000000..f68b223a0a4af7cccb07d7f767202b7bd5da4a41 Binary files /dev/null and b/script/src/.csv.ml.swp differ diff --git a/script/src/.point_assos_to_gephi.ml.swp b/script/src/.point_assos_to_gephi.ml.swp new file mode 100644 index 0000000000000000000000000000000000000000..bb7c0e7bb6ebaf5ec1ecc0e5a7c749a2fb8f2009 Binary files /dev/null and b/script/src/.point_assos_to_gephi.ml.swp differ diff --git a/script/src/csv.ml b/script/src/csv.ml index 911b59fe4be60f8f00627dfa61455cfb44d656cf..d5aaa6658d9c17c1b0b40a0af17a293627b6fab4 100644 --- a/script/src/csv.ml +++ b/script/src/csv.ml @@ -221,8 +221,6 @@ a1 , b1 , c1 , d1 *) let filter_line rand_csv f = let htab = Hashtbl.create (List.length rand_csv.column_name) in - let n = List.length rand_csv.column_name in - let col_name_arr = Array.of_list rand_csv.column_name in let rec save_line a l i = match l with |[] -> () diff --git a/script/src/point_assos_to_gephi.ml b/script/src/point_assos_to_gephi.ml index 0740fd8f4caad0f6ea72d624fd93a775271f585d..25cf25bcb13d2cfd7052116b27ac323a3ac1efa9 100644 --- a/script/src/point_assos_to_gephi.ml +++ b/script/src/point_assos_to_gephi.ml @@ -80,15 +80,12 @@ let () = begin let eleve_sans_asso = supprime_eleve_avec_assos eleves_assos in - Csv.map eleve_sans_asso "Assos" (fun x -> "Fantome"); + let _ = Csv.map eleve_sans_asso "Assos" (fun x -> "Fantome") in Csv.save eleve_sans_asso "../../res_script/eleve_sans_asso.csv"; let eleve_avec_asso = supprime_eleve_sans_assos eleves_assos in - Csv.map eleve_avec_asso "Assos" (fun x -> "Asso"); + let _ = Csv.map eleve_avec_asso "Assos" (fun x -> "Asso") in Csv.save eleve_avec_asso "../../res_script/eleve_avec_asso.csv"; - let l1 = Csv.get_column eleve_sans_asso in - let l2 = Csv.get_column eleve_avec_asso in - let tout_eleve = List.fold_left (fun acc elt -> Csv.add_line acc elt) eleve_sans_asso eleve_avec_asso.data in