>         (-2 infinity Sqrt[n])/(Sqrt[e] Sqrt[k] Sqrt[t]) -

>          (Sqrt[n] r)/(Sqrt[e] Sqrt[k] Sqrt[t])]

            (infinity Sqrt[n])/(Sqrt[e] Sqrt[k] Sqrt[t])
>        (-E                                             +

            (Sqrt[n] r)/(Sqrt[e] Sqrt[k] Sqrt[t])
>          E                                     )

>        (2 Power[E, (infinity Sqrt[n])/(Sqrt[e] Sqrt[k] Sqrt[t]) +

>             (Sqrt[n] r)/(Sqrt[e] Sqrt[k] Sqrt[t])] k t -

            (infinity Sqrt[n])/(Sqrt[e] Sqrt[k] Sqrt[t])
>          E                                             C[2] -

            (Sqrt[n] r)/(Sqrt[e] Sqrt[k] Sqrt[t])
>          E                                      C[2])]}}