function s=char(c)
% COMPONENTS/CHAR gives a string expression for a Components object
% Usage: s=char(c)
% This is used within COMPONENTS/DISPLAY.

% Kenneth C. Arnold (for NASA GSFC), 2004-08-06

nc = max(size(c.d));
nl = sprintf('\n');

s = ['Start time: ' num2str(c.stime) nl];
s = [s 'End time:   ' num2str(c.etime) nl];
if nc == 0
    s = [s 'No components'];
elseif nc == 1
    s = [s '1 components'];
else
    s = [s num2str(nc) ' components'];
end
s = [s nl];

i=1;
while i<=nc
    s = [s ' ' num2str(i) ': '];
    s = [s 'Start = ' num2str(c.d(i).stime)];
    s = [s ', End = ' num2str(c.d(i).etime)];
    s = [s ', ' num2str(max(size(c.d(i).c))) ' points' nl];
    i = i+1;
end