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
| %Rayonnement sur un satellite
%Rayonnement sur 2 surfaces.
% les données de problème
for i=0:(pi/8):pi/2
eps=[0.8 0.8 0.8 0.8 0.8 0.8]; %epsilon : coeeficient d'émissivité.
rho=1-eps; %rho coefficient de reflexion
flux=[1320*cos(i) 1320*sin(i) 0 0 0 0]; %flux imposé sur la surface avec un angle i.
sigma=5.67e-8;
% matrice de forme
for i=1:6
for j=1:6
if (i==j)
F(i,j)=0;
else F(i,j)=0.2;
end
end
end
% calcul Bij
for i=1:6
for j=1:6
if (i==j)
a(i,i)=1-rho(i)*F(i,i);
c(i,i)=eps(i)*F(i,i);
else a(i,j)=-rho(j)*F(i,j);
c(i,j)=eps(j)*F(j,i);
end
end
end
% inversion de la matrice
B=inv(a)*c;
% calcul des temperatures
%element du veteur E
for j=1:6
E(j)=flux(j)/sigma;
end
% elements de la matrice D
for i=1:6
for j=1:6
if (i==j)
d(i,i)=1+eps(i)-eps(i)*B(i,i);
else d(i,j)=-eps(j)*B(i,j);
end
end
end
% calcul de T1
T=(inv(d)*E');
Tcube=T.^(1/4) %Vecteur où la ième ligne est la température de (Si)
end
%T_finale= |
Partager