maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
10145: procedure MatCorrel(V : TMatrix;
10146: Nvar : Integer;
10147: R : TMatrix); external 'dmath';
10148: { Computes the correlation matrix R from the var-cov matrix V }
10149: procedure PCA(R : TMatrix;
10150: Nvar : Integer;
10151: Lambda : TVector;
10152: C, Rc : TMatrix); external 'dmath';
10153: { Performs a principal component analysis of the correlation matrix R }
10154: procedure ScaleVar(X : TMatrix;
10155: Lb, Ub, Nvar : Integer;
10156: M, S : TVector;
10157: Z : TMatrix); external 'dmath';
10158: { Scales a set of variables by subtracting means and dividing by SD's }
10159: procedure PrinFac(Z : TMatrix;
10160: Lb, Ub, Nvar : Integer;
10161: C, F : TMatrix); external 'dmath';
10162: { Computes principal factors }
10163: { ------------------------------------------------------------------
10164: Strings
10165: ------------------------------------------------------------------ }
10166: function LTrim(S : String) : String; external 'dmath';
10167: { Removes leading blanks }
10168: function RTrim(S : String) : String; external 'dmath';
10169: { Removes trailing blanks }
10170: function Trim(S : String) : String; external 'dmath';
10171: { Removes leading and trailing blanks }
10172: function StrChar(N : Byte; C : Char) : String; external 'dmath';
10173: { Returns a string made of character C repeated N times }
10174: function RFill(S : String; L : Byte) : String; external 'dmath';
10175: { Completes string S with trailing blanks for a total length L }
10176: function LFill(S : String; L : Byte) : String; external 'dmath';
10177: { Completes string S with leading blanks for a total length L }
10178: function CFill(S : String; L : Byte) : String; external 'dmath';
10179: { Centers string S on a total length L }
10180: function Replace(S : String; C1, C2 : Char) : String; external 'dmath';
10181: { Replaces in string S all the occurences of C1 by C2 }
10182: function Extract(S : String; var Index : Byte; Delim : Char) : String; external 'dmath';
10183: { Extracts a field from a string }
10184: procedure Parse(S : String; Delim:Char; Field:TStrVector; var N:Byte); external 'dmath';
10185: { Parses a string into its constitutive fields }
10186: procedure SetFormat(NumLength,MaxDec:Integer;FloatPoint,NSZero:Bool); external 'dmath';
10187: { Sets the numeric format }
10188: function FloatStr(X : Float) : String; external 'dmath';
10189: { Converts a real to a string according to the numeric format }
10190: function IntStr(N : LongInt) : String; external 'dmath';
10191: { Converts an integer to a string }
10192: function CompStr(Z : Complex) : String; external 'dmath';
10193: { Converts a complex number to a string }
10194: {$IFDEF DELPHI}
10195: function StrDec(S : String) : String; external 'dmath';
10196: { Set decimal separator to the symbol defined in SysUtils }
10197: function IsNumeric(var S : String; var X : Float) : Boolean; external 'dmath';
10198: { Test if a string represents a number and returns it in X }
10199: function ReadNumFromEdit(Edit : TEdit) : Float; external 'dmath';
10200: { Reads a floating point number from an Edit control }
10201: procedure WriteNumToFile(var F : Text; X : Float); external 'dmath';
10202: { Writes a floating point number in a text file }
10203: {$ENDIF}
10204: { ------------------------------------------------------------------
10205: BGI / Delphi graphics
10206: ------------------------------------------------------------------ }
10207: function InitGraphics
10208: {$IFDEF DELPHI}
10209: (Width, Height : Integer) : Boolean;
10210: {$ELSE}
10211: (Pilot, Mode : Integer; BGIPath : String) : Boolean; {$ENDIF} external 'dmath';
10212: { Enters graphic mode }
10213: procedure SetWindow({$IFDEF DELPHI}Canvas : TCanvas;{$ENDIF}
10214: X1, X2, Y1,Y2 : Integer; GraphBorder:Boolean); external 'dmath';
10215: { Sets the graphic window }
10216: procedure SetOxScale(Scale : TScale;
10217: OxMin, OxMax, OxStep : Float); external 'dmath';
10218: { Sets the scale on the Ox axis }
10219: procedure SetOyScale(Scale : TScale;
10220: OyMin, OyMax, OyStep : Float); external 'dmath';
10221: { Sets the scale on the Oy axis }
10222: procedure GetOxScale(var Scale : TScale;
10223: var OxMin, OxMax, OxStep : Float); external 'dmath';
10224: { Returns the scale on the Ox axis }
10225: procedure GetOyScale(var Scale : TScale;
10226: var OyMin, OyMax, OyStep : Float); external 'dmath';
10227: { Returns the scale on the Oy axis }
10228: procedure SetGraphTitle(Title : String); external 'dmath'; { Sets the title for the graph }
10229: procedure SetOxTitle(Title : String); external 'dmath'; { Sets the title for the Ox axis }
10230: procedure SetOyTitle(Title : String); external 'dmath'; { Sets the title for the Oy axis }
10231: function GetGraphTitle : String; external 'dmath'; { Returns the title for the graph }
10232: function GetOxTitle : String; external 'dmath'; { Returns the title for the Ox axis }
10233: function GetOyTitle : String; external 'dmath'; { Returns the title for the Oy axis }
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 118