function NicRespObj = deletesys(NicRespObj,indDelete);
%DELETESYS Remove systems from the Nichols 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:38 $

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

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