//root locus
s=%s
sys=syslin('c',(k)/(s))
evans(sys)