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

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

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');

begin

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-

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;

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);

end;

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

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

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