regress.dpr

很不错的非线性回归分析程序

program Regress;

uses
  Forms,
  windows,
  SysUtils,
  UnitLinearRegress in 'UnitLinearRegress.pas' {frmLR},
  UnitLinearRegressFunction in 'UnitLinearRegressFunction.pas',
  UnitAbout in 'UnitAbout.pas' {frmAbout},
  UnitAuto in 'UnitAuto.pas' {frmMain},
  RunExe_Hss in 'RunExe_Hss.pas',
  Compile_Hss in 'Compile_Hss.pas',
  UnitFP in 'UnitFP.pas',
  UnitfrmFlash in 'UnitfrmFlash.pas' {frmFlash},
  UnitPropertiesSet in 'UnitPropertiesSet.pas' {frmPropertiesSet},
  UnitfrmLook in 'UnitfrmLook.pas' {frmLook},
  UnitfrmEditFunction in 'UnitfrmEditFunction.pas' {frmEditFunction},
  UnitfrmLRGetData in 'UnitfrmLRGetData.pas' {frmLRGetData},
  FileVision_hss in 'FileVision_hss.pas';

{$E exe}

{$R *.res}
var
  i       :integer;
  strList :string;
begin
  Application.Initialize;
  Application.Title := '多元非线性回归分析1.0';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmFlash, frmFlash);
  frmFlash.TimerClose.Enabled:=true;
  frmFlash.Show;
  frmFlash.Refresh;

  FieldDefsAssign(ClientDataSetDataOldTemp);
  setlength(ClientDataSetData,DataMaxIndex);
  for i:=0 to DatamaxIndex-1 do
  begin
    FieldDefsAssign(ClientDataSetData[i]);
    frmMain.TabDataIndex.Tabs.Add('数据表'+inttostr(i));
  end;
  ClientDataSetDataOld:=ClientDataSetData[0];
  frmMain.DataSourceDataOld.DataSet:=ClientDataSetDataOld;
  frmMain.TabDataIndex.TabIndex:=0;

  strList:='';
  for i:=0 to DataLength-1 do
    strList:=strList+'d'+inttostr(i)+#13+#10;
  frmMain.ComboBox4.Items.Text:=strList;
  frmMain.ComboBox1.Items.Text:=strList;
  frmMain.ComboBox6.Items.Text:=strList;
  frmMain.ComboBox5.Items.Text:=strList;
  frmMain.ComboBox2.Items.Text:=strList;
  frmMain.ComboBox3.Items.Text:=strList;
  //frmMain.ComboBox4.ItemIndex:=0;
  frmMain.ComboBox1.ItemIndex:=0;
  frmMain.ComboBox6.ItemIndex:=1;
  frmMain.ComboBox5.ItemIndex:=0;
  frmMain.ComboBox2.ItemIndex:=0;
  frmMain.ComboBox3.ItemIndex:=1;
  strList:='';
  
  SetPriorityClass(GetCurrentProcess(),IDLE_PRIORITY_CLASS);

  Application.Run;
end.