% Plottar lagernivåer, produktion och efterfrågan som funktion av 
% tiden. 

global DEMAND TOTALCOST PRODUCTION INVENTORY DRIFT TBREAK DEMANDSIGMA;
global INVPLOT DEMPLOT PRODPLOT;
Leadtime   = [2 3 4];
[T,N] = size(INVENTORY);

if isempty(INVPLOT) INVPLOT = figure; end
if isempty(PRODPLOT) PRODPLOT = figure; end
if isempty(DEMPLOT) DEMPLOT = figure; end

figure(INVPLOT);

times = sort([(1:T)-0.5 (1:T)+0.5]);
inv   = zeros(1,2*T);
for i = 1:N
  inv(1:2:2*T) = INVENTORY(:,i)+ ...
     [zeros(Leadtime(i),1) ; PRODUCTION(1:T-Leadtime(i),i)];  
  inv(2:2:2*T-1) = INVENTORY(2:T,i) ;         
  subplot(N,1,i);
  plot(times(1:(2*T-1)),inv(1:(2*T-1)));
%  title(sprintf('Produkt %g',i)); xlabel('Vecka');
  ylabel(sprintf('Lager %g',i));
end

figure(PRODPLOT);

for i = 1:N
  subplot(N,1,i);
  plot(1:T-1,PRODUCTION(:,i),'*');
%  title(sprintf('Produkt %g',i));
  xlabel('Vecka');
  ylabel('Produktion');
end

figure(DEMPLOT);

for i = 1:N
  subplot(N,1,i);
  plot(1:T-1,DEMAND(1:T-1,i));
%  title(sprintf('Produkt %g',i));
  xlabel('Vecka');
  ylabel('Efterfrågan');
end







