clear all; close all;
clc
CA0 = 0.13;
CB0 = 0.1;
Qoa = 0.0005;
Qob = 0.0005;
Q1 = Qob + Qoa;
CA1 = Qoa*CA0/Q1;
CB1 = Qob*CB0/Q1;
CC1 = 0;
CD1 = 0;
initCon = [CA1, CB1, CC1, CD1];
V = 10*10^-3;
k2 = 1;
tau = V/Q1;
tauRange = [0,tau];
[tauRange, C1] = ode45(@diffpfr, tauRange, initCon, [], k2);
figure (1)
plot(tauRange, C1,'Linewidth',1)
grid on
xlabel('Residence Time [s]')
ylabel('concentration [mol/L]')
legend('C_A', 'C_B', 'C_C', 'C_D')
CcCao = C1(:,3)./CA0;
figure (2)
plot(tauRange, CcCao,'Linewidth',0.5)
grid on
xlabel('t_e_n_d')
ylabel('C_C/C_A_0')
k2s = [10, 5 , 1];
X = zeros(height(C1), length(k2s));
for i = 1:numel(k2s)
[tauRange2, C2] = ode45(@diffpfr, tauRange, initCon, [], k2s(i));
X(i) = C2(:,3);
end