$\%$ Convert the symbolic transfer function to a numerator and denominator

$[$num$,$ den$]=$ numden$($H$\_$s$)$;

$\%$ Convert symbolic to numeric

num $=$ sym$2$poly$($num$)$;

den $=$ sym$2$poly$($den$)$;

$\%$ Perform partial fraction expansion

$[$r$,$ p$,$ k$]=$ residue$($num$,$ den$)$;

$\%$ Display the partial fraction expansion

disp$(\text{'}$Residues $($r$)$:$\text{'})$;

disp$($r$)$;

disp$(\text{'}$Poles $($p$)$:$\text{'})$;

disp$($p$)$;

disp$(\text{'}$Direct Terms $($k$)$:$\text{'})$;

disp$($k$)$;