No BSD License
num=[6 34]; den=[1 -7 31 -25 0]; [r, p, k]= residue(num,den)
Contact us at files@mathworks.com