(* Created by Wolfram Mathematica 8.0 : www.wolfram.com *)
5.675024525540069*^-25*Sqrt[-32061.36269288885*Sqrt[f^(-3)] + 
   (2.1847875780946333*^6*(1 - Re[E^((0. + 0.0003382714892288883*I)*f)*
        (1 - (0. + 0.0006765429784577766*I)*f)*
        (1 - Erf[(0.013005219898734668 + 0.013005219898734668*I)*Sqrt[f]])]))/
    f^2]