test

 Roy test

0001 % Roy test
0002 
0003 path(path,'/home/S00/schestr0/NRR_Smith');
0004 
0005 %% Section 1
0006 
0007 [a,bump_images,c,d,e]=make_1d_images(2,50,0.1);
0008 
0009 figure(1);
0010 hold on;
0011 title('Changing bump width');
0012 for i=1:2,
0013   plot(bump_images(:,i),'R');
0014 end
0015 
0016 [a,bump_images,c,d,e]=make_1d_images(2,50,0.3);
0017 
0018 for i=1:2,
0019   plot(bump_images(:,i),'B');
0020 end
0021 
0022 [a,bump_images,c,d,e]=make_1d_images(2,50,0.5);
0023 
0024 for i=1:2,
0025   plot(bump_images(:,i),'G');
0026 end
0027 hold off;
0028 
0029 
0030 %% Section 2
0031 
0032 [a,bump_images,c,d,e]=make_1d_images(2,10,0.2);
0033 
0034 figure(2);
0035 hold on;
0036 title('Changing image width');
0037 for i=1:2,
0038   plot(bump_images(:,i),'R');
0039 end
0040 
0041 [a,bump_images,c,d,e]=make_1d_images(2,50,0.2);
0042 
0043 for i=1:2,
0044   plot(bump_images(:,i),'B');
0045 end
0046 
0047 [a,bump_images,c,d,e]=make_1d_images(2,200,0.2);
0048 
0049 for i=1:2,
0050   plot(bump_images(:,i),'G');
0051 end
0052 hold off;
0053 
0054 %% Section 3
0055 
0056 [a,bump_images,c,d,e]=make_1d_images(4,100,0.3);
0057 
0058 average_smoothed_bump_images = average_smooth(bump_images, 9);
0059 
0060 figure(3);
0061 hold on;
0062 title('Average smooth effect');
0063 for i=1:4,
0064   plot(average_smoothed_bump_images(:,i),'R');
0065 end
0066 hold off;
0067 average_smoothed_bump_images = average_smooth(average_smoothed_bump_images, 9);
0068 
0069 figure(4);
0070 hold on;
0071 title('Average smooth of order 2 effect');
0072 for i=1:4,
0073   plot(average_smoothed_bump_images(:,i),'R');
0074 end
0075 hold off;
0076 
0077 %% Section 4
0078 
0079 gaussian_smoothed_bump_images = gaussian_smooth(bump_images, 40);
0080 
0081 figure(5);
0082 hold on;
0083 title('Gaussian smooth effect');
0084 for i=1:4,
0085   plot(gaussian_smoothed_bump_images(:,i),'R');
0086 end
0087 hold off;