echo on

subplot(2,3,1)
x = -3:0.3:3; y = x;
[X,Y]=meshgrid(x,y);
[theat,R] = cart2pol(X,Y);
Z = sinc(R);
contourf(peaks(30), 10)
colorbar
grid on
title('Peaks Function - (CONTOURF & COLORBAR)')

subplot(2,3,2)
plot3(X,Y,Z)
grid on
axis([-3 3 -3 3 -1 1])
title('Sinc Function - (PLOT3)')

subplot(2,3,3)
waterfall(membrane(1));
title('L-shaped Membrane - (WATERFALL)')

subplot(2,3,4)
contour3(peaks(30), 25);
title('Peaks Function - (CONTOUR3)')

subplot(2,3,5)
mesh(X,Y,Z)
axis([-3 3 -3 3 -1 1])
title('Sinc Function - (MESH)')

subplot(2,3,6)
surf(membrane(1))
title('L-shaped Membrane - (SURF)')
set(gcf,'Position',[211 248 713 413])

echo off
shg
