(* Created by Wolfram Mathematica 8.0 : www.wolfram.com *)
2.1256384784756383*^-11*
 Sqrt[(-7.832597254077018*^-24*Sqrt[f]*Sin[0.004537229602982823*Sqrt[f]]*
     (1.3269671648170769*Cosh[0.004537229602982823*Sqrt[f]] + 
      Sinh[0.004537229602982823*Sqrt[f]]) + 4.9660208822427425*^-27*f*
     (2.6539343296341538*Cosh[0.009074459205965646*Sqrt[f]] - 
      0.7608418565026711*Sin[0.009074459205965646*Sqrt[f]] + 
      2.760841856502671*Sinh[0.009074459205965646*Sqrt[f]]) + 
    1.9302922928428506*^-22*(2.6539343296341538*
       (-Cos[0.009074459205965646*Sqrt[f]] + Cosh[0.009074459205965646*
          Sqrt[f]]) + 2*(-Sin[0.009074459205965646*Sqrt[f]] + 
        Sinh[0.009074459205965646*Sqrt[f]])))/
   (f^(3/2)*(-0.7608418565026711*Cos[0.009074459205965646*Sqrt[f]] + 
     2.760841856502671*Cosh[0.009074459205965646*Sqrt[f]] + 
     2.6539343296341538*Sinh[0.009074459205965646*Sqrt[f]]))]