%
% Programa de chamada da funcao interp2
%
clear;
clc;
% dados numa rede grosseira
[X,Y] = meshgrid(-3:.25:3); 
Z = peaks(X,Y);
% refinamento de malha e interpolacao
[XI,YI] = meshgrid(-3:.025:3); 
ZI = interp2(X,Y,Z,XI,YI);
% graficos
subplot(2,1,1), mesh(X,Y,Z)
subplot(2,1,2), mesh(XI,YI,ZI), colormap(hot)
figure
mesh(X,Y,Z), hold on, mesh(XI,YI,ZI+15), hold off, axis([-3 3 -3 3 -5 20])
figure
pcolor(X,Y,Z),shading interp,colormap(gray)
