transfer functions in Mathematica