function NyqRespObj = deletesys(NyqRespObj,indDelete);
%DELETESYS Remove systems from the Nyquist Response Objects

%   Authors: Karen D. Gondoly: 4-7-98
%   Revised: A. DiVergilio
%   Copyright 1986-2000 The MathWorks, Inc. 
%   $Revision: 1.5 $  $Date: 2000/06/14 20:09:11 $

%---Remove all the Systems' data
NyqRespObj.PeakResponseValue(indDelete) = [];
NyqRespObj.StabilityMarginValue(indDelete) = [];
NyqRespObj.AllStabilityMarginValue(indDelete) = [];

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