clear all
close all

data = xlsread('DollarsSpent.xls');


month = datenum(data(:,1), data(:,2), 28);

spent = data(:,5);
cumulative_spent = data(:,14);

linear_spendrate = data(:,4);
planned_spendrate = data(:,6);



figure('Position', [ 198         610        1101         403]);
fh = plot(month,cumulative_spent,month,linear_spendrate,month,planned_spendrate,[datenum(month(30)) datenum(month(30))],[0 linear_spendrate(end)],'--');
legend('Actual Spending','Linear Spend Profile','Planned Spend Profile','Location','NorthWest');
datetick('x','mmm-yyyy','keepticks');
ylabel('Thousands of Dollars');
xlabel('Date');
title('Spending through September, 2011');

print('-dpng','Spending through September, 2011');


