Использование современной компьютерной техники и программного обеспечения для определения зависимости температуры раствора от величины pH раствора, страница 10

   Writeln(File_Table);

   Write(File_Table,'       |');

   For i:=1 to k do Write(File_Table,Nxi[1,i]:5,'     ');

   Write(File_Table,'  | ',n,' | ');

   Writeln(File_Table);

   For i:=1 to 83 do Write(File_Table,'-');

   Writeln(File_Table);

   Write(File_Table,'          ');

   For i:=1 to k do Write(File_Table,UsZnach_YXi[1,i]:5:3,'    ');

   Writeln(File_Table);

   Close(File_Table);

{-------------------Вычисление средних значений x и y----------------------}

   Sred_GroupXY;

{--------Вычисление коэффициента корреляции по группированным данным-------}

   Koef_Group_R;

{--------------Вычисление коэффициентов Sx и Sy----------------------------}

   SxSy('Group');

{----------------Составление уравнения регрессии---------------------------}

   Koef_Group1:=-abs(R_Group)*Sy*Sred_GroupX/Sx+Sred_GroupY;

   Koef_Group2:=abs(R_Group)*Sy/Sx;

{-------------------Вычисления для негрупированных данных------------------}

   SredXY;

{--------------------Вычисление коэффициентов корреляции------------------ }

   Koef_No_Group_R;

{-------------------Вычисление коэф Sx Sy---------------------------------- }

   SxSy('No_Group');

{-------------------Составление уравнения регрессии------------------------}

   Koef1:=-abs(R)*Sy/Sx*SredX+SredY;

   Koef2:=abs(R)*Sy/Sx;

{-------------------Метод наименьших квадраиов------------------------------}

{-------------------Проверка линейной зависимости-------------------------}

   D:=n*Summ('x^2')-Summ('x')*Summ('x');

   D1:=Summ('y')*Summ('x^2')-Summ('xy')*Summ('x');

   D2:=n*Summ('xy')-Summ('x')*Summ('y');

   Koef_Lin1:=D1/D;

   Koef_Lin2:=D2/D;

{--------------------Вычисления коэффициентов детерминированности----------}

   SredY:=0;

   For i:=1 to n do SredY:=SredY+Matrix[2,i];

   SredY:=SredY/n;

{-------------------Вычисление теоретических значений ---------------------}

   {1.}

   For i:=1 to n do Matrix_Teor[1,i]:=Koef_Group1+Matrix[1,i]*Koef_Group2;

   {2.}

   For i:=1 to n do Matrix_Teor[2,i]:=Koef1+Matrix[1,i]*Koef2;

   {3.}

   For i:=1 to n do Matrix_Teor[3,i]:=Koef_Lin1+Matrix[1,i]*Koef_Lin2;

{-------------------Вычисление сумм и коэффициентов детерминирования--------}

   For i:=1 to n do S_Poln:=S_Poln+Sqr(Matrix[2,i]-SredY);

   {1.}

   S_Ost:=0;

   For i:=1 to n do S_Ost:=S_Ost+Sqr(Matrix[2,i]-Matrix_Teor[1,i]);

   Koef_R[1]:=1-S_Ost/S_Poln;

   {2.}

   S_Ost:=0;

   For i:=1 to n do S_Ost:=S_Ost+Sqr(Matrix[2,i]-Matrix_Teor[2,i]);

   Koef_R[2]:=1-S_Ost/S_Poln;

   {3.}

   S_Ost:=0;

   For i:=1 to n do S_Ost:=S_Ost+Sqr(Matrix[2,i]-Matrix_Teor[3,i]);

   Koef_R[3]:=1-S_Ost/S_Poln;

{----------------Запись в файл---------------------------------------------}

   Assign(File_Output,Road_Output);

   Rewrite(File_Output);

   Writeln(File_Output,'                      Уравнения регрессий');

   Writeln(File_Output);

   Writeln(File_Output,' Для группированных данных:');

   Writeln(File_Output,'     Коэффициент корреляции: ',abs(R_Group):5:3);

   Writeln(File_Output,'     Уравнение регрессии: ',Koef_Group1:5:3,' + x*',Koef_Group2:5:3);

   Writeln(File_Output,'     Коэффициент детерминированности: ',Koef_R[1]:5:3);

   Writeln(File_Output);

   Writeln(File_Output,' Для негруппированных данных:');

   Writeln(File_Output,'     Коэффициент корреляции: ',abs(R):5:3);

   Writeln(File_Output,'     Уравнение регрессии: ',Koef1:5:3,' + x*',Koef2:5:3);

   Writeln(File_Output,'     Коэфф. детерминированности: ',Koef_R[2]:5:3);

   Writeln(File_Output);

   Writeln(File_Output,' Метод наименьших квадратов:');

   Writeln(File_Output,'     Уравнение регрессии: ',Koef_Lin1:5:3,' + x*',Koef_Lin2:5:3);

   Writeln(File_Output,'     Коэфф. детерминированности: ',Koef_R[3]:5:3);

   Close(File_Output);

End.

Результаты работы программы в TurboPascal.

           Вид файла Output:

                                                       Уравнения регрессий

Для группированных данных:

Коэффициент корреляции: 0.947 Уравнение регрессии: 0.757 + x*0.259 Коэфф. детерминированности: -2.994

Для негруппированных данных: