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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65
| clear all
close all
clc
%-------------------------------------------------------------------------%
% Programme de simulations
%-------------------------------------------------------------------------%
% Entrée des données du compresseur
% air
r_air = 287 ; % J/K/kg
% à l'admission
T_1 = input('Température à l''admission [°C]: ') + 273.15; % K
p_1 = input('Pression à l''admission [bars]: ') * 10^5 ; % Pa
RHO_1 = p_1 / ( r_air * T_1 ) ;
disp(['Masse volumique de l''air à l''admission [kg/m³] : ',num2str(RHO_1)]);
% au refoulement
T_2 = input('Température au refoulement [°C]: ') + 273.15; % K
% Entrée des données des réservoirs
V_R = input( 'Volume du buffer [m³]: ') ; % m³
% Entrée des données d'utilisation
q_u = input('Débit d''utilisation [l/s]: ') ; % l/s
%-------------------------------------------------------------------------%
% Résolution de l'équation différentielle avec et sanas fuites
%-------------------------------------------------------------------------%
% Débit de fuites
% sans fuites
q_f = 0 ;
h = 0.01; % pas de temps = 0.01 secondes
T = 1:h:600; % calculer jusqu'à 10 minutes
p = zeros(length(V_R),length(T));
for n=1:(length(T)-1) % bouclage
p(1) = p_1 / 10^5; % condition initiale p1 = 1 bar
k_1 = fc(h, T(n), p(n), q_u, q_f, RHO_1, V_R, T_2) ;
p(n+1) = k_1 ; % Euler
end |
Partager