% this clears trajectory traces (only) for the BERGulator% Copyright 1997-1998 Phil Schniter % keep all variables local in scope function [] = ui_clr_traj();  % declare global variables berg_global; ui_private_global; % delete all valid traces for i=1:length(h_trace_fff)   if ishandle(h_trace_fff(i))==1, delete(h_trace_fff(i)); end; end; for i=1:length(h_trace_iii)   if ishandle(h_trace_iii(i))==1, delete(h_trace_iii(i)); end; end; for i=1:length(h_trace_h)   if ishandle(h_trace_h(i))==1, delete(h_trace_h(i)); end; end; for i=1:length(h_trace_tt)   if ishandle(h_trace_tt(i))==1, delete(h_trace_tt(i)); end; end; for i=1:length(h_trace_s)   if ishandle(h_trace_s(i))==1, delete(h_trace_s(i)); end; end;  % clear trace lists h_trace_fff = []; h_trace_iii = []; h_trace_h = []; h_trace_tt = []; h_trace_s = []; % forget about maximum trace length N_max = [];