(* Created by Wolfram Mathematica 6.0 *)
5.675024525540069*^-25*Sqrt[-32061.36269288885*Sqrt[f^(-3)] + 
   (2.1847875780946333*^6*(1 - Re[E^((0.0003382714892288883*I)*f)*
        (1 - (0.0006765429784577766*I)*f)*
        (1 - Erf[(0.013005219898734668 + 0.013005219898734668*I)*Sqrt[f]])]))/
    f^2]