% SG 060417, revised 110917, 090518, 290618

clear
diary GGCCDvAP-KMIPvEM.txt

load('powderTest0p1.mat')
fprintf('\n')

fprintf('\nTest set: powderTest0.1\n')

fprintf('\nalpha-planes / Karnik-Mendel Iterative Procedure')
alphaPlanesKMIP2017(powderTest0p1, 11);
fprintf('Timing for 1000 repetitions: \n')
repeats = 1000;
times = zeros(1, repeats);
for n = 1:repeats
    tic;
    alphaPlanesKMIP2017timing(powderTest0p1, 11);
    times(n) = toc;
end
fprintf('Mean = %10.7f\t\t',mean(times))
fprintf('Standard Deviation = %10.7f\n',std(times))

clear

diary off