Приложение 10. Фрагмент кода программного комплекса прогнозирования сроков агротехнологических операций в среде программирования Delphi (кнопка «Построение уравнений

Фрагмент кода программного комплекса прогнозирования сроков агротехнологических операций в среде программирования Delphi (кнопка «Построение уравнений регрессии»)

….

procedure TForm2.Button2Click(Sender: TObject);

var

i,count:integer;

x_sum, x2_sum,y_sum,xy_sum:real;

x_sred,yyy:real;

begin

ADOQuery4.SQL.Text:='select sum(value) as sum_year,year(Date) as dd, DATEDIFF(DAY,CONVERT(datetime, str(:b2)+''/''+str(:b6)+''/''+str(year(min(Date))), 104),min(Date)) as ad ';

ADOQuery4.SQL.Append(' from TEXKARTA.dbo.Value$ where Agroclimat_charact_ID=:b1 and value>=:b5 and ltrim(rtrim(str(month(Date))))+ltrim(rtrim(str(day(Date))))>=:b3 and ltrim(rtrim(str(month(Date))))+ltrim(rtrim(str(day(Date))))<=:b4 group by year(Date)');

ADOQuery4.Parameters.ParamByName('b1').Value:=DBLookupComboBox4.KeyValue;

ADOQuery4.Parameters.ParamByName('b2').Value:=Copy(Edit1.text,1,2);

ADOQuery4.Parameters.ParamByName('b6').Value:=Copy(Edit1.text,4,2);

ADOQuery4.Parameters.ParamByName('b3').Value:=inttostr(ComboBox2.ItemIndex+1) + ComboBox1.Text;

ADOQuery4.Parameters.ParamByName('b4').Value:=inttostr(ComboBox4.ItemIndex+1) + ComboBox3.Text;

ADOQuery4.Parameters.ParamByName('b5').Value:=strtofloat(Edit3.text);

ADOQuery4.Open;

for i:=0 to StringGrid1.ColCount-1 do StringGrid1.cells[i,1]:='';

StringGrid1.cells[0,0]:= 'Год';

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

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

i:=1;

if ADOQuery4.RecordCount>0 then begin

StringGrid1.RowCount:=ADOQuery4.RecordCount+1; //количество строк

x_sum:=0; x2_sum:=0; xy_sum:=0; y_sum:=0; count:=0;

ADOQuery4.first;

while not ADOQuery4.Eof do begin

StringGrid1.cells[0,i]:= ADOQuery4.FieldByName('dd').AsString;

StringGrid1.cells[1,i]:= ADOQuery4.FieldByName('sum_year').AsString;

StringGrid1.cells[2,i]:= ADOQuery4.FieldByName('ad').AsString;

x_sum:=x_sum+ADOQuery4.FieldByName('sum_year').AsFloat;

x2_sum:=x2_sum+ADOQuery4.FieldByName('sum_year').AsFloat*ADOQuery4.FieldByName('sum_year').AsFloat;

y_sum:=y_sum+ADOQuery4.FieldByName('ad').AsFloat;

xy_sum:=xy_sum+ ADOQuery4.FieldByName('sum_year').AsFloat*ADOQuery4.FieldByName('ad').AsFloat;

inc(count);

inc(i);

ADOQuery4.Next;

end;

yyy:=(count*xy_sum-x_sum*y_sum)/(count*x2_sum-x_sum*x_sum);

Edit4.text:=floattostr(yyy); //b

Edit2.Text:=floattostr((y_sum-yyy*x_sum)/count); //a

end

else StringGrid1.RowCount:=2;;

end;

….

Date: 2015-11-14; view: 295; Нарушение авторских прав