![](http://imgsrc.baidu.com/forum/w%3D580/sign=834e8797c23d70cf4cfaaa05c8ddd1ba/781f97ef76c6a7ef326b7d88f6faaf51f2de66da.jpg)
\[Rho] = 1000, g = 9.8, h2 = 1.2, h1 = 0.5, v = 4*10^-4, s =
0.1^2*Pi, p0 = 1.01*10^5, dh = 0.00001;
S = DSolve[{\[Rho] g h2 - \[CapitalDelta]p1 -
p0 (v - x2[t] s + x1[t] s)/v == \[Rho] dh x2''[t] &&
p0 (v - x2[t] s + x1[t] s)/
v - \[Rho] g h .1 - \[CapitalDelta]p2 == \[Rho] dh x1''[t],
x1[0] == 0, x2[0] == 0}, x1[t], x2[t], t]
Clear["Global`*"];