+
−function gltpda_minus(handles)
+
−
+
−% GLTPDA_MINUS for an array of analysis objects subtract A(2:end) from
+
−% A(1).
+
−% 
+
−% M Hewitson 15-02-07
+
−% 
+
−% $Id: gltpda_minus.m,v 1.1 2007/03/12 13:00:31 hewitson Exp $
+
−% 
+
−
+
−%% Get selected AOs
+
−% get AO array
+
−aos = getappdata(handles.main, 'aos');
+
−
+
−% Get selected objects
+
−selected = get(handles.aoList, 'Value');
+
−as = aos.objs(selected);
+
−
+
−%% Add these together using lincom
+
−
+
−if length(as) < 2
+
−  error('### Select at least two analysis objects.');
+
−elseif length(as) == 2
+
−  b = as(1)-as(2);
+
−else
+
−  pl = plist(param('coeffs', [1 -1*ones(1,length(as)-1)]));
+
−  b = ltpda_lincom(as, pl);
+
−end
+
−
+
−%% Add new ao to list 
+
−
+
−% Add to object array
+
−aos.objs  = [aos.objs b];
+
−aos.nobjs = aos.nobjs + length(b);
+
−
+
−% Set array
+
−setappdata(handles.main, 'aos', aos);
+
−
+
−% Update object list
+
−gltpda_setAOlist(handles);
+
−
+
−
+
−
+
−
+
−% END