46 lines
743 B
Matlab
46 lines
743 B
Matlab
function [ dm ] = emuslion1( t,n,n_s,n_M_0,V_p_0 )
|
|
|
|
k_p = 715; % L/(mol*s)
|
|
n_bar = 0.5;
|
|
N_A = 6.022*10^23; % 1/mol
|
|
M_M = 0.1; % kg/mol
|
|
p_M = 0.94; % kg/L
|
|
p_P = 1.1; % kg/L
|
|
|
|
%%
|
|
|
|
n_M = n(1); % amount of total monomer available
|
|
n_M_p = n(2); % amount of monomer in particles
|
|
n_M_d = n_M-n_M_p; % amount of monomer in dispersed phase
|
|
|
|
%%
|
|
|
|
v_pol = V_p_0+(n_M_0-n_M)*M_M/(n_s*p_P);
|
|
v_p = v_pol+(n_M_p/n_s)*(M_M/p_M);
|
|
phi = (v_p-v_pol)/v_p;
|
|
c_M = n_M_p/(n_s*v_p);
|
|
|
|
%%
|
|
|
|
dn_M = - k_p*c_M*n_bar/N_A*n_s;
|
|
dv_pol = - dn_M*M_M/(p_P*n_s);
|
|
|
|
%%
|
|
|
|
if n_M_d > 0
|
|
|
|
dn_M_P = n_s.*c_M.*1./(1-phi).*dv_pol;
|
|
|
|
else
|
|
|
|
dn_M_P = dn_M;
|
|
|
|
end
|
|
|
|
%%
|
|
|
|
dm = [dn_M; dn_M_P];
|
|
|
|
end
|
|
|