clear all
close all

data = xlsread('DollarsSpent.xls');


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

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

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



figure('Position', [ 198         610        1101         403]);
fh = plot(month,cumulative_spent,month,linear_spendrate,month,planned_spendrate,[datenum(month(31)) datenum(month(31))],[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 October, 2011');

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


