Unit SfrProcedures

DescriptionUsesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

 

Uses

Overview

Functions and Procedures

procedure ARCINT (const B,X1,X2,Y1,Y2,H1,H2,HX1,HX2,HY1, HY2,SIGMA : TFloat; const DFLAG: longbool; var HP,HXP,HYP: TFloat; var IER: longint);
procedure CNTOUR (const NX,NY: longint; const X,Y: TNiSingleArray; const Z: TNi_NjSingleArray; const CVAL: TFloat; const LC,NCMAX: longint; var IWK: TLwkIntArray; var XC, YC: TNmaxSingleArray; var ILC: TLwkIntArray; var NC,IER: longint; const IWK_Offset: longint);
procedure COORDS (const XP,YP,X1,X2,X3,Y1,Y2,Y3: TFloat; var B1,B2, B3: TFloat; var IER: longint);
procedure CRPLOT (const LUN: longint; const PLTSIZ: TFloat; const NX,NY: longint; const PX,PY: TNiSingleArray; const PZ: TNi_NjSingleArray; const NCON: longint; var IWK: TLwkIntArray; var XC,YC: TNmaxSingleArray; var IER: longint);
procedure FVAL (const XP,YP,X1,X2,X3,Y1,Y2,Y3,F1,F2,F3, FX1,FX2,FX3,FY1,FY2,FY3,SIG1,SIG2, SIG3: TFloat; var FP: TFloat; var IER: longint);
procedure GETSIG (const N: longint; const X,Y,H: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const HXHY: TNtnxSingleArray; const TOL: TFloat; var SIGMA: TN6SingleArray; var DSMAX: TFloat; var IER: longint);
procedure GIVENS (var A,B, C,S: TFloat);
procedure GRADG (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const IFLGS: longint; const SIGMA: TN6SingleArray; var NIT: longint; var DGMAX: TFloat; var GRAD: TNtnxSingleArray; var IER: longint);
procedure GRADL (const K,NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; var DX,DY: TFloat; var IER: longint);
procedure GRCOEF (const SIGMA,DCUB: TFloat; var D,SD: TFloat);
procedure INTRC0 (const PX,PY: TFloat; const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; var IST: longint; var PZ: TFloat; var IER: longint);
procedure INTRC1 (const PX,PY: TFloat; const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const IFLGS: longint; const SIGMA: TN6SingleArray; const GRAD: TNtnxSingleArray; const DFLAG: longbool; var IST :longint; var PZ,PZX,PZY: TFloat; var IER: longint);
procedure ROTATE (const N: longint; const C,S: TFloat; var X,Y: array of TFloat; const XOffset, YOffset: longint );
procedure SETRO1 (const XK,YK,ZK,XI,YI,ZI,S1,S2,W: TFloat; var ROW: array of TFloat);
procedure SGPRNT (const N,LUNIT: longint; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const SIGMA: TN6SingleArray);
procedure SNHCSH (const X: TFloat; var SINHM,COSHM,COSHMM: TFloat);
procedure TVAL (const X,Y,X1,X2,X3,Y1,Y2,Y3,Z1,Z2,Z3,ZX1, ZX2,ZX3,ZY1,ZY2,ZY3: TFloat; const DFLAG: longbool; var F,FX,FY: TFloat; var IER: longint);
FUNCTION TRVOL (const X1,X2,X3,Y1,Y2,Y3,Z1,Z2,Z3: TFloat): TFloat;
procedure UNIF (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const GRAD: TNtnxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const IFLGS: longint; const SIGMA: TN6SingleArray; const NROW,NX,NY: longint; const PX,PY: TNiSingleArray; const SFLAG: longbool; var SVAL: TFloat; var ZZ: TNi_NjSingleArray; var IER: longint);
FUNCTION VOLUME (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray): TFloat;
procedure ZGRADG (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const IFLGS: longint; const SIGMA: TN6SingleArray; var NIT: longint; var DZMAX : TFloat; var Z: TNmaxSingleArray; var GRAD: TNtnxSingleArray; var IER: longint);
procedure ZINIT (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; var Z: TNmaxSingleArray; var IER: longint);

Description

Functions and Procedures

procedure ARCINT (const B,X1,X2,Y1,Y2,H1,H2,HX1,HX2,HY1, HY2,SIGMA : TFloat; const DFLAG: longbool; var HP,HXP,HYP: TFloat; var IER: longint);
 
procedure CNTOUR (const NX,NY: longint; const X,Y: TNiSingleArray; const Z: TNi_NjSingleArray; const CVAL: TFloat; const LC,NCMAX: longint; var IWK: TLwkIntArray; var XC, YC: TNmaxSingleArray; var ILC: TLwkIntArray; var NC,IER: longint; const IWK_Offset: longint);
 
procedure COORDS (const XP,YP,X1,X2,X3,Y1,Y2,Y3: TFloat; var B1,B2, B3: TFloat; var IER: longint);
 
procedure CRPLOT (const LUN: longint; const PLTSIZ: TFloat; const NX,NY: longint; const PX,PY: TNiSingleArray; const PZ: TNi_NjSingleArray; const NCON: longint; var IWK: TLwkIntArray; var XC,YC: TNmaxSingleArray; var IER: longint);
 
procedure FVAL (const XP,YP,X1,X2,X3,Y1,Y2,Y3,F1,F2,F3, FX1,FX2,FX3,FY1,FY2,FY3,SIG1,SIG2, SIG3: TFloat; var FP: TFloat; var IER: longint);
 
procedure GETSIG (const N: longint; const X,Y,H: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const HXHY: TNtnxSingleArray; const TOL: TFloat; var SIGMA: TN6SingleArray; var DSMAX: TFloat; var IER: longint);
 
procedure GIVENS (var A,B, C,S: TFloat);
 
procedure GRADG (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const IFLGS: longint; const SIGMA: TN6SingleArray; var NIT: longint; var DGMAX: TFloat; var GRAD: TNtnxSingleArray; var IER: longint);
 
procedure GRADL (const K,NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; var DX,DY: TFloat; var IER: longint);
 
procedure GRCOEF (const SIGMA,DCUB: TFloat; var D,SD: TFloat);
 
procedure INTRC0 (const PX,PY: TFloat; const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; var IST: longint; var PZ: TFloat; var IER: longint);
 
procedure INTRC1 (const PX,PY: TFloat; const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const IFLGS: longint; const SIGMA: TN6SingleArray; const GRAD: TNtnxSingleArray; const DFLAG: longbool; var IST :longint; var PZ,PZX,PZY: TFloat; var IER: longint);
 
procedure ROTATE (const N: longint; const C,S: TFloat; var X,Y: array of TFloat; const XOffset, YOffset: longint );
 
procedure SETRO1 (const XK,YK,ZK,XI,YI,ZI,S1,S2,W: TFloat; var ROW: array of TFloat);
 
procedure SGPRNT (const N,LUNIT: longint; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const SIGMA: TN6SingleArray);
 
procedure SNHCSH (const X: TFloat; var SINHM,COSHM,COSHMM: TFloat);
 
procedure TVAL (const X,Y,X1,X2,X3,Y1,Y2,Y3,Z1,Z2,Z3,ZX1, ZX2,ZX3,ZY1,ZY2,ZY3: TFloat; const DFLAG: longbool; var F,FX,FY: TFloat; var IER: longint);
 
FUNCTION TRVOL (const X1,X2,X3,Y1,Y2,Y3,Z1,Z2,Z3: TFloat): TFloat;
 
procedure UNIF (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const GRAD: TNtnxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const IFLGS: longint; const SIGMA: TN6SingleArray; const NROW,NX,NY: longint; const PX,PY: TNiSingleArray; const SFLAG: longbool; var SVAL: TFloat; var ZZ: TNi_NjSingleArray; var IER: longint);
 
FUNCTION VOLUME (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y,Z: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray): TFloat;
 
procedure ZGRADG (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; const IFLGS: longint; const SIGMA: TN6SingleArray; var NIT: longint; var DZMAX : TFloat; var Z: TNmaxSingleArray; var GRAD: TNtnxSingleArray; var IER: longint);
 
procedure ZINIT (const NCC: longint; const LCC: TNcmaxIntArray; const N: longint; const X,Y: TNmaxSingleArray; const LIST,LPTR: TN6IntArray; const LEND: TNmaxIntArray; var Z: TNmaxSingleArray; var IER: longint);
 
Generated by PasDoc 0.12.1 on 2013-05-13 15:42:03