I would like to know how to write in Mathematica a .nb file which creates a transfer function, then multiplies it with its conjugate and then gives the numerator and denominator. Thanks
