0001
0002
0003 path(path,'/home/S00/schestr0/NRR_Smith');
0004
0005
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
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
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
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;