C = [];
Tlb = sdpvar(1,length(t));
Tlsys = sdpvar(1, length(t));
T = [Tinit, zeros(n,length(t)-1)];
C = [C,Tlb(1) == Tlbinit];
C = [C,Tlsys(1)==Tlsysinit];
b = zeros(n,1);
for j = 2:length(t)
b(1) = -rho*Ac*dx*cp*T(1,j-1)/dt - (double(Tlb(j-1))*cp*mbnom+U*Ap*Tamb);
for i = 2:n-1
b(i) = -rho*Ac*dx*cp/dt*T(i,j-1) - U*Ap*Tamb;
end
b(n) = -rho*Ac*dx*cp/dt*T(n,j-1) -(U*Ap*Tamb+msys*cp*double(Tlsys(j-1)));
T(:,j) = A\b;
C = [C, Tlsys(j) == T(1,j-1)-Qsys(j-1)/msys/cp];
C = [C , (Tlb(j)-T(n,j-1))*mbnom*cp <=Qbnom];
end
C = [C, Tlb(:)>=70];
C = [C ,Tlsys(:) >=20];
f = sum((Tlb(2:end)-T(n,1:end-1))*mbnom*cp.*c(1:end-1)*dt);
options = sdpsettings('solver', 'sdpt3');
solvesdp(C, f, options);