let computeInDegree graph = 
    if !_maxindegree <> None then ()
    else begin
      let (av, mx, h) = degree graph G.pred in
      _maxindegree := Some(mx);
      _avgindegree := Some(av);
      _indata := Some(h);
    end