s=%s sys=syslin('c',(k)*(s+1)*(s+4)/(s*(s+3)*(s+5))) evans(sys)