Дәріс 1,2 экстракция үрдісі мазмұны


Ең кіші квадраттар тәсілімен эмпирикалық функция табу



бет9/10
Дата30.05.2020
өлшемі0,65 Mb.
#71791
1   2   3   4   5   6   7   8   9   10
Байланысты:
ЭКСТРАКЦИЯ үрдісі

Ең кіші квадраттар тәсілімен эмпирикалық функция табу

Жоғарыда келтірілген мәселелерді шешіу үшін қажет ең кіші квадраттар тәсілінің бағдарламасын келтіреміз. Бұл бағдарлама негізінен квадраттық және сызықтық регрессия теңдеулерінің коэффициенттерін есептеп береді.


Program MNK;

const n=4;

var s10,s1,s11,s20,s30,s40,s01,s21,Sost2,Sost1,Sysr1,

ysr,Sysr2,d,d0,d1,d2,

a0,a1,a2,b0,b1,f1,f2,s2,

Sostpar,Sypar,Sostlin,Sylin:real;

i:integer;

x,y:array[1..n] of real;

begin

writeln('vvod exp dannyh poparno probelami');



for i:=1 to n do

begin


readln(x[i],y[i]);

s10:=s10+x[i];

s01:=s01+y[i];

s11:=S11+x[i]*y[i];

s21:=s21+sqr(x[i])*y[i];

s20:=s20+sqr(x[i]);

s30:=s30+sqr(x[i])*x[i];

s40:=s30+sqr(x[i])*sqr(x[i]);

end;

d:=s40*s20*n+s30*s10*s20+s30*s10*s20-



s20*s20*s20-s10*s10*s40-s30*s30*n;

d0:=s21*s20*n+s30*s10*s01+s11*s10*s20-

s01*s20*s20-s10*s10*s21-s11*s30*n;

d1:=s40*s11*n+s30*s01*s20+s21*s10*s20-

s20*s11*s20-s01*s10*s40-s30*s21*n;

d2:=s40*s20*s01+s30*s10*s21+s30*s11*s20-

s20*s20*s21-s10*s11*s40-s30*s30*s01;

a0:=d0/d; a1:=d1/d; a2:=d2/d;

writeln('a0=',a0:8:4,' a1=',a1:8:4,' a2=',a2:8:4);

d0:=s20*n-s10*s10;

d1:=s11*n-s01*s10;

d2:=s20*s01-s11*s10;

b0:=d1/d0; b1:=d2/d0;

writeln('b0=',b0:8:4,' b1=', b1:8:4);

f2:=n-2; f1:=n-1;

for i:=1 to n do

begin s2:=s2+sqr(a0*x[i]*x[i]+a1*x[i]+a2-y[i]);

ysr:=ysr+y[i];

s1:=s1+sqr(b0*x[i]+b1-y[i]);

end;


ysr:=ysr/n;

Sost2:=s2/f2;

Sost1:=s1/f1;

for i:=1 to n do

begin

Sysr2:=Sysr2+sqr(a0*x[i]*x[i]+a1*x[i]+a2-ysr);



Sysr1:=Sysr1+sqr(b0*x[i]+b1-ysr);

end;


writeln('Sost2=',Sost2:8:4,' Sysr2=',Sysr2:8:4,

'Sost1=', Sost1:8:4,' Sysr1=', Sysr1:8:4);



end.



Қорытынды
Жалпы Экстракция процестерінің математикалық жане компьютерлік модельдеу деп, әртүрлі ерiгiштiк қасиетке ие болатын, заттар қоспасының толық немесе жартылай бөлiну процесiн атайды. Бұл процесc бөлетiн қоспаны, еріткішпен еріте отырып, одан да оңайырақ еритін зат шығару үшiн қолданылады.

Экстракция процесі күрделі процестерге жатады. Себебі, таңдалған компонеттің сұйықтыққа көшуі күрделі физикалық-химиялық құбылыстарды моделдеуді талап етеді. Бұл бөлім өзекті мәселе-полидисперсті материалдан экстракция процесін модельдеу мәселесін шешуге арналған. Экстракция процесінде қоспадан шыққан зат ерiтiндiге айналады, ал оны таза күйінде айырып алу үшін алынған ерiтiндiні бiр мезгiлде буландыру, кристаллизациялау және қатты денелерді еріту жолымен келесi процеске көшу қажет, яғни қатты денеде қалған еріткішті фильтрлеу, центрифугалау және кептіру процестері атқарылады. Экстрактор деп аталынатын арнайы аппараттарда бөлінетін қоспа және ерiткiш тығыз байланысқа түседі.

Айырып алатын қоспамен ерiткiштiң өзара iс-әрекетiнің нәтижесінде қайта пайда болған фазалардың бөлуiн (сылу) арнайы заттардың көмегімен екi сұйықтық фазаларын еріту арқылы, фильтрлеу, центрифугалау, қорғаныштық қасиеті бар заттарды қосу, немесе (кристаллизация) бiр қатты фазаны бөлетін заттарды қосу арқылы шығарады.



Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10




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

    Басты бет