-
unit Gld812_01;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
BAS100_01;
type
TGld812_01Form = class(TBas100_01Form)
procedure FormCre
http://www.codebf.com/read/168593/5443593
-
unit Gld650_01;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
BAS100_01;
type
TGld650_01Form = class(TBas100_01Form)
procedure FormCre
http://www.codebf.com/read/168593/5443595
-
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm4 = class(TForm)
Memo1: TMemo;
procedure FormCreate
http://www.codebf.com/read/168081/5448421
-
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,unit5,db, ADODB;
type
TForm6 = class(TForm5)
procedure FormCreate(S
http://www.codebf.com/read/168081/5448592
-
implementation
//PROGRAM D12R4
//Driver for routine ODEINT
uses
unit2;
{$R *.DFM}
procedure DERIVS(X:real; Y:array of real;var DYDX:array of real);
begin
DYDX[1]:= -Y[2];
DYDX[2]:
http://www.codebf.com/read/168081/5448650
-
implementation
//PROGRAM D12R1
//Driver for routine RK4
uses
unit2;
{$R *.DFM}
procedure DERIVS(X:real; Y:array of real;var DYDX:array of real);
begin
DYDX[1]:= -Y[2];
DYDX[2]:= Y
http://www.codebf.com/read/168081/5448652
-
implementation
//PROGRAM D1R9
//Driver for routine SPARSE
uses
unit2;
{$R *.DFM}
procedure ASUB(XIN:array of real;var XOUT:array of real);
var
I,N:integer;
begin
N:= 20;
XOUT
http://www.codebf.com/read/168081/5448668
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure DERIVS(X:real; Y:array of real;var DYDX:array of real);
type
T
http://www.codebf.com/read/168081/5448688
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure DERIVS(X:real; Y:array of real;var DYDX:array of real);
type
T
http://www.codebf.com/read/168081/5448693
-
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
procedure DERIVS(X:real; Y:array of real;var DYDX:array of real);
type
T
http://www.codebf.com/read/168081/5448699
