let find_number_of_var_in_monitor (abs : float) (ord : float) :int =
if(List.mem true (List.map (fun ((x,y),_) -> x=abs && y=ord) (!infos_zones) ))
then (
let z = List.assoc (abs,ord) (!infos_zones) in
int_of_float ( 0. +. ((max_l z) -. (min_l z)) /. !yDelta)
)
else 0