function PzRespObj = deletesys(PzRespObj,indDelete);
%DELETESYS Remove systems from the Pole-zero map Response Objects

%   Karen D. Gondoly: 4-7-98
%   Copyright 1986-2000 The MathWorks, Inc. 
% $Revision: 1.4 $

%---Remove all the Systems' data
PzRespObj.Poles(indDelete)=[];
PzRespObj.Zeros(indDelete)=[];

%---Delete Parent Properties
PzRespObj.response = deletesys(PzRespObj.response,indDelete);
UImenu = get(PzRespObj.response,'UIContextMenu');
set(UImenu.Main,'UserData',PzRespObj);