clear all
close all

data = xlsread('ProjectedDollarsSpent.xls');

idx = 3:44;

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

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

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



figure('Position', [ 198         610        1101         403]);
fh = plot(month(1:33),cumulative_spent(1:33),'-b',month(33:36),cumulative_spent(33:36),':b',month,linear_spendrate,'g',month,planned_spendrate,'r',[datenum(month(36)) datenum(month(36))],[0 linear_spendrate(end)],'--k');
legend('Actual Spending Through Dec 31, 2011','Projected Spending Through March 25, 2012','Linear Spend Profile','Planned Spend Profile','Location','NorthWest');
datetick('x','mmm-yyyy','keepticks');
ylabel('Thousands of Dollars');
xlabel('Date');
title('Projected Spending through March 25, 2012');
foo = axis;
foo(1) = month(1);
foo(2) = month(end);
axis(foo);


print('-dpng','Projected Spending through March 25, 2012');


