let xmin = (ref (-5.) : float Pervasives.ref)