(* Created by Wolfram Mathematica 8.0 : www.wolfram.com *)
7.282353494291669*^-20*Sqrt[-7.242832583731445*^-7*Sqrt[f^(-3)] + 
   (1.3952258394009165*^-8*(1 - Re[E^((0. + 4232.994936439185*I)*f)*
        (1 - (0. + 8465.98987287837*I)*f)*
        (1 - Erf[(46.005406945484054 + 46.005406945484054*I)*Sqrt[f]])]))/f^2]