kcavaill/ocaml_project
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

ftest commande dot

Browse source
This commit is contained in:
Kevin Cavailles 2020-11-19 09:42:08 +01:00
parent be91217e12
commit 80a2ec0481
2 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/FFAlgorithm.ml
View file

@ -5,9 +5,6 @@ open BLF
let g_to_string gr = gmap gr string_of_int let g_to_string gr = gmap gr string_of_int
let g_to_int gr = gmap gr int_of_string let g_to_int gr = gmap gr int_of_string
let find_path (graph : int graph) (forbidden : id list) (id1 : id) (id2 : id) =
None
(* Create a list of pairs (origin,end) from a list of nodes *) (* Create a list of pairs (origin,end) from a list of nodes *)
let rec create_arcs_from_nodes = function let rec create_arcs_from_nodes = function
| [] -> [] | [] -> []

9
src/ftest.ml
View file

@ -3,6 +3,7 @@ open Tool
open FFAlgorithm open FFAlgorithm
open BLF open BLF
open Format open Format
open Sys
let () = let () =
@ -33,9 +34,13 @@ let () =
let initGraph = g_to_int graph in let initGraph = g_to_int graph in
(* Rewrite the graph that has been read. *) (* Rewrite the graph that has been read. *)
let () = write_file outfile graph in
let (flow,finalGraph) = ford_fulk_algorithm initGraph _source _sink in let (flow,finalGraph) = ford_fulk_algorithm initGraph _source _sink in
let () = printf "%d\n" flow in let () = printf "max flow = %d\n" flow in
let () = write_file outfile finalGraph in
let () = export outfile finalGraph in let () = export outfile finalGraph in
(*Uncomment the following line if you have graphviz installed *)
(* let retour = command ("dot -Tsvg "^outfile^".dot > "^outfile^".svg") in *)
() ()