Mathematica绘制容器水位-体积曲线：组合图形间隙问题求助

我最近在做一个容器的水位-体积关系可视化，这个容器是由一个圆柱加上两个圆锥构成的。我已经推导了水位H<R和H>R两种场景下的体积计算公式，分别用Mathematica的Plot函数生成了两个图形p1和p2，但用Show将它们组合在一起后，发现两个图形之间出现了明显的间隙，想请教下这问题出在哪里？

我使用的代码如下：

p1 = Plot[ L*1/2*R^2*(2*ArcCos[(R - λ)/R] - Sin[2*ArcCos[(R - λ)/R]]) + 2/3*R^2*l*(ArcCos[(R - λ)/R] - 2*Sin[ArcCos[(R - λ)/R]]* Cos[ArcCos[(R - λ)/R]] + Cos[ArcCos[(R - λ)/R]]^3* Log[Tan[ArcCos[(R - λ)/R]/2 + \[Pi]/4]]) /. H -> λ, {λ, 0, 2 R}]; 
p2 = Plot[ L*Pi*R^2 - L*(1/2*R^2*(2*ArcCos[(λ - R)/R] - Sin[2*ArcCos[(λ - R)/R]])) + 2/3*l*Pi*R^2 - 1/3*R^2*l*(ArcCos[(λ - R)/R] - 2 Sin[ArcCos[(λ - R)/R]] * Cos[ArcCos[(λ - R)/R]] + Cos[ArcCos[(λ - R)/R]]^3* Log[Tan[ArcCos[(λ - R)/R]/2 + \[Pi]/4]]) /. H -> λ, {λ, 0, 2 R}]; 
Show[p1, p2, PlotRange -> Automatic]]

组合后得到的图形中，两条曲线在衔接位置存在明显的间隙，无法形成连续的曲线。

内容的提问来源于stack exchange，提问作者Alina Lerner