function [numopen, denopen, denclsd]=rldesign(num,den,s1)

% Hadi Saadat, 1998
clc
discr=[
'                                                                         '
'  The function rldesign(num, den, s1) is used for the root-locus design  '
'  of a linear control system.  num & den are row vectors of polynomial   '
'  coefficients of the uncompensated open-loop plant transfer function    '
'  and s1 =