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[]) |
