Calculations for analytical solution

Mathematica file