Программа на объектно-ориентированном языке Delphi7 для математической задачи определения параметров линейной и показательной регрессии

align="justify">    StringGrid1.RowCount := StrToInt(Edit1.Text)+1;

    for i:=1 to StringGrid1.RowCount do

      StringGrid1.Cells[0,i]:=IntToStr(i);

    end;

    procedure TForm1.FormCreate(Sender: TObject);

    var i:integer;

    begin

    StringGrid1.Cells[0,0]:='N';

    StringGrid1.Cells[1,0]:='Xi';

    StringGrid1.Cells[2,0]:='Yi';

    for i:=1 to StringGrid1.RowCount do

      StringGrid1.Cells[0,i]:=IntToStr(i);

    end;

    procedure TForm1.BitBtn1Click(Sender: TObject);

    var n,i:integer;

        p,q:extended;

    begin

     try

      n:=StrToInt(Edit1.Text);

      for i:=1 to n do

        begin

          x[i]:=StrToFloat(StringGrid1.Cells[1,i]);

          y[i]:=StrToFloat(StringGrid1.Cells[2,i]);

        end;

      if RadioGroup1.ItemIndex = 0 then

        begin

          Linear(n,x,y,p,q);

          Label5.Caption := 'y = ' + FloatToStr(p) + ' + ' + FloatToStr(q) + '*x';

          Label5.Visible := true;

        end else

        begin

          Exponent(n,x,y,p,q);

          Label6.Caption := 'y = ' + FloatToStr(p) + ' * ' + FloatToStr(q) + '^x';

          Label6.Visible := true;

        end;

     except

      ShowMessage('Неверный формат ввода');

      exit;

     end;

    end;

    procedure TForm1.BitBtn2Click(Sender: TObject);

    begin

    Close();

    end;

    end.

    Для подключения модуля к проекту, выполняем следующие действия:

1. В меню Project выполняем команду Add To Project… и выбираем файл Method.pas, содержащий модуль.
2. В разделе Uses модуля Unit1 добавляем имя подключаемого модуля Method.

    После компиляции программы проверим ее на контрольном примере.

 

     Разработка контрольного примера

    Рассмотрим задачу определения коэффициентов линейной и показательной регрессии на выборке:

    Результатом программы является:

1. Параметры a и b линейной регрессии со значениями , .
2. Параметры a и b показательной регрессии со значениями , .

    Результат работы программы представлен на рисунке 5

    

    Рисунок 5. Результат работы программы на контрольном примере

    Полученные  результаты совпадают с результатами, посчитанными при помощи Excel, следовательно, делаем вывод, что программа работает правильно.

 

     Выводы по работе

    В процессе написания курсовой работы были выполнены следующие основные задачи:

• разработана программа на объектно-ориентированном языке Delphi7 для математической задачи определения параметров линейной и показательной регрессии;
• для обмена данными между пользователем и приложением был разработан пользовательский интерфейс;
• в качестве метода решения задачи был выбран метод наименьших квадратов;
• для решения математической части задачи создан отдельный модуль Method.pas, который откомпилирован и проверен в консольном режиме;
• разработан контрольный пример, демонстрирующий правильную работу программы.

    В дальнейшем данная программа может  быть использована для поиска коэффициентов линейной и показательной регрессии для различных выборок. Для этого не придется переделывать пользовательский интерфейс, а лишь необходимо установить размер выборки в программе и заполнить таблицу данных. 

    Литература

1. Климова, Л.М. Delphi 7. Основы программирования. Решение типовых задач. Самоучитель – Москва: КУДИЦ-ОБРАЗ, 2004. – 480с.
2. Терентьев, В.П. Методические указания к курсовому проектированию для студентов механических специальностей по предметам цикла Информатика / В.П. Терентьев и др. – УО «Витебский гос. техн. ун-т». – 2004г.
3. Фаронов, В.В. Turbo Pascal 7.0. Начальный курс. Учебное пособие – Москва: КноРус, 2007. – 576с.