TPISDC19 := (1+18*k-18*m)*z+(-81+336*m-906*k)*z^2+(10248*k+2001-4776*m)*z^3+(-44076*k-13824+15576*m)*z^4+(42216+79988*k-32488*m)*z^5+(-77984*k+14752*m-53836)*z^6+(-23884*m+45436+28064*k)*z^7+(-4576-25274*k-15500*m)*z^8+(-15466*k-20444*m+20524)*z^9+(-16768*m+17954-20444*k)*z^10+(-16768*k+18606-11720*m)*z^11+(-6352*m-11720*k+14244)*z^12+(9036-2696*m-6352*k)*z^13+(-856*m-2696*k+4524)*z^14+(-856*k-194*m+1776)*z^15+(525-28*m-194*k)*z^16+(111-2*m-28*k)*z^17+(15-2*k)*z^18+z^19:

TPISDC19:=expand(TPISDC19/z):

st:=time():
ANS:=resultant(TPISDC19,diff(TPISDC19,z),z):
time()-st;