DataMuseum.dk

Presents historical artifacts from the history of:

Commodore CBM-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Commodore CBM-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦069f2f45a⟧ TextFile

    Length: 1552 (0x610)
    Types: TextFile
    Notes: UNIX file
    Names: »math.h«

Derivation

└─⟦eafc30061⟧ Bits:30001199 Commodore 900 hard disk image
    └─⟦8281d0872⟧ UNIX V7 Filesystem
        └─ ⟦294235107⟧ »vol3.fd« UNIX V7 Filesystem
            └─ ⟦this⟧ »usr/include/math.h« 
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
    └─⟦2d53db1df⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »include/math.h« 
└─⟦eafc30061⟧ Bits:30001199 Commodore 900 hard disk image
    └─⟦5ec4c54f2⟧ UNIX V7 Filesystem
        └─ ⟦this⟧ »usr/include/math.h« 

TextFile

/*
 * Definitions for math functions.
 */
#define I	1e+37		/* Infinity */
#define L2I	127.0		/* log2(infinity) */
#define L10P	17		/* log10(precision) */
#define L2L2P	6		/* log2(log2(precision)) */

/*
 * Error return values.
 */
#define EBON	0		/* Succesful */
#define	EDOM	33		/* Domain error */
#define	ERANGE	34		/* Result too large */

/*
 * Constants.
 */
#define PI	0.31415926535897932e+01
#define SQRT2	0.14142135623730950e+01
#define LOG2B10	0.30102999566398119e+00
#define LOG10BE	0.23025850929940456e+01
#define LOG10B2	0.33219280948873623e+01
#define LOGEB2	0.14426950408889634e+01

/*
 * Complex variables.
 */
typedef struct cpx {
	double	z_r;
	double	z_i;
} CPX;

/*
 * Status from routines.
 */
extern	int	errno;

/*
 * Internal functions.
 */
double	_pol();
double	_two();

/*
 * Function definitions.
 */
double	acos();
double	asin();
double	atan();
double	atan2();
double	atof();
double	cabs();
double	ceil();
double	cos();
double	cosh();
double	exp();
double	fabs();
double	floor();
/* double flt();   -- routine not found in /usr/src/libm - rma */
double	frexp();
double	hypot();
double	j0();
double	j1();
double	jn();
/* double y0();	   -- routine not found in /usr/src/libm - rma */
/* double y1();   -- routine not found in /usr/src/libm - rma */
/* double yn();	   -- routine not found in /usr/src/libm - rma */
double	ldexp();
double	log();
double	log10();
double	modf();
double	pow();
double	sin();
double	sinh();
double	sqrt();
double	tan();
double	tanh();
/* double two();   -- routine not found in /usr/src/libm - rma */