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