-
Function RTBIS(X1, X2, XACC:real):real;
Label 99;
var
DX,FMID,F,XMID,RTB:real; J,JMAX:integer;
begin
JMAX:=40;
FMID:=FUN(X2);
F:=FUN(X1);
If F * FMID >= 0 Then
http://www.codebf.com/read/168081/5448663
-
Procedure ZROOTS(A:matrx2; M:integer;var ROOTS:matrx2; POLISH:boolean);
const
EPS = 0.1e-5;
var
AD:matrx2;
X, B, C, DUM:array[0..2] of real;
I,J,JJ:integer; DUM1:real;
begin
http://www.codebf.com/read/168081/5448664
-
Function ZBRENT(X1, X2, TOL:real):real;
var
ITMAX,ITER:integer; ZZ,S,AAA,EPS,FA,FB,FC,C,TOL1,XM,P,Q,R,D,E,A,B:real;
begin
ITMAX:=100;
EPS:=0.00000003;
A:=X1;
B:=X2;
FA
http://www.codebf.com/read/168081/5448665
-
Function RTSAFE(X1, X2, XACC:real):real;
Label 99;
var
J,MAXIT:integer;
FL,FH,F,XL,XH,SWAP,DX,DF,DXOLD,RTS,DUM,TEMP:real;
begin
MAXIT:=100;
FUND(X1, FL, DF);
FUND(X2, FH, D
http://www.codebf.com/read/168081/5448666
-
Function RTFLSP(X1, X2, XACC:real):real;
Label 99;
var
XL,XH,SWAP,FL,FH,RTF,DX,F,DEL:real; J,MAXIT:integer;
begin
MAXIT:=30;
FL:=FUN(X1);
FH:=FUN(X2);
If FL * FH > 0 Then
http://www.codebf.com/read/168081/5448667
-
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 Unit2;
interface
Function ASS(N:integer; B:real):real;
implementation
Function ASS(N:integer; B:real):real;
var
DB:real;A:array[1..15] of real; I:integer;
begin
A[1]:=Exp(-B)
http://www.codebf.com/read/168081/5448868
-
implementation
//PROGRAM D9R1
//Driver for routine MNBRAK
uses
unit2;
{$R *.DFM}
Function FUNC(X:real):real;
begin
FUNC:= BESSJ0(X);
end;
procedure TForm1.Button1Click(Sender: TObj
http://www.codebf.com/read/168081/5448953
-
implementation
//PROGRAM D9R3
//Driver for routine BRENT
uses
unit2;
{$R *.DFM}
Function FUNC(X:real):real;
begin
FUNC:= BESSJ0(X);
end;
procedure TForm1.Button1Click(Sender: TObje
http://www.codebf.com/read/168081/5448954
-
implementation
//PROGRAM D9R5
//Driver for routine AMOEBA
uses
unit2;
{$R *.DFM}
Function FAMOEB(X:array of real):real;
begin
FAMOEB:=0.6- BESSJ0(Sqr(X[1]-0.5)+Sqr(X[2]-0.6)+Sqr(X[3]-0.7
http://www.codebf.com/read/168081/5448955
