1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
|
function dpdt = solver(t,...
p,...%pression à calculer
Cq,...%coefficient de débit
S1,...%surface par laquelle le fluide s'échappe (variable)
V,...%volume dans lequelle est le fluide (variable)
dVdt,...%variation du volume dans lequelle est le fluide (variable)
p_atm,...%pression de référence
B);%Bulk modulus
dpdt =0; %initialisation de dp/dt
% calcul de la surface et du volume au moment t par interpolation de S1 et V
%----------------------------------------------------------------------
A1 = interp1(S1(:,1),S1(:,2),t,'linear','extrap');
V1 = interp1(V(:,1),V(:,2),t,'linear','extrap');
% Calcul de Q, le débit sortant par la surface A1
%----------------------------------------------------------------------
Q = Cq*A1*sqrt(2*abs(p_atm-p)/rho)*sign(p_atm-p);
% Calcul de QV1, débit du à la variation du volume
%-----------------------------------------------
QV1 = interp1(dVdt(:,1),dVdt(:,2),t,'linear','extrap');
%equa. dif.
%---------------------------------------------------------------------
dpdt = [B/V1*(Q+QV1)] |
Partager