B = [1315.789473684211];
A = [1, 1.100000536842105e+04, 1.703789473684211e+03, 0];

poles1 = roots (A)

[r,p,k,e] = residue (B, A)

[B1, A1] = residue (r, p, k, e)

