PLOT_TIMING

 plot elapsed time
 
 Input:
     1. elapsed_time
     2. mymesh is a structure with 10 elements:
         Nnode
         Nele
         Nface
         Pts_cmpt_reorder
         Ele_cmpt_reorder
         Pts_ind
         Pts_boundary_reorder
         Fac_boundary_reorder
         Nboundary
         Ncmpt
 
 Output:
     1 figure of computational times of nexperi experiments

0001 function PLOT_TIMING(elapsed_time,mymesh)
0002 
0003 % plot elapsed time
0004 %
0005 % Input:
0006 %     1. elapsed_time
0007 %     2. mymesh is a structure with 10 elements:
0008 %         Nnode
0009 %         Nele
0010 %         Nface
0011 %         Pts_cmpt_reorder
0012 %         Ele_cmpt_reorder
0013 %         Pts_ind
0014 %         Pts_boundary_reorder
0015 %         Fac_boundary_reorder
0016 %         Nboundary
0017 %         Ncmpt
0018 %
0019 % Output:
0020 %     1 figure of computational times of nexperi experiments
0021 
0022 nexperi = size(elapsed_time,2);
0023 nb = size(elapsed_time,1);
0024 figure;
0025 for iexperi = 1:nexperi
0026     subplot(nexperi,1,iexperi); hold on;
0027     bar(1:nb,[elapsed_time(:,iexperi)],'b');
0028     bar(nb+1,[sum(elapsed_time(:,iexperi))],'r');
0029     title(['Experi ',num2str(iexperi),': ',...
0030         num2str(mymesh.Nnode(1)),' nodes, ',...
0031         num2str(mymesh.Nele(1)), ' elements']);
0032     ylabel('Computational time (s)');
0033     xlabel('Index (last: total)');
0034 end