ifd<>0 then

Begin

u:=(z1*d22-z2*d12)/d;

w:=(z2*d11-z1*d12)/d;

End

Else begin

writeln('Система не имеет решений');

Exit

end;

{выдача на экран полученных значений}

writeln('A=',Exp (u):10:5,'B=',w:10:5);

{вывод данных в файл,'Res.dat'}

Assign(DataFile,'Res.dat');

Rewrite(DataFile);

For i:=1 to N do

writeln(DataFile,X[i]:10:5,Y[i]:10:5,Exp(u)*Step(X[i],w):10:5);

Close(DataFile);

writeln('ввидите значение х1');

Readln(x1);

writeln ('при х=х1 у1=',Exp(u)*Step(X1,w):10:5);

writeln('ввидите значение х2');

Readln(x2);

writeln ('при х=х2 у2=',Exp(u)*Step(X2,w):10:5);

end.

3.2 Обработка полученных результатов

Рассмотрим применение степенной зависимости на ниже приведенном примере.

Требуется по МНК для показательной функции определить функциональную зависимость и вычислить λ при Т₁=1233К и Т₂=1673К

Решение

A= 0.00008;B1=01318

введите значение х1=1223

при х=х1,у1= 0.10446

введите значение х2=1673

при х=х2,у2= 0.14349

Таблица 3.Зависимость коэффициента теплопроводности от температуры

Рисунок 3. Зависимость коэффициента теплопроводности от температуры

3.3 Самостоятельная работа

8 вариант.

Коэффициент формы угольных частиц (степень отличия от сферической формы)зависит от размера частицы следующим образом(см. табл. 4)

Обобщить эти данные по МНК для получения функциональной зависимости вида и определить коэффициент формы для частиц размером 100 мкм и 900 мкм.

Решение

A=0.82300; B=0.15832

введите значение х₁=100

при х=х_1, у₁= 1.70622

введите значение х₂=900

при х=х_2, у₂= 2.41607

Таблица 4.Зависимомть коэффициента угольной частицы от ее размера

1–экспериментальная кривая

2– аппроксимированная кривая

Рисунок 4.Зависимомть коэффициента угольной частицы от ее размера