close all
clear all


%Battery energy densities.  50% derated from batteries alone to account for
%packageing, etc.
Alk = .5*110;  %Whr/kg
LeadAcid = .5*40;  %Whr/kg 
LithPri = .5*300;   %Whr/kg
LithSec = .5*130;  %Whr/kg

months = .1:.01:6;
wks = (52/12)*months;
days = 7*wks;
hrs = 24*days;

Alk_Power = Alk./hrs; 
LeadAcidPower = LeadAcid./hrs;
LithSecPower = LithSec./hrs;
LithPriPower = LithPri./hrs;

figure('Position', [55 100 1175 844],'PaperOrientation','landscape','PaperPosition',[0 0 11 8.5])
set(gca,'FontSize',24);
hold all;
%plot(months,Alk_Power,'LineWidth',3); 
plot(months,LeadAcidPower,'LineWidth',3);
plot(months,LithSecPower,'LineWidth',3)
foo = axis;
foo(4) = .201;
axis(foo);
set(gca,'YTick',[0 .05 .1 .15 .2])


print('-dpng','BatteryCurvesinKg')
