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

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

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

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