home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // Math1.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
- // From: Math1.pas
- //----------------------------------------------------------------------------
- #ifndef Math1HPP
- #define Math1HPP
- //----------------------------------------------------------------------------
- #include <System.hpp>
- namespace Math1
- {
- //-- type declarations -------------------------------------------------------
- typedef void __fastcall (*FeedBackProcType)(long StateCnt);
-
- enum VarType { rnum, dnum, snum, inum, lnum, Bool, strg };
-
- class __declspec(delphiclass) TRandGen;
- class __declspec(pascalimplementation) TRandGen : public System::TObject
- {
- typedef System::TObject inherited;
-
- private:
- double FLowBorder;
- double FHighBorder;
- int FResolution;
- void *FDistVec;
- void __fastcall SetResolution(int res);
- double __fastcall GetProbability(int Idx);
- double __fastcall GetRandNum(void);
- double __fastcall GetLambda(int ix);
- void __fastcall SetProbability(int Idx, double Value);
-
- public:
- __fastcall TRandGen(void);
- __fastcall virtual ~TRandGen(void);
- __property double HighBorder = {read=FHighBorder, write=FHighBorder};
- __property double Lambda[int ix] = {read=GetLambda};
- __property double LowBorder = {read=FLowBorder, write=FLowBorder};
- void __fastcall Normalize(void);
- void __fastcall NormalDistri(double m, double s);
- __property double Probability[int ix] = {read=GetProbability, write=SetProbability};
- __property double Random = {read=GetRandNum};
- int __fastcall IndexOfLambda(double Lambda);
- __property int Resolution = {read=FResolution, write=SetResolution, nodefault};
- void __fastcall UniformDistri(void);
- void __fastcall WeibullDistri(double alpha, double beta);
- };
-
- //-- var, const, procedure ---------------------------------------------------
- extern Extended e;
- extern Extended etom1;
- extern Extended lg2;
- extern Extended lg5;
- extern Extended lge;
- extern Extended lgPi;
- extern Extended ln10;
- extern Extended ln2;
- extern Extended lnPi;
- extern Extended PiH;
- extern Extended PiSqr;
- extern Extended Pitom1;
- extern Extended sqrt2;
- extern Extended sqrt2pi;
- extern Extended sqrt2pitom1;
- extern Extended GoldenR;
- extern Extended MinReal;
- extern Extended MaxReal;
- extern Extended MinSingle;
- extern Extended MaxSingle;
- extern Extended MinDouble;
- extern Extended MaxDouble;
- extern Extended MinExtended;
- extern Extended MaxExtended;
- extern long ProcStat;
- extern FeedBackProcType MathFeedBackProc;
- extern void __fastcall CalcScalePars(int Ntick, double LowVal, double HighVal, double &LowTick, double
- &Distance, Word &Divi);
- extern long __fastcall ScanBin( System::AnsiString Instring, int &Idx);
- extern long __fastcall ScanHex( System::AnsiString Instring, int &Idx);
- extern long __fastcall ScanOctal( System::AnsiString Instring, int &Idx);
- extern long __fastcall ScanDecimal( System::AnsiString Instring, int &Idx);
- extern double __fastcall ScanFPNum( System::AnsiString Instring, bool AllowExp, int DecPChar, int &Idx
- );
- extern System::AnsiString __fastcall strf(double r, int FieldWidth, int DecP);
- extern void __fastcall ExChange(void *x, void *y, Word size);
- extern Byte __fastcall DecodeBit(int ix);
- extern int __fastcall CountBits(Byte InByte);
- extern double __fastcall lg(double x);
- extern double __fastcall ld(double x);
- extern double __fastcall sinh(double x);
- extern double __fastcall cosh(double x);
- extern double __fastcall tgh(double x);
- extern double __fastcall tg(double x);
- extern double __fastcall cot(double x);
- extern System::AnsiString __fastcall MakeEFormat(double x, int w, int d);
- extern System::AnsiString __fastcall Decimal(long innum, Byte places);
- extern System::AnsiString __fastcall Hex(long innum, Byte places);
- extern System::AnsiString __fastcall Octal(long innum, Byte places);
- extern System::AnsiString __fastcall Bin(long innum, Byte places);
- extern long __fastcall SortIntoArray(void * ArrayAdr, long LengArray, VarType TypArray, void * value
- , bool Ascending, bool Dublicates);
- extern void __fastcall InsertIntoArray(void * ArrayAdr, long LengArray, VarType TypArray, void * value
- , long index);
- extern void __fastcall SortArray(void * ArrayAdr, long LengArray, VarType TypArray, bool Ascending);
-
- extern double __fastcall Min(double a, double b);
- extern double __fastcall Max(double a, double b);
- extern int __fastcall Sign(double a);
- extern bool __fastcall BRandom(double p);
- extern double __fastcall GRandom(void);
- extern double __fastcall LongRand(long seed);
- extern bool __fastcall WithinBounds(double Inval, double Boundary1, double Boundary2);
- extern long __fastcall IntPos(double InNum);
- extern long __fastcall IntNeg(double InNum);
- extern Word __fastcall GrayCode(Word InNum);
-
- } /* namespace Math1 */
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Math1;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // Math1
-