2.Сандық нәтижелерді талқылау
Program M;
Var t:array [1..5] of real; Y: array [1..5] of real;
i: integer; S, P, P1, S1, N, a0, a1, k, k1: real;
Begin
S:=0;
P:=1;
P1:=0;
S1:=0;
for i:=1 to 5 do begin
read (t[i], Y[i]);
S:=S+t[i];
P:=P+Y[i];
S1:=S1+sqr(t[i]);
P1:=P1+t[i]*Y[i];
End;
a1:=(N*P1-P)/(N*S1-S);
a0:=(P-a1*S)/N;
k:=exp(a0);
k1:=a1;
write (k,k1);
End.
Қорытынды ақпарат
Бастапқы және шектік шарттары берілген турдуленттік диффузияның жартылай эмпирикалық теңдеуін қолдану негізінде құрылған турбуленттік атмосферадағы белсенді қоспаның ыдырау моделінің ұқсас басқа да модельдермен нақты салыстырмалы талдауы келесі параграфта келтірілген.
Қолданылған әдебиеттер
[5],[7].
15 Дәріс
Сабақтың тақырыбы: Бастапқы және шектік шарттары берілген турбулентті диффузияның жартылай эмпирикалық теңдеуін сандық тәсілмен шешу
Достарыңызбен бөлісу: |
