(* Created by Wolfram Mathematica 8.0 : www.wolfram.com *)
3.823993269741397*^-14*
 Sqrt[(T300^2*(5.55502432049856*^-24*Sqrt[f]*
      Sin[0.008727374847718933*Sqrt[f]]*
      (1.3415680727592056*Cosh[0.008727374847718933*Sqrt[f]] + 
       Sinh[0.008727374847718933*Sqrt[f]]) + 1.8373601246314358*^-26*f*
      (2.6831361455184113*Cosh[0.017454749695437866*Sqrt[f]] - 
       0.7998048938468489*Sin[0.017454749695437866*Sqrt[f]] + 
       2.799804893846849*Sinh[0.017454749695437866*Sqrt[f]]) + 
     2.624204455386815*^-23*(2.6831361455184113*
        (-Cos[0.017454749695437866*Sqrt[f]] + Cosh[0.017454749695437866*
           Sqrt[f]]) + 2*(-Sin[0.017454749695437866*Sqrt[f]] + 
         Sinh[0.017454749695437866*Sqrt[f]]))))/
   (f^(3/2)*(-0.7998048938468489*Cos[0.017454749695437866*Sqrt[f]] + 
     2.799804893846849*Cosh[0.017454749695437866*Sqrt[f]] + 
     2.6831361455184113*Sinh[0.017454749695437866*Sqrt[f]]))]