3 %Function deleting all expensive data from parts of detailed_data which are
6 %Function deletes all fields of parts of parts_detailed_data which are no
8 %All fields except
'RB_info' are deleted.
10 % Markus Dihlmann 26.02.2010
13 if ~isfield(detailed_data,
'parts_detailed_data')
14 disp('Given detailed_data is no p-partition detailed_data. Clean-up is not possible.');
16 is_leaf = get(detailed_data.pgrid,'isleaf');
17 for p=1:length(detailed_data.parts_detailed_data)
19 fields = fieldnames(detailed_data.parts_detailed_data{p});
20 for f=1:length(fields)
21 if~(strcmp(fields{f},
'RB_info'))
22 detailed_data.parts_detailed_data{p} = rmfield(detailed_data.parts_detailed_data{p},fields(f));
function detailed_data = clean_up_part_detailed_data(detailed_data)
Function deleting all expensive data from parts of detailed_data which are no leaf elements...