(* 
      Linsenvolumen bei zwei gleich grossen Kugeln, 
die sich so überlappen,  
      dass die Kugeln je bis zur Mitte der anderen eindringen *) 
Clear[h, R, x, a];
h = R - x/2;
a = Sqrt[R^2 - (x/2)^2];
x = R;
V = (π/3)*h*(3*a^2 + h^2)

N[%]

plot1  =  
      Graphics[{Circle[{-1, 0}, 2],  
          Circle[{1, 0}, 2]}]
Show[
      plot1, {AspectRatio  ->  Automatic, PlotRange  ->  All, 
        Axes  ->  True, GridLines  ->  Automatic, 
        Frame  ->  True}]