clean_up_part_detailed_data.m

Go to the documentation of this file.

function detailed_data = clean_up_part_detailed_data(detailed_data)
%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.
%
%Function deletes all fields of parts of parts_detailed_data which are no
%leaf elements.
%All fields except 'RB_info' are deleted.
%
% Markus Dihlmann 26.02.2010
%

if ~isfield(detailed_data,'parts_detailed_data')
    disp('Given detailed_data is no p-partition detailed_data. Clean-up is not possible.');
else
    is_leaf = get(detailed_data.pgrid,'isleaf');
    for p=1:length(detailed_data.parts_detailed_data)
        if ~is_leaf(p)
            fields = fieldnames(detailed_data.parts_detailed_data{p});
            for f=1:length(fields)
                if~(strcmp(fields{f},'RB_info'))
                    detailed_data.parts_detailed_data{p} = rmfield(detailed_data.parts_detailed_data{p},fields(f));
                end
            end
        end
            
    end
end