1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| Ttampon=0;
Tdelta=Tg;
while abs(Tdelta-Ttampon)>1e-6
%calcul du libre parcours moyen
L=k*Tdelta/(sqrt(2)*Pref*pi*(3.15e-10)^2);
%détermination de l'épaisseur de la couche limite
gamma1=1+L/r;
gamma2=1+(L/r)^2;
delta=r/(((r/L)^2)*(0.2*gamma1^5-(gamma1^3)*gamma2/3+2/15*gamma2^2.5)-1);
somme2=(calc_cv(T)-calc_cv(Tdelta));
Ttampon=Tdelta;
tampon2=alpha*(R_GP/(2*M_v)+somme2);
Tdelta=T-(r+delta)*k0*((Tdelta-Tg)^(w+1))/((w+1)*(Tg^w)*mu*tampon2);
end
%calcul des fonction des équation différencielles
tampon=1/(3*r*rho_s*Cp_p);
dT=tampon*((eps*q/4+sigma*(Te^4-T^4))-mu*(delta_H/M_s+tampon2*(T-Tdelta))) |