Исмаилов Б. Р. Техногенді сипаттағы апаттарды модельдеу және бағалау пәнінен дәрістер жинағы



бет39/41
Дата25.04.2022
өлшемі1,37 Mb.
#140838
1   ...   33   34   35   36   37   38   39   40   41
Байланысты:
лекция

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 Дәріс


Сабақтың тақырыбы: Бастапқы және шектік шарттары берілген турбулентті диффузияның жартылай эмпирикалық теңдеуін сандық тәсілмен шешу


Достарыңызбен бөлісу:
1   ...   33   34   35   36   37   38   39   40   41




©engime.org 2024
әкімшілігінің қараңыз

    Басты бет