Unit WANumUtl |
Renamed from NumUtils.pas 6/14/1998 Paul Rice to avoid conflicts with others' work. +----------------------------------------------------------------------------+ | İ İ | | İİ İ İ İ | | İİİ İ İ İ | | İİ İ İ İ | | İ İİ İ İ | | İ İ İİİ İİ İ | | İİ İ İ İİİİİİİİİİ İ | | İ İİ İİ İİİİİİİİİİİİİİİ | | İ İİİ İİİİİİ İİİ İ İİİİİİİİ | | İ İİ İİİİİİİİİİİİ İ İİİİİİİİİİ Copyright İ 1996-1997 by: | | İ İİİİİİ İİİİİİİİİİİ İ İİİİİ İİ | | İ İİİİİİİ İİİİİ İİİİ İİ İİ İ WHITE ANTS SYSTEMHOUSE BV | | İ İİİİİİİ İİİ İİİ İİ İ İİİİ Geleen 12 | | İ İİİİİİİ İ İİ İİİ İ 8032 GB Zwolle | | İİİİİİ İ İ İ Netherlands | | İİİ İİİİİ İ İİ İ İ | | İİ İ İ İİİ İ Tel. +31 38 453 86 31 | | İ İ İ Fax. +31 38 453 41 22 | | İ İ İİ | | İ İ İİ www.whiteants.com | | İİ İ İ İ support@whiteants.com | | İ | +----------------------------------------------------------------------------+ file : NumUtils version : 1.0 comment : NumUtils contains numeric utility procedures author : G. Beuze / J. Laarhoven / R. Post compiler : Delphi 1.0 +----------------------------------------------------------------------------+ | DISCLAIMER: | | THIS SOURCE IS FREEWARE. YOU ARE ALLOWED TO USE IT IN YOUR OWN PROJECTS | | WITHOUT ANY RESTRICTIONS, BUT YOU ARE NOT ALLOWED TO SELL IT IN ANY WAY. | | THERE IS NO WARRANTY AT ALL - YOU USE IT ON YOUR OWN RISC. WHITE ANTS DOES | | NOT ASSUME ANY RESPONSIBILITY FOR ANY DAMAGE OR ANY LOSS OF TIME OR MONEY | | DUE THE USE OF ANY PART OF THIS SOURCE CODE. | +----------------------------------------------------------------------------+
Classes |
Functions |
BitState - Enables ABits bits in State
CompareInt - Returns maximum from x, y
GetMirror - converts order of bytes: $01020304 => $04030201
InRange - Returns 1 if L1 > L2, -1 if L1 < l2 and 0 if L1 = L2
LimitToRange - Returns True if Value >= LowBound and Value <= UpBound
Log2 - Swaps x with y and vice versa
Max2Int - returns minimum from x, y
MaxByte - returns minimum from x, y
MaxFloat - Returns True if State and ABits <> 0 , so if any bit is set }
***************************Floating point utility funtions ****************************
**************************** Floating point utility routines ****************************
MaxLong - returns minimum from x, y
MaxNFloat - Returns minimum from x, y
MaxNInt -
******************** Ordinal type procedures and functions *******************
******************** Ordinal type procedures and functions *******************
MaxWord - returns minimum from x, y
Min2Int - returns minimum of n LongInts, Values must contain at least one item
MinByte - Returns maximum from x, y
MinFloat - Returns maximum from x, y
MinLong - Returns maximum from x, y
MinNFloat - Returns maximum of Values, Values must contain at least one item
MinNInt - returns minimum of n longints, Values must contain at least one item
MinWord - Returns maximum from x, y
MirrorLong - Returns Value if Value in range [LowBound.
PWR - Returns the 2_Log(x) value
SetBits - returns MirrorLong(L)
Sign - returns X^Y, calculated as PWR := Exp(Y * Ln(X)) for X > 0.
SwapFloat - Returns Minimum of Values, Values must contain at least one item
Types |
Constants |
Variables |
Functions |
**************************** Floating point utility routines ****************************
******************** Ordinal type procedures and functions *******************
Types |
Constants |
Variables |