mgs_demo.dpr

来自「delphi矩阵运算、回归分析等数学计算」· DPR 代码 · 共 20 行

{#BACKUP D:\SourceCode\Delphi\Units\MathCode\MGS_LSQ.pas}
{#BACKUP D:\SourceCode\Delphi\Units\MathCode\TestData.pas}

program MGS_Demo;

uses
  Forms,
  Dialogs,
  MGS_Test in 'MGS_Test.pas' {Form1};

{$R *.RES}

BEGIN
{$IFDEF VER80}
{$ELSE}
  Application.Initialize;
{$ENDIF}
  Application.Title := 'Modified Gram-Schmidt Demo';
  ShowMessage('