fi=atan((7497*w^9 - 66205225691*w^7 + 109316170735891888*w^5)/(w^10 - 26777474*w^8 + 89130199188494*w^6))
t=-diff(fi)
pretty(simplify(t))
w=logspace(-1,4,601)
ezplot(t,w)