(* Created by Wolfram Mathematica 8.0 : www.wolfram.com *)
hsusp300[f]