let get_dist_alg_name n = match n with
       | 0 -> "|x1 - x2| + |y1 - y2|"
       | _ -> "sqrt((x1-x2)^2+(y1-y2)^2)"