WB1_Grafico.m

%% Nome do arquivo
Arquivo = 'ipeadata_2227062';
Pasta   = 'Sries';
%% Dado numerico: Cambio
Cambio = xlsread(Arquivo,Pasta,'B2:B3224');
%% Dado alfanumerico: Datas
[Aux,Datas] = xlsread(Arquivo,Pasta,'A2:A3224');
%% Exibir dados
Plot_Cambio(Cambio,'Taxa de cmbio - R$/US$ (Comercial/Compra/Mdia)');
%% Interpolar dados por spline: Cubic Spline
CambioS = spl_interp(Cambio);
%% Interpolar dados por PCHIP: Piecewise Cubic Hermite Interpolating Polynomial
CambioP = pchip_interp(Cambio,1);
%% Exibe dado interpolado
Plot_Cambio(CambioP,'Taxa de cmbio - R$/US$ (Comercial/Compra/Mdia) - Interpolado')