Defines |
#define | ABS(X) (((X) >= ZERO) ? (X) : -(X)) /* Absolute value of X */ |
#define | ACOS(x) (REAL)acos((double)(x)) |
#define | ATAN(x) (REAL)atan((double)(x)) |
#define | BASIS 2 /* Basis of number representation */ |
#define | COS(x) (REAL)cos((double)(x)) |
#define | COSH(x) (REAL)cosh((double)(x)) |
#define | EIGHT (REAL)8.0 |
#define | EPSQUAD epsquad() /* square of MACH_EPS */ |
#define | EPSROOT epsroot() /* square root of MACH_EPS */ |
#define | EXP(x) (REAL)exp((double)(x)) |
#define | EXP_1 exp_1() /* e = 2.71... */ |
#define | FABS(x) (REAL)fabs((double)(x)) /* declare names of basic */ |
#define | FIVE (REAL)5.0 |
#define | FORMAT_126LF "% 12.6" LZP "f " /* Format 12.6f for REAL */ |
#define | FORMAT_2010LF "% 20.10" LZP "f " /* Format 20.10f for REAL */ |
#define | FORMAT_2016LE "% 20.16" LZP "e " /* Format 20.16e for REAL */ |
#define | FORMAT_2016LF "% 20.16" LZP "f " /* Format 20.16f for REAL */ |
#define | FORMAT_IN "%lg" /* Input format for REAL */ |
#define | FORMAT_LE "% " LZP "e " /* Format e for REAL */ |
#define | FORMAT_LF "% " LZP "f " /* Format l for REAL */ |
#define | FOUR (REAL)4.0 |
#define | HALF (REAL)0.5 |
#define | LOG(x) (REAL)log((double)(x)) |
#define | LZP "" /* length prefix for formatted */ |
#define | LZS "l" /* length prefix for formatted */ |
#define | MACH_EPS mach_eps() /* machine constant .................*/ |
#define | max_basis(a, b) (((a) > (b)) ? (a) : (b)) |
#define | MAX_EXP 1023 /* adjust here !!!! .................*/ |
#define | MAXROOT maxroot() /* square root of the largest */ |
#define | min_basis(a, b) (((a) < (b)) ? (a) : (b)) |
#define | NINE (REAL)9.0 |
#define | ONE (REAL)1.0 /* floating point numbers */ |
#define | PI pi() /* pi = 3.14... */ |
#define | POSMAX 1e100 /* adjust here !!!! .................*/ |
#define | POSMIN posmin() |
#define | POW(x, y) |
#define | sign(x, y) |
#define | SIGN(X, Y) |
#define | SIN(x) (REAL)sin((double)(x)) |
#define | SIX (REAL)6.0 |
#define | SQR(X) ((X) * (X)) /* square of X */ |
#define | SQRT(x) (REAL)sqrt((double)(x)) /* three precisions */ |
#define | SWAP(typ, a, b) |
#define | TEN (REAL)10.0 |
#define | THREE (REAL)3.0 |
#define | TWO (REAL)2.0 |
#define | ZERO (REAL)0.0 /* declare names for recurring */ |
Typedefs |
typedef REAL | abl_mat1 [4][2] |
typedef REAL | abl_mat2 [6][2] |
typedef void(* | ableitfnk )(REAL x, REAL c[], REAL *d) |
typedef REAL(* | ansatzfnk )(int i, REAL x) |
typedef REAL(* | approxfnk )(REAL c[], REAL x) |
typedef REAL(* | dglfnk )(REAL x, REAL y) |
typedef void(* | dglsysfnk )(REAL x, REAL y[], REAL f[]) |
typedef int(* | FNFCT )(int, REAL[], REAL[]) |
typedef int(* | JACOFCT )(int, REAL[], REAL *[]) |
typedef long double | LONG_REAL |
typedef REAL | mat4x4 [4][4] |
typedef double | REAL |
typedef REAL(* | REALFCT )(REAL) |
typedef void(* | rndbedfnk )(REAL ya[], REAL yb[], REAL r[]) |
Enumerations |
enum | boolean { FALSE,
TRUE
} |
enum | fehler_t { KEIN_FEHLER,
WARNUNG,
UNBEKANNT,
FATAL
} |
Functions |
int | basis (void) |
REAL | comabs (REAL ar, REAL ai) |
int | comdiv (REAL ar, REAL ai, REAL br, REAL bi, REAL *cr, REAL *ci) |
void | copy_vector (REAL ziel[], REAL quelle[], int n) |
void | CopyMat (int m, int n, REAL *source[], REAL *dest[]) |
void | CopyVec (int n, REAL source[], REAL dest[]) |
REAL | epsquad (void) |
REAL | epsroot (void) |
REAL | exp_1 (void) |
void | fehler_melden (char text[], int fehlernummer, char dateiname[], int zeilennummer) |
void | getline (char kette[], int limit) |
REAL | horner (int n, REAL a[], REAL x) |
int | intervall (int n, REAL xwert, REAL x[]) |
void | LogError (char *s, int rc, char *file, int line) |
REAL | mach_eps (void) |
REAL | maxroot (void) |
REAL | norm_max (REAL vektor[], int n) |
REAL | pi (void) |
REAL | posmin (void) |
void | quadsolv (REAL ar, REAL ai, REAL br, REAL bi, REAL cr, REAL ci, REAL *tr, REAL *ti) |
void | readln (void) |
int | ReadMat (FILE *fp, int m, int n, REAL *a[]) |
int | ReadMat1 (FILE *fp, int m, int n, REAL *a[]) |
int | ReadVec (FILE *fp, int n, REAL x[]) |
int | ReadVec1 (FILE *fp, int n, REAL x[]) |
void | SetMat (int m, int n, REAL *a[], REAL val) |
void | SetVec (int n, REAL x[], REAL val) |
REAL | skalprod (REAL v[], REAL w[], int n) |
REAL | sqr (REAL x) |
long double | sqrtlong (long double x) |
int | umleiten (int argc, char *argv[]) |
int | WriteEnd (FILE *fp) |
int | WriteHead (FILE *fp, char *s) |
int | WriteMat (FILE *fp, int m, int n, REAL *mat[]) |
int | WriteMat1 (FILE *fp, int m, int n, REAL *mat[]) |
int | WriteVec (FILE *fp, int n, REAL x[]) |
int | WriteVec1 (FILE *fp, int n, REAL x[]) |