2002-02-26 12:19:02 +00:00
|
|
|
/* Include this only when compiling MathLib source code.
|
|
|
|
|
*
|
|
|
|
|
* Greenleaf Financial Mathlib
|
|
|
|
|
*
|
|
|
|
|
* Contains definitions and prototypes used by internal routines.
|
|
|
|
|
* Copyright (C)1987-1990 Greenleaf Software Inc. All rights reserved.
|
|
|
|
|
*/
|
2003-05-01 14:42:54 +00:00
|
|
|
|
2002-02-26 12:19:02 +00:00
|
|
|
#ifndef GMDOTH
|
|
|
|
|
#include <gm.h>
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#define GM_IMAXID 23 /* values for intermediate calcs. */
|
|
|
|
|
#define GM_IMINID 0
|
|
|
|
|
|
|
|
|
|
/* then define the global constants that are in gmglobal.c */
|
|
|
|
|
extern int _wGMUser;
|
|
|
|
|
extern unsigned SHORT wrgGMPowersOfTen80Bit[];
|
|
|
|
|
extern double ergGMPowersOfTenDouble[];
|
|
|
|
|
extern double eTwoTo31;
|
|
|
|
|
extern double eTwoTo32;
|
|
|
|
|
extern double eTwoTo63;
|
|
|
|
|
extern double eTwoTo64;
|
|
|
|
|
extern DEC decPoint7;
|
|
|
|
|
extern DEC decOne;
|
|
|
|
|
extern DEC decOnePoint4;
|
|
|
|
|
extern DEC decReciprocalOfLn2;
|
|
|
|
|
extern DEC decReciprocalOfLn10;
|
|
|
|
|
extern DEC decLn2;
|
|
|
|
|
extern DEC decLn10;
|
|
|
|
|
extern DEC decE; /* Naperian base(2.71828...) */
|
|
|
|
|
extern DEC decMaxExp; /* max exponent for e**x in DEC */
|
|
|
|
|
extern DEC decMinExp; /* min exponent for e**x in DEC */
|
|
|
|
|
extern DEC decPoint259; /* next 5 used for square root */
|
|
|
|
|
extern DEC decTwoPoint59; /* 2.59 */
|
|
|
|
|
extern DEC decPoint819; /* 0.819 */
|
|
|
|
|
extern DEC decPoint0819; /* 0.0819 */
|
|
|
|
|
extern DEC decPoint5; /* 0.5 */
|
|
|
|
|
extern DEC decPi; /* next 6 used for trig */
|
|
|
|
|
extern DEC decPiOver2;
|
|
|
|
|
extern DEC decPiOver4;
|
|
|
|
|
extern DEC decPiOver6;
|
|
|
|
|
extern DEC dec2Pi;
|
|
|
|
|
extern DEC decReciprocalOfSqrt3;
|
|
|
|
|
extern DEC dec180OverPi;
|
|
|
|
|
extern DEC decPiOver180;
|
|
|
|
|
extern DEC decMaxLinEst; /* next 2 used in linear estimation */
|
|
|
|
|
extern DEC decMinLinEst;
|
|
|
|
|
extern DEC decMaxTime; /* maximum time for business */
|
|
|
|
|
extern DEC decMinusHundred;
|
|
|
|
|
extern DEC decHundred;
|
|
|
|
|
extern DEC decMinus50;
|
|
|
|
|
extern DEC decOnePoint6;
|
|
|
|
|
extern DEC decPoint01;
|
|
|
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
extern "C" {
|
|
|
|
|
#endif
|
|
|
|
|
|
2004-03-09 09:49:17 +00:00
|
|
|
//#ifdef M_I386
|
|
|
|
|
//#define SHORT short
|
|
|
|
|
//#else
|
|
|
|
|
//#define SHORT int
|
|
|
|
|
//#endif
|
|
|
|
|
|
2002-02-26 12:19:02 +00:00
|
|
|
|
|
|
|
|
int _AddDec80Bit( DEC *, DEC *, DEC *);
|
|
|
|
|
int GF_CDECL _AddUnsArrToUnsArr( unsigned SHORT [], unsigned SHORT [],
|
|
|
|
|
unsigned SHORT [], int );
|
|
|
|
|
void _ATanDec80Bit( DEC *, DEC *);
|
|
|
|
|
int GF_CDECL _CompareUnsArr( unsigned SHORT [], unsigned SHORT [], int );
|
|
|
|
|
DEC * _CompoundAux( int , int *, DEC *, DEC *, DEC *, DEC *,
|
|
|
|
|
DEC *, int , int );
|
|
|
|
|
void _ConvDecimalToAsciiFormatted( char *, DEC *, char *);
|
|
|
|
|
void _CosDec80Bit( DEC *, DEC *);
|
|
|
|
|
void _CosDecSmall( DEC *, DEC *);
|
|
|
|
|
int _DivDec80Bit( DEC *, DEC *, DEC *);
|
|
|
|
|
int _DivDecFast( DEC *, DEC *, DEC *);
|
|
|
|
|
int _DivProcFast( DEC *, DEC *, DEC *);
|
|
|
|
|
int _DivProcRnd( DEC *, unsigned SHORT [], unsigned SHORT [], int ,
|
|
|
|
|
int , int );
|
|
|
|
|
int _DivProcTrn( DEC *, unsigned SHORT [], unsigned SHORT [], int ,
|
|
|
|
|
int , int );
|
|
|
|
|
int _DivRndDec80Bit( DEC *, DEC *, DEC *, int );
|
|
|
|
|
int _DivTrnDec80Bit( DEC *, DEC *, DEC *, int );
|
|
|
|
|
void _DivUns10ArrByUns5Arr( unsigned SHORT [], unsigned SHORT [],
|
|
|
|
|
unsigned SHORT [] );
|
|
|
|
|
void _DivUns10ArrByUns5ArrTrn( unsigned SHORT [], unsigned SHORT [],
|
|
|
|
|
unsigned SHORT [] );
|
|
|
|
|
void GF_CDECL _DivUnsArrByPwrOf10( unsigned SHORT [], int , int );
|
|
|
|
|
void GF_CDECL _DivUnsArrByPwrOf10Trunc( unsigned SHORT [], int , int );
|
|
|
|
|
unsigned GF_CDECL _DivUnsArrByUns( unsigned SHORT [], unsigned SHORT , int );
|
|
|
|
|
void GF_CDECL _DivUnsArrByUnsArr( unsigned SHORT [], unsigned SHORT [], int ,
|
|
|
|
|
unsigned SHORT [], int , int );
|
|
|
|
|
void GF_CDECL _DivUnsArrByUnsRound( unsigned SHORT [], unsigned SHORT , int );
|
2004-01-26 08:50:57 +00:00
|
|
|
unsigned GF_CDECL _DoubleUnsArr( unsigned SHORT [], int );
|
2002-02-26 12:19:02 +00:00
|
|
|
int _ExpDec80Bit( DEC *, DEC *);
|
|
|
|
|
void GF_CDECL _HalveUnsArr( unsigned SHORT [], int );
|
|
|
|
|
void GF_CDECL _IncrementUnsArr( unsigned SHORT [] );
|
|
|
|
|
int _IntPwrDec80Bit( DEC *, DEC *, int );
|
|
|
|
|
DEC * _InterestAux( int , int , DEC * , DEC * , DEC *, DEC *, DEC *,
|
|
|
|
|
int );
|
|
|
|
|
int _LnDec80Bit( DEC *, DEC *);
|
|
|
|
|
int _MulDec80Bit( DEC *, DEC *, DEC *);
|
|
|
|
|
void GF_CDECL _MulUnsArr( unsigned SHORT [], unsigned SHORT [], unsigned SHORT, int);
|
|
|
|
|
int GF_CDECL _MulUnsArrByPwrOf10( unsigned SHORT [], int , int );
|
|
|
|
|
int GF_CDECL _MulUnsArrByPwrOf10Limited( unsigned SHORT [], int , int );
|
|
|
|
|
void GF_CDECL _MulUnsArrByUnsArr( unsigned SHORT [], unsigned SHORT [],
|
|
|
|
|
unsigned SHORT [], int , int , int );
|
|
|
|
|
int GF_CDECL _MulUnsArrP10AndAddInt( unsigned SHORT [], int );
|
|
|
|
|
int _ScaleDec80Bit( DEC *, DEC *, int );
|
|
|
|
|
int _ScanfAux( int , char *, char *, ELLIPSES);
|
|
|
|
|
DEC * _SimpleAux( int *, DEC *, DEC *, DEC *, int , int );
|
|
|
|
|
void _SinDecSmall( DEC *, DEC *);
|
|
|
|
|
int _SortDec( DEC **, DEC **);
|
|
|
|
|
int _SortInc( DEC **, DEC **);
|
|
|
|
|
int _Sq5UnsTo4Uns( DEC *);
|
|
|
|
|
void _SqrtDec80Bit( DEC *, DEC *);
|
|
|
|
|
int _SubDec80Bit(DEC *, DEC *, DEC *);
|
|
|
|
|
void GF_CDECL _SubUnsArr( unsigned SHORT [], unsigned SHORT [], int );
|
|
|
|
|
int GF_CDECL _SubUnsArrFromUnsArr( unsigned SHORT [], unsigned SHORT [], unsigned SHORT [],
|
|
|
|
|
int );
|
|
|
|
|
int _TruncateDec80Bit( DEC *, DEC *, int );
|
|
|
|
|
|
|
|
|
|
#ifdef __cplusplus
|
|
|
|
|
}
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
/*****/
|
|
|
|
|
|
|
|
|
|
#define _MacDZero(a) { (a)->dc.attr=0; (a)->dc.id=2; (a)->dc.sl[0]=0; (a)->dc.sl[1]=0; (a)->dc.sl[2]=0; (a)->dc.sl[3]=0; (a)->dc.msd=0; }
|
|
|
|
|
#define _MacIsDecZ(a) ((((a)->ls.lsl[0])|((a)->ls.lsl[1])|((a)->dc.msd)) ? FALSE:TRUE)
|
|
|
|
|
#define _MacIsDecP(a) (((((a)->dc.attr&GM_NEG)^GM_NEG)&&(!_MacIsDecZ(a))) ? TRUE : FALSE)
|
|
|
|
|
#define _MacIsDecN(a) (((a)->dc.attr&GM_NEG)&&(!_MacIsDecZ(a)))
|
|
|
|
|
#define _MacDCopy(a,b) ((*a) = (*b))
|
|
|
|
|
#define _MacDChgs(a) a->dc.attr=a->dc.attr^GM_NEG;
|
|
|
|
|
#define _MacStart(a) int _wGMCurr=(a); if (!_wGMUser) _wGMUser=(a);
|
|
|
|
|
#define _MacRet(a) {if (_wGMUser==_wGMCurr) _wGMUser=0; return(a);}
|
|
|
|
|
#define _MacRetV {if (_wGMUser==_wGMCurr) _wGMUser=0; return;}
|
|
|
|
|
#define _MacErr(a) SetMathError((a),_wGMUser)
|
|
|
|
|
#define _MacBad(a) (a->dc.id<GM_IMINID||a->dc.id>GM_IMAXID+5)
|
|
|
|
|
#define _MacInVar(a,b) {if (!a) {_MacErr(GM_NULLPOINTER); _MacRet(b);} else if (_MacBad(a)) {_MacErr(GM_INIT); _MacRet(b);}}
|
|
|
|
|
#define _MacOutVar(a,b) {if (!a) {_MacErr(GM_NULLPOINTER); _MacRet(b);}}
|
|
|
|
|
#define _MacInVarD(a) {if (!a) {_MacErr(GM_NULLPOINTER); _MacRet(GM_NULL);} else if (_MacBad(a)) {_MacErr(GM_INIT); _MacRet(GM_NULL);}}
|
|
|
|
|
#define _MacOutVarD(a) {if (!a) {_MacErr(GM_NULLPOINTER); _MacRet(GM_NULL);}}
|
|
|
|
|
#define _MacInVarI(a) {if (!a) {_MacErr(GM_NULLPOINTER); _MacRet(GM_NULLPOINTER);} else if (_MacBad(a)) {_MacErr(GM_INIT); _MacRet(GM_INIT);}}
|
