maXbox3 3.9.9.195 14/05/2015 08:37:17 AM
maXbox3 3.9.9.80 13.11.2013 11:25:53
maXbox3 3.9.9.80 13.11.2013 11:25:53
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />
<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />
9077: // see more docs/dmath_manual.pdf<br />
9078:<br />
9079: Function InitEval : Integer<br />
9<strong>08</strong>0: Procedure SetVariable( VarName : Char; Value : Float)<br />
9<strong>08</strong>1: Procedure SetFunction( FuncName : String; Wrapper : TWrapper)<br />
9<strong>08</strong>2: Function Eval( ExpressionString : String) : Float<br />
9<strong>08</strong>3:<br />
9<strong>08</strong>4: unit dmath; //types are in built, others are external in DLL<br />
9<strong>08</strong>5: interface<br />
9<strong>08</strong>6: {$IFDEF DELPHI}<br />
9<strong>08</strong>7: uses<br />
9<strong>08</strong>8: StdCtrls, Graphics;<br />
9<strong>08</strong>9: {$ENDIF}<br />
9090: { ------------------------------------------------------------------<br />
9091: Types and constants<br />
9092: ------------------------------------------------------------------ }<br />
9093: {$i types.inc}<br />
9094: { ------------------------------------------------------------------<br />
9095: Error handling<br />
9096: ------------------------------------------------------------------ }<br />
9097: procedure SetErrCode(ErrCode : Integer); external 'dmath';<br />
9098: { Sets the error code }<br />
9099: function DefaultVal(ErrCode : Integer; DefVal : Float) : Float; external 'dmath';<br />
9100: { Sets error code and default function value }<br />
9101: function MathErr : Integer; external 'dmath';<br />
9102: { Returns the error code }<br />
9103: { ------------------------------------------------------------------<br />
9104: Dynamic arrays<br />
91<strong>05</strong>: ------------------------------------------------------------------ }<br />
9106: procedure SetAutoInit(AutoInit : Boolean); external 'dmath';<br />
9107: { Sets the auto-initialization of arrays }<br />
91<strong>08</strong>: procedure DimVector(var V : TVector; Ub : Integer); external 'dmath';<br />
9109: { Creates floating point vector V[0..Ub] }<br />
9110: procedure DimIntVector(var V : TIntVector; Ub : Integer); external 'dmath';<br />
9111: { Creates integer vector V[0..Ub] }<br />
9112: procedure DimCompVector(var V : TCompVector; Ub : Integer); external 'dmath';<br />
9113: { Creates complex vector V[0..Ub] }<br />
91<strong>14</strong>: procedure DimBoolVector(var V : TBoolVector; Ub : Integer); external 'dmath';<br />
9115: { Creates boolean vector V[0..Ub] }<br />
9116: procedure DimStrVector(var V : TStrVector; Ub : Integer); external 'dmath';<br />
91<strong>17</strong>: { Creates string vector V[0..Ub] }<br />
9118: procedure DimMatrix(var A : TMatrix; Ub1, Ub2 : Integer); external 'dmath';<br />
9119: { Creates floating point matrix A[0..Ub1, 0..Ub2] }<br />
9120: procedure DimIntMatrix(var A : TIntMatrix; Ub1, Ub2 : Integer); external 'dmath';<br />
9121: { Creates integer matrix A[0..Ub1, 0..Ub2] }<br />
9122: procedure DimCompMatrix(var A : TCompMatrix; Ub1, Ub2 : Integer); external 'dmath';<br />
9123: { Creates complex matrix A[0..Ub1, 0..Ub2] }<br />
9124: procedure DimBoolMatrix(var A : TBoolMatrix; Ub1, Ub2 : Integer); external 'dmath';<br />
9125: { Creates boolean matrix A[0..Ub1, 0..Ub2] }<br />
9126: procedure DimStrMatrix(var A : TStrMatrix; Ub1, Ub2 : Integer); external 'dmath';<br />
9127: { Creates string matrix A[0..Ub1, 0..Ub2] }<br />
9128: { ------------------------------------------------------------------<br />
9129: Minimum, maximum, sign and exchange<br />
9130: ------------------------------------------------------------------ }<br />
9131: function FMin(X, Y : Float) : Float; external 'dmath';<br />
9132: { Minimum of 2 reals }<br />
9133: function FMax(X, Y : Float) : Float; external 'dmath';<br />
9134: { Maximum of 2 reals }<br />
9135: function IMin(X, Y : Integer) : Integer; external 'dmath';<br />
9136: { Minimum of 2 integers }<br />
91<strong>37</strong>: function IMax(X, Y : Integer) : Integer; external 'dmath';<br />
9138: { Maximum of 2 integers }<br />
9139: function Sgn(X : Float) : Integer; external 'dmath';<br />
9<strong>14</strong>0: { Sign (returns 1 if X = 0) }<br />
9<strong>14</strong>1: function Sgn0(X : Float) : Integer; external 'dmath';<br />
9<strong>14</strong>2: { Sign (returns 0 if X = 0) }<br />
9<strong>14</strong>3: function DSgn(A, B : Float) : Float; external 'dmath';<br />
9<strong>14</strong>4: { Sgn(B) * |A| }<br />
9<strong>14</strong>5: procedure FSwap(var X, Y : Float); external 'dmath';<br />
9<strong>14</strong>6: { Exchange 2 reals }<br />
9<strong>14</strong>7: procedure ISwap(var X, Y : Integer); external 'dmath';<br />
9<strong>14</strong>8: { Exchange 2 integers }<br />
9<strong>14</strong>9: { ------------------------------------------------------------------<br />
9150: Rounding functions<br />
9151: ------------------------------------------------------------------ }<br />
9152: function RoundN(X : Float; N : Integer) : Float; external 'dmath';<br />
9153: { Rounds X to N decimal places }<br />
9154: function Ceil(X : Float) : Integer; external 'dmath';<br />
9155: { Ceiling function }<br />
9156: function Floor(X : Float) : Integer; external 'dmath';<br />
9157: { Floor function }<br />
9158: { ------------------------------------------------------------------<br />
9159: Logarithms, exponentials and power<br />
9160: ------------------------------------------------------------------ }<br />
9161: function Expo(X : Float) : Float; external 'dmath';<br />
9162: { Exponential }<br />
9163: function Exp2(X : Float) : Float; external 'dmath';<br />
9164: { 2^X }<br />
9165: function Exp10(X : Float) : Float; external 'dmath';<br />
PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />
http://www.softwareschule.ch/maxbox.htm T: 297<br />
p: 106