unit1.pas

最小二乘法是修正误差曲线的算法

    form1.StringGrid1.Cells[4,js]:='' ;
    form1.StringGrid1.Cells[3,js]:='' ;
    form1.StringGrid1.Cells[2,js]:='' ;
  end;
  q:=0;
  l:=1;
  b:=11;
  while l<11 do
  begin
    o:=qm(l,b);
    l:=o;
  end;
form1.StringGrid1.Cells[2,1]:='15000';
//for mb:=1 to 11 do
//begin
//form1.StringGrid1.Cells[0,mb]:= floattostr(strtofloat( form1.StringGrid1.Cells[5,mb])-strtofloat(form1.StringGrid1.Cells[1,mb]));
//end;
  end;

procedure TForm1.Button5Click(Sender: TObject);
var mb,jb,js:integer;
begin
  for jb:=1 to q do
    begin
      form1.StringGrid1.Cells[5,jb]:=floattostr( p2[jb]*strtofloat( form1.StringGrid1.Cells[3,jb])+strtofloat( form1.StringGrid1.Cells[4,jb]));
    end;
  Chart1.Title.text.clear;
  Series1.Clear;
  Series2.Clear;
  Chart1.BottomAxis.Increment :=1000;
  Chart1.leftAxis.Increment :=0.01;
  Chart1.BottomAxis.Title.Caption := 'rusm值';
  Chart1.LeftAxis.Title.Caption := '误差值';
  Chart1.Title.Text.Add('K－K’图');
for js:=1 to q do
  begin
    Series1.AddXY( strtofloat(form1.StringGrid1.Cells[2,js]),strtofloat(form1.StringGrid1.Cells[5,js]));
  end;
for js:=1 to 11 do
  begin
    Series2.AddXY(p2[js],strtofloat(form1.StringGrid1.Cells[1,js]))
  end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var i,j,k:integer;
    ms,mn,mf: array[1..10] of integer;
    mz,mx,mc: array[1..10]of string;
begin
  for i:=1 to 16 do
    begin
      for j:=1 to 16  do
        begin
          form1.StringGrid2.Cells[i,j]:='';
        end;
    end;
    for k:=1 to q   do
      begin
        ms[q-k+1]:= strtoint(Floattostr(Trunc( strtofloat(form1.StringGrid1.Cells[2,k])*1000 +0.5)));
        mn[q-k+1]:= strtoint(Floattostr(Trunc( strtofloat(form1.StringGrid1.Cells[3,k])*10000000+0.5)));
        mf[q-k+1]:= strtoint(Floattostr(Trunc(strtofloat(form1.StringGrid1.Cells[4,k])*10000+0.5)));
      end;
    for k:=q to 10 do
      begin
        ms[k]:= 99999999;
        mn[k]:=strtoint(Floattostr(Trunc( strtofloat(form1.StringGrid1.Cells[3,q])*10000000+0.5)));
        mf[k]:=strtoint(Floattostr(Trunc(strtofloat(form1.StringGrid1.Cells[4,q])*10000+0.5)));
      end;
    for k:=1 to 10 do
      begin
        if mn[k]>0 then
          begin
            mx[k]:=inttohex((mn[k]),8);
          end;
        if mn[k]<0 then
          begin
            mx[k]:=inttohex((301989888+abs(mn[k])),8);
          end;
        if mf[k]>0 then
          begin
            mc[k]:=inttohex(mf[k],8);
          end;
        if mf[k]>0 then
          begin
            mc[k]:=inttohex((301989888+abs(mf[k])),8);
          end;
      end;

  for k:=1 to 9 do
    begin
      if ms[k]<16711680 then
        begin
          mz[k]:=inttohex(ms[k],6);
        end;
      if ms[k]>16711680 then
        begin
          mz[k]:=inttohex(16711680,6);
        end;
     end;
    mz[10]:='FFFFFF';
//显示
form1.StringGrid2.Cells[0,1]:='3000h';
form1.StringGrid2.Cells[0,2]:='3010h';
form1.StringGrid2.Cells[0,3]:='3020h';
form1.StringGrid2.Cells[0,4]:='3030h';
form1.StringGrid2.Cells[0,5]:='3040h';
form1.StringGrid2.Cells[0,6]:='3050h';
form1.StringGrid2.Cells[0,7]:='3060h';
form1.StringGrid2.Cells[0,8]:='3070h';
form1.StringGrid2.Cells[0,9]:='3080h';
form1.StringGrid2.Cells[0,10]:='3090h';
form1.StringGrid2.Cells[0,11]:='30A0h';
form1.StringGrid2.Cells[0,12]:='30B0h';
form1.StringGrid2.Cells[0,13]:='30C0h';
form1.StringGrid2.Cells[0,14]:='30D0h';
form1.StringGrid2.Cells[0,15]:='30E0h';
form1.StringGrid2.Cells[0,16]:='30F0h';
form1.StringGrid2.Cells[1,1]:='01';
form1.StringGrid2.Cells[2,1]:=copy(mz[1],5,2);
form1.StringGrid2.Cells[3,1]:=copy(mz[1],3,2);
form1.StringGrid2.Cells[4,1]:=copy(mz[1],1,2);
form1.StringGrid2.Cells[5,1]:=copy(mz[2],5,2);
form1.StringGrid2.Cells[6,1]:=copy(mz[2],3,2);
form1.StringGrid2.Cells[7,1]:=copy(mz[2],1,2);
form1.StringGrid2.Cells[8,1]:=copy(mz[3],5,2);
form1.StringGrid2.Cells[9,1]:=copy(mz[3],3,2);
form1.StringGrid2.Cells[10,1]:=copy(mz[3],1,2);
form1.StringGrid2.Cells[11,1]:=copy(mz[4],5,2);
form1.StringGrid2.Cells[12,1]:=copy(mz[4],3,2);
form1.StringGrid2.Cells[13,1]:=copy(mz[4],1,2);
form1.StringGrid2.Cells[14,1]:=copy(mz[5],5,2);
form1.StringGrid2.Cells[15,1]:=copy(mz[5],3,2);
form1.StringGrid2.Cells[16,1]:=copy(mz[5],1,2);
form1.StringGrid2.Cells[1,2]:=copy(mz[6],5,2);
form1.StringGrid2.Cells[2,2]:=copy(mz[6],3,2);
form1.StringGrid2.Cells[3,2]:=copy(mz[6],1,2);
form1.StringGrid2.Cells[4,2]:=copy(mz[7],5,2);
form1.StringGrid2.Cells[5,2]:=copy(mz[7],3,2);
form1.StringGrid2.Cells[6,2]:=copy(mz[7],1,2);
form1.StringGrid2.Cells[7,2]:=copy(mz[8],5,2);
form1.StringGrid2.Cells[8,2]:=copy(mz[8],3,2);
form1.StringGrid2.Cells[9,2]:=copy(mz[8],1,2);
form1.StringGrid2.Cells[10,2]:=copy(mz[9],5,2);
form1.StringGrid2.Cells[11,2]:=copy(mz[9],3,2);
form1.StringGrid2.Cells[12,2]:=copy(mz[9],1,2);
form1.StringGrid2.Cells[13,2]:=copy(mz[10],5,2);
form1.StringGrid2.Cells[14,2]:=copy(mz[10],3,2);
form1.StringGrid2.Cells[15,2]:=copy(mz[10],1,2);
form1.StringGrid2.Cells[16,2]:=copy(mx[1],7,2);
form1.StringGrid2.Cells[1,3]:=copy(mx[1],5,2);
form1.StringGrid2.Cells[2,3]:=copy(mx[1],3,2);
form1.StringGrid2.Cells[3,3]:=copy(mx[1],1,2);
form1.StringGrid2.Cells[4,3]:=copy(mx[2],7,2);
form1.StringGrid2.Cells[5,3]:=copy(mx[2],5,2);
form1.StringGrid2.Cells[6,3]:=copy(mx[2],3,2);
form1.StringGrid2.Cells[7,3]:=copy(mx[2],1,2);
form1.StringGrid2.Cells[8,3]:=copy(mx[3],7,2);
form1.StringGrid2.Cells[9,3]:=copy(mx[3],5,2);
form1.StringGrid2.Cells[10,3]:=copy(mx[3],3,2);
form1.StringGrid2.Cells[11,3]:=copy(mx[3],1,2);
form1.StringGrid2.Cells[12,3]:=copy(mx[4],7,2);
form1.StringGrid2.Cells[13,3]:=copy(mx[4],5,2);
form1.StringGrid2.Cells[14,3]:=copy(mx[4],3,2);
form1.StringGrid2.Cells[15,3]:=copy(mx[4],1,2);
form1.StringGrid2.Cells[16,3]:=copy(mx[5],7,2);
form1.StringGrid2.Cells[1,4]:=copy(mx[5],5,2);
form1.StringGrid2.Cells[2,4]:=copy(mx[5],3,2);
form1.StringGrid2.Cells[3,4]:=copy(mx[5],1,2);
form1.StringGrid2.Cells[4,4]:=copy(mx[6],7,2);
form1.StringGrid2.Cells[5,4]:=copy(mx[6],5,2);
form1.StringGrid2.Cells[6,4]:=copy(mx[6],3,2);
form1.StringGrid2.Cells[7,4]:=copy(mx[6],1,2);
form1.StringGrid2.Cells[8,4]:=copy(mx[7],7,2);
form1.StringGrid2.Cells[9,4]:=copy(mx[7],5,2);
form1.StringGrid2.Cells[10,4]:=copy(mx[7],3,2);
form1.StringGrid2.Cells[11,4]:=copy(mx[7],1,2);
form1.StringGrid2.Cells[12,4]:=copy(mx[8],7,2);
form1.StringGrid2.Cells[13,4]:=copy(mx[8],5,2);
form1.StringGrid2.Cells[14,4]:=copy(mx[8],3,2);
form1.StringGrid2.Cells[15,4]:=copy(mx[8],1,2);
form1.StringGrid2.Cells[16,4]:=copy(mx[9],7,2);
form1.StringGrid2.Cells[1,5]:=copy(mx[9],5,2);
form1.StringGrid2.Cells[2,5]:=copy(mx[9],3,2);
form1.StringGrid2.Cells[3,5]:=copy(mx[9],1,2);
form1.StringGrid2.Cells[4,5]:=copy(mx[10],7,2);
form1.StringGrid2.Cells[5,5]:=copy(mx[10],5,2);
form1.StringGrid2.Cells[6,5]:=copy(mx[10],3,2);
form1.StringGrid2.Cells[7,5]:=copy(mx[10],1,2);
form1.StringGrid2.Cells[8,5]:=copy(mc[1],7,2);
form1.StringGrid2.Cells[9,5]:=copy(mc[1],5,2);
form1.StringGrid2.Cells[10,5]:=copy(mc[1],3,2);
form1.StringGrid2.Cells[11,5]:=copy(mc[1],1,2);
form1.StringGrid2.Cells[12,5]:=copy(mc[2],7,2);
form1.StringGrid2.Cells[13,5]:=copy(mc[2],5,2);
form1.StringGrid2.Cells[14,5]:=copy(mc[2],3,2);
form1.StringGrid2.Cells[15,5]:=copy(mc[2],1,2);
form1.StringGrid2.Cells[16,5]:=copy(mc[3],7,2);
form1.StringGrid2.Cells[1,6]:=copy(mc[3],5,2);
form1.StringGrid2.Cells[2,6]:=copy(mc[3],3,2);
form1.StringGrid2.Cells[3,6]:=copy(mc[3],1,2);
form1.StringGrid2.Cells[4,6]:=copy(mc[4],7,2);
form1.StringGrid2.Cells[5,6]:=copy(mc[4],5,2);
form1.StringGrid2.Cells[6,6]:=copy(mc[4],3,2);
form1.StringGrid2.Cells[7,6]:=copy(mc[4],1,2);
form1.StringGrid2.Cells[8,6]:=copy(mc[5],7,2);
form1.StringGrid2.Cells[9,6]:=copy(mc[5],5,2);
form1.StringGrid2.Cells[10,6]:=copy(mc[5],3,2);
form1.StringGrid2.Cells[11,6]:=copy(mc[5],1,2);
form1.StringGrid2.Cells[12,6]:=copy(mc[6],7,2);
form1.StringGrid2.Cells[13,6]:=copy(mc[6],5,2);
form1.StringGrid2.Cells[14,6]:=copy(mc[6],3,2);
form1.StringGrid2.Cells[15,6]:=copy(mc[6],1,2);
form1.StringGrid2.Cells[16,6]:=copy(mc[7],7,2);
form1.StringGrid2.Cells[1,7]:=copy(mc[7],5,2);
form1.StringGrid2.Cells[2,7]:=copy(mc[7],3,2);
form1.StringGrid2.Cells[3,7]:=copy(mc[7],1,2);
form1.StringGrid2.Cells[4,7]:=copy(mc[8],7,2);
form1.StringGrid2.Cells[5,7]:=copy(mc[8],5,2);
form1.StringGrid2.Cells[6,7]:=copy(mc[8],3,2);
form1.StringGrid2.Cells[7,7]:=copy(mc[8],1,2);
form1.StringGrid2.Cells[8,7]:=copy(mc[9],7,2);
form1.StringGrid2.Cells[9,7]:=copy(mc[9],5,2);
form1.StringGrid2.Cells[10,7]:=copy(mc[9],3,2);
form1.StringGrid2.Cells[11,7]:=copy(mc[9],1,2);
form1.StringGrid2.Cells[12,7]:=copy(mc[10],7,2);
form1.StringGrid2.Cells[13,7]:=copy(mc[10],5,2);
form1.StringGrid2.Cells[14,7]:=copy(mc[10],3,2);
form1.StringGrid2.Cells[15,7]:=copy(mc[10],1,2);
end;




end.