(* --------------------   Tests binary_tree --------------------------------- *)

# use "binary_tree.ml";;
# use "FIFO.ml";;
# use "mysleep.ml";;

(*ocamlmktop -custom -o myocaml unix.cma graphics.cma -cclib -lgraphics -cclib -lX11 *)

open Graphics;;


(*illustration des parcours graphiques*)

let t = real_life_binary_tree();;
open_graph"";;
draw_binary_tree t;;
mysleep 5.0;;
deep_first_graphic t;;
tag_b t cyan;;
draw_binary_tree t;;
mysleep 5.0;;
bread_first_graphic t;;
tag_b t cyan;;
close_graph();;

(*recherche dans un ABR*)

let ex2 = big_brt 30;;
open_graph" 900x800";;
mysleep 5.0;;
draw_binary_tree ex2;;
tag_b ex2 cyan;graphic_search 224 ex2 green red;;
mysleep 5.0;;
close_graph();;

(*hauteur moyenne d'une clef dans un ABR*)
stat_brt 1000 100;;

(*profondeur moyenne d'une clef dans un ABR*)
make_n_search_brt 10 10000;;