(E^(-(((L + C r R) t)/(
    2 C L R))) \[Sqrt]((e^2 (C^3 r^3 R^5 + C^2 L r^2 R^3 (-2 r + R) +
          C L^2 r R (2 r^2 + R^2) +
          L^3 (2 r^2 + R^2 + 4 C^2 R^5 + 2 r (R + 2 C^2 R^4))))/((r +
          R)^2 (3 C L^2 r R + 3 C^2 L r^2 R^2 + C^3 r^3 R^3 +
          L^3 (1 + 8 C^2 R^2 (r + R))))) (4 C L^2 R (r + R) Cos[
       Sqrt[1/4 (r/L + 1/(C R))^2 + (2 L (r + R))/(L + C r R)] t +
        ArcCos[(e R)/(Sqrt[
            2] (r +
              R) \[Sqrt]((e^2 (C^3 r^3 R^5 +
                   C^2 L r^2 R^3 (-2 r + R) +
                   C L^2 r R (2 r^2 + R^2) +
                   L^3 (2 r^2 + R^2 + 4 C^2 R^5 +
                    2 r (R + 2 C^2 R^4))))/((r + R)^2 (3 C L^2 r R +
                   3 C^2 L r^2 R^2 + C^3 r^3 R^3 +
                   L^3 (1 + 8 C^2 R^2 (r + R))))))]] -
     2 (L + C r R)^2 Sqrt[
      1/4 (r/L + 1/(C R))^2 + (2 L (r + R))/(L + C r R)]
       Sin[Sqrt[1/4 (r/L + 1/(C R))^2 + (2 L (r + R))/(L + C r R)] t +
         ArcCos[(e R)/(Sqrt[
            2] (r +
              R) \[Sqrt]((e^2 (C^3 r^3 R^5 +
                   C^2 L r^2 R^3 (-2 r + R) +
                   C L^2 r R (2 r^2 + R^2) +
                   L^3 (2 r^2 + R^2 + 4 C^2 R^5 +
                    2 r (R + 2 C^2 R^4))))/((r + R)^2 (3 C L^2 r R +
                   3 C^2 L r^2 R^2 + C^3 r^3 R^3 +
                   L^3 (1 + 8 C^2 R^2 (r + R))))))]]))/(Sqrt[2]
    C L R (L + C r R))