Manipulate[RootLocusPlot[k((100 s(s+10))/((s+25)(s-10)((s^2)-225))),{k,0,30},PlotRange->All,AspectRatio->1,PoleZeroMarkers->{Automatic,"ParameterValues"->kVal}],{kVal,0,30}]