test5

 Roy test

0001 % Roy test
0002 
0003 path(path,'/home/S00/schestr0/');
0004 path(path,'/home/S00/schestr0/NRR_Smith');
0005 
0006 %% Section 1
0007 
0008 [a,bump_images,c]=make_synthetic_object(2,60,0.8,0.1,0.4);
0009 
0010 figure(1);
0011 hold on;
0012 title('Sythetic shapes');
0013 for i=1:2,
0014   plot(bump_images(:,i),'R');
0015 end
0016 
0017 [a,bump_images,c]=make_synthetic_object(2,60,0.3,0.1,0.4);
0018 
0019 for i=1:2,
0020   plot(bump_images(:,i),'B');
0021 end
0022 
0023 [a,bump_images,c]=make_synthetic_object(2,60,0.5,0.5,0.4);
0024 
0025 for i=1:2,
0026   plot(bump_images(:,i),'G');
0027 end
0028 hold off;
0029 
0030 
0031 average_smoothed_bump_images = average_smooth(bump_images, 9);
0032 
0033 figure(3);
0034 hold on;
0035 title('Average smooth effect');
0036 for i=1:2,
0037   plot(average_smoothed_bump_images(:,i),'R');
0038 end
0039 hold off;
0040 average_smoothed_bump_images = average_smooth(average_smoothed_bump_images, 9);
0041 
0042 figure(4);
0043 hold on;
0044 title('Average smooth of order 2 effect');
0045 for i=1:2,
0046   plot(average_smoothed_bump_images(:,i),'R');
0047 end
0048 hold off;