% plotter.m

function grafer = plotter(x,b)

% Gir lokale navn
%--------------------------------------------------------------------------
m=18;
t  = x(1,:);
pl = x(2:m:end,:);
pv = x(3:m:end,:);
wng= x(4:m:end,:);
Hng= x(5:m:end,:);
png= x(6:m:end,:);
wl = x(7:m:end,:);
wv = x(8:m:end,:);
wco2 = wl+wv;
Htot = x(9:m:end,:);
xv = x(10:m:end,:);
Tl = x(11:m:end,:);
Vl = x(12:m:end,:);
Nl = x(13:m:end,:);
Tv = x(14:m:end,:);
Vv = b.V_pc(1)-Vl;
Nv = x(15:m:end,:);
Tng= x(16:m:end,:);
Vng= x(17:m:end,:);
Nng= x(18:m:end,:);
Tvegg = x(19:m:end,:);

% Plotter
%--------------------------------------------------------------------------
warning off
n = 1:b.n;

subplot(2,2,1)
plot(t,Tng(end,:))
title('NG-temperatur ut')
ylabel('[K]')

subplot(2,2,2)
plot(t,Tl(end,:))
title('CO2-temperatur ut')
ylabel('[K]')

subplot(2,2,3)
plot(t,pl(1,:),t,pl(end,:))
title('CO2-trykk')
ylabel('[Pa]'), legend('Første delvolum', 'Siste delvolum')

subplot(2,2,4)
plot(t,xv(end,:))
title('Gassfraksjon CO2 ut')



% for i=1:length(Tl(1,:))
%     Al=co2_sw([Tl(1,i),Vl(1,i),Nl(1,i)]);
%     Av=co2_sw([Tv(1,i),Vv(1,i),Nv(1,i)]);
%     myl(i)=Al.g(3);
%     myv(i)=Av.g(3);
% end
% dp=pv-pl;
% dmy=myv-myl;
%     
% subplot(2,2,1)
% plot(t,dp(1,:))
% title('Første delvolum, Dp')
% ylabel('[Pa]')
% 
% subplot(2,2,2)
% plot(t,dp(end,:))
% title('Siste delvolum, Dp')
% ylabel('[Pa]')
% 
% subplot(2,2,3)
% plot(t,dmy(1,:))
% title('Første delvolum, Dmy')
% ylabel('[J/mol]'), xlabel('[sek]')
% 
% subplot(2,2,4)
% plot(t,dmy(end,:))
% title('Siste delvolum, Dmy')
% ylabel('[J/mol]'),  xlabel('[sek]')

